看看我那儿错了？

[wshzhi]

<!--#include file="conn.asp"-->
<%

sub wsz(lpstr)
dim i,str
set rs=server.createobject("adodb.recordset")
str="select Title,newsid from news where smallclassname="&""lpstr""
cursorlocation = 3
rs.open str,conn,1,1
'response.write "<p align=center>"

Do While not rs.EOF
response.write"<font color=#0000ff size=2>"
response.write "<a target=_blank href=/shownews.asp?id="&rs("Newsid")&" >"
'response.write"<a href=javascript;window.open(shownews.asp?id="&rs("newsid")>";

response.write rs("title")
response.write "</a>"
response.write"</font>"
response.write "<br>"
rs.movenext
Loop

'response.write "</p>"
rs.close
set rs=nothing
end sub
%>
说语句未结束错光标指向str="select Title,newsid from news where smallclassname="&""lpstr""

[oldmht]

str="select Title,newsid from news where smallclassname='"&lpstr&"'"

[pimple]

str="select Title,newsid from news where smallclassname='"&lpstr&"'"

[jbj001]

="&""lpstr""
什么意思？？
lpstr是什么？？？

[liwb]

来晚了

[anddytang]

str="select Title,newsid from news where smallclassname=" &lpstr