|
<%
dim cn,rs
Set cn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/iserve-it.mdb") & ";Persist Security Info=False"
strSql = "Select * from link"
rs.open strSql,cn,1,3
%>
| Link |
| |
|
|
<%while not rs.eof%>
| <%=rs("link")%> |
<%=rs("detail")%> |
|
<%
rs.movenext
wend
%>
|