<% if session("login_flag")<>"success" then
nickname=trim(request("nickname"))
qq=trim(request("qq"))
email=trim(request("email"))
homepage=trim(request("homepage"))
address=trim(request("address"))
telephone=trim(request("telephone"))
subject=trim(request("subject"))
sex=trim(request("sex"))
else
set rs=server.CreateObject("adodb.recordset")
set connm=server.CreateObject("adodb.connection")
dim addcomstr2
connm.open "provider=microsoft.jet.oledb.4.0;data source="_
&server.mappath("lanyadb.mdb")&";persist security info=false"
addcomstr2="select * from music_user where user_id="&session("user_id")
rs.open addcomstr2,connm,1,1 //21
if rs("user_nickname")<>"" then
nickname=rs("user_nickname")
else
nickname=rs("user_id")
end if
qq=trim(rs("user_qq"))
email=trim(rs("user_email"))
sex=trim(rs("user_sex"))
homepage=trim(rs("user_homepage"))
address=trim(rs("user_address"))
telephone=trim(rs("user_telephone"))
rs.close
set rs=nothing
end if
content=replace(request("content"),chr(13),"<br>")
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
dim addcomstr1
conn.open "provider=microsoft.jet.oledb.4.0;data source="_
&server.MapPath("lanyadb.mdb")&";persist security info=false"
addcomstr1="select * from commends"
rs.open addcomstr1,conn,3,3
rs.addnew
rs("nickname")=nickname
rs("qq")=qq
rs("email")=email
rs("homepage")=homepage
rs("address")=address
rs("telephone")=telephone
rs("subject")=subject
rs("sex")=sex
rs("content")=content
rs("datetime")=now()
rs.update
rs.close
set rs=nothing
session("login_flag")="success"
response.redirect "commends.asp"
%>
错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine
至少一个参数没有被指定值。
/lanya/addcommends.asp，行21
我弄了一天都没弄成功，问题出在哪里呢》？？？
