Question

response.write 循环输出表格中的行

<%
'这个函数就是show1页面根据Pid查看zh_userBuy的购买记录
function userBuy(smallID)
dim rs123,sql123
if smallID="" then
smllID="0"
end if
set rs123 = server.CreateObject("adodb.recordset")
sql123="select * from zh_userBuy where Pid="&smallID&" order by id desc"
rs123.open sql123 ,conn,1,1

do while not rs123.eof
response.Write
" <tr>"&_
" <td algin='left'>"&rs123("Name1")&"</td>"&_
" <td algin='left'>"&rs_p("Proname")&"</td>"&_
" <td algin='left'>"&rs123("Tel")&"</td>"&_
" <td algin='left'>"&rs123("num")&"</td>"&_
" <td algin='left'>"&rs123("shijian")&"</td>"&_
" </tr>"

rs123.movenext
loop
rs123.close
set rs123=nothing
end function
%>
这是要包含的代码，我想让他在这个页面里应用 怎么做？
<div id="dTab2" class="HackBox" style="display:block">
<!--这里放入信息-->
<table width="700" cellpadding="0" cellspacing="0">
<%call userBuy(rs_p("id"))%>
</table>
</div>
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/Web/zh/include.asp, line 95
" <tr>"&_
现在报这个错误