%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<%
pageno=Request.QueryString("pageno")
keyno=Request.QueryString("keyno")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
mymenu="intro"
sqltext="select content from miscell where classcode='999' and sortnum=5 "
rs.Open sqltext,cn,1,1
if not rs.EOF then
content=trim(rs(0))
end if
rs.Close
sqltext="select content from miscell where classcode='999' and sortnum=6 "
rs.Open sqltext,cn,1,1
if not rs.EOF then
content2=trim(rs(0))
end if
rs.Close
mymenu="intro"
%>