 | | |
|
|
Partner Links:
Recommended Sites Please visit our
recommended Sites! You may find here best of net sites. Webmasters: If
you wish to add your site (reciprocal linking) Please
Click here
! |
|
|
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("links/users.mdb")
' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users_tbl", data_source
' Looping through the records to show all of them
While Not rs.EOF %>
| "><%=rs("name") %> - <%=rs("phone") %> |
|
<%
no = no + 1
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>
| |
|