|
<% dim fid
dim gh_no
dim conn2
dim recs
dim recs2
dim sql2
dim sql
dim recs3
dim sql3
set conn2=server.CreateObject("adodb.connection")
conn2.Open "dsn=rang"
set recs=server.CreateObject("adodb.recordset")
set recs2=server.CreateObject("adodb.recordset")
sql2="select * from hamian;"
recs2.open sql2,conn2
if not recs2.eof then
%>
|
|||||||
|
<%recs2.movefirst
while not recs2.eof%> <%
recs2.movenext
wend
%> |
|||||||
|
Sponsor(s) |
|||||||
|
|
 |
|
 |
||||
|
|
|||||||
|
|
|
|
 |
||||
|
|
|||||||
