<% @ language=VBScript %>

图书目录

---

<%
strName=Request.Form("writername")
strSQL="SELECT* FROM ml WHERE writer LIKE' % "& Trim(strName) &"% '"
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=C:\asp\html\lib.mdb"
set rst=Server.createobject("ADODB.Recordset")
rst.Open strSQL,con
with Response
If rst.EOF Then
Response.write"对不起，没有您要找的书 "
else
Response.write"" &_
"" &_
"" &_
""
end If
Do until rst.EOF
Response.write"" &_
"" &_
""
rst.MoveNext
loop
Response.write"

书名	作者	定价
" &_ rst.Fields("BookName") & "	" & rst.Fields("Writer") & "	" & rst.Fields("price") & "

"
End With
rst.close
con.close
%>

---

这是我学做搜索的时候打的代码，就是在文本框里输入作者名字，然后就可以搜索到他写的书的基本情况如：书名、作者、定价。
但是好像这段代码没什么作用似的，一按提交他就只显示空白。高高手帮我看看哪里错了。

还是不行啊。
没反应，但也没说错，只是出现在了一个空白页面