Microsoft VBScript 编译器错误 '800a03ea' 语法错误 \asp\Web\index.asp, line 13

语法错误 \asp\Web\index.asp, line 13 以下是line13的代码

<%
yn()
dim weizi,title_yuenan,title_qunei
title_qunei="[广西]" //TITLE的首文字修改:区内
title_yuenan="[越南]" //TITLE的首文字修改:越南
title_guonei="[国内]" //TITLE的首文字修改:国内
weizi=""
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

if Session("mylogin")<>"1" then
sqltext="update syswork set querycount=querycount+1 where code='101'"
cn.execute(sqltext)

rs.Open "webcount",cn,3,3
rs.AddNew
rs("ipaddress")=Request.ServerVariables("Remote_HOST")
rs("logindate")=now()
rs.Update
rs.Close

mylogin=Session("mylogin")
Session("mylogin")="1"

else
mylogin=Session("mylogin")
end if
mymenu="default"

' keyno1=0
' keyno2=0
' sql="select keyno,sortnum,state from miscell where classcode='999' and sortnum=0 and state='1' order by keyno"
' rs.Open sql,cn,1,1
' i=1
' do while not rs.EOF and i<=2
' if i=1 then
' keyno1=rs(0)
' else
' keyno2=rs(0)
' end if
' i=i+1
' rs.MoveNext
' loop
' rs.Close
'
'if keyno1>0 then
%>

相关了解……