%
Set Dbconn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
Dbconn.Open "FileDSN=C:\Program Files\Common Files\ODBC\Data Sources\wydata.dsn"
qsql="select repno,repna "
qsql=qsql & "from at0006report as vb "
qsql=qsql & "where repno > 422 "
rs.open qsql,dbconn
If rs.eof Then
response.end
Else
Dim book(5,2)
for i=0 to 4
book(i,0)=rs("repno")
book(i,1)=rs("repna")
rs.movenext
next
End If
rs.close
dbconn.close
set rs=nothing
set dbconn=nothing
%>
☆☆☆可愛淘《追愛症候群 1》 ☆☆☆連載