set rs=server.CreateObject("adodb.recordset")
rs.open "select jr from user2 where adress="&adress,conn,1,1
jrr=split(rs("jr"),",")
if jrr(0)+0=weekday(now) then
jjj=jrr(1)+1
jr=jrr(0)&","&jjj
else
jr=weekday(now)&","&"1"
end if
rs.close
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'adress=' 中。