%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") 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 %> <% end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||