===请问这是什么问题(附源码)===
源码:
<%@ language=VBSCRIPT codepage=936 %>
<!--#include file="opendb.inc"-->
<%
dim a
a=trim(request.querystring("id"))
sql="select uid,company,comcity,address,tel,fax,mail,web,product,intro from yp where id='"&a&"'"
rs.open sql,conn,1,2
uid=rs("uid")
company=rs("company")
comcity=rs("comcity")
address=rs("address")
tel=rs("tel")
fax=rs("fax")
mail=rs("mail")
web=rs("web")
product=rs("product")
intro=rs("intro")
rs.close
%>
错误信息:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/showcom.asp,行6