|
|
|
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db/#db2009.asp")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from loop", conn, 1, 1
if rs.EOF = False then rText = rs("rText")
rs.close
conn.close
%>
|
 |
 |
|
|
|
