那位大哥帮我解决一个连接数据库方面的小问题，谢谢

[migrant1119]

下面是源代码：

<%
Dim sql
Dim Conn
Dim ConnStr
Dim rs
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={SQL Server};SERVER=GN6OUKI92D9UK66;UID=sa;PWD=517;Database=pubs"
Conn.Open ConnStr

term=request.Form("term")
grade=request.Form("grade")
number=request.Form("number")
name=trim(request.Form("name"))


if number<>""and name<>""then
condition="学号="&number&"and 姓名 like'%"&name&"%'"
elseif number<>""then
condition="学号="&number
elseif name<>""then
condition="姓名 like'%"&name&"%'"
else
condition=""
end if
if condition<>""then
sql="select*from"&grade&"where"&condition
else
sql="select*from"&grade
end if

set rs=conn.execute(sql)//////这就是出错的位置，32行 ！！！！！！！！！！！
if not rs.eof then
response.write "<center><table border='1' cellpadding='1' cellspacing='1' style='fontsize=10pt'>"
response.write"<tr>"&term&"学期"&grade&"班</tr>"
response.write"<tr bgcolor=#b0e0e6>"
for i=0 to rs.fields.count-1
response.write"<td>"&rs.fields(i).name&"</td>"
next
response.write"</tr>"
number=0
do while not rs.eof
number=nunber+1
response.write"<tr>"
for i=0 to rs.fields.count-1
response.write"<td>"&rs.fields(i).value&"</td>"
next
response.write"</tr>"
rs.movenext
loop
response.write"</table>"
response.write"</center>"
else
response.write"<center><strong>对不起，没有符合的纪录！</strong><center>"
end if
response.write"<center><a href='ask.htm'>继续查询</a></center>"
%>

出错信息是：错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: 'from001' 附近有语法错误。
/ask.asp, 第 32 行

数据库名称用户名密码什么的都好使，相同格式的语句在同学的机器上就好使，不知道为什么，急！

[chonboy]

if condition<>""then
sql="select*from"&grade&"where"&condition
else
sql="select*from"&grade
end if

你怎么能通过呢？里面该隔开的空格都没有，应该改成：
if condition<>""then
sql="select * from "&grade&" where "&condition
else
sql="select * from "&grade
end if

[Aa7643]

对,应该是上面所说的,写代码应规范,要不然很难找到错误

[woshihuzi]

response.write "<br> 查询语句是：" & sql & "<br>"
response.flush
用这两句话放在出错语句之前，网页出错的时候，会首先输出你的SQL语句，
看看你的sql语句有没有问题