Thank You!
<%@ Language=VBScript %>
<%
'Create object. In this case Connection to a database
Set Conn = Server.CreateObject("ADODB.Connection")
'Select provider
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Select data source.
Conn.ConnectionString = "Data
Source=\\premfs2\sites\premium7\dhomes\database\visitors.mdb"
'Open the connection
Conn.Open
'Create recordset
Set Rs = Server.CreateObject("ADODB.Recordset")
'Open recordset with the connection which we have created earlier
Rs.Open "SELECT * from visitors;", Conn, 1,3
'this is where the second table would go. I don't fully understand the
Conn, 1,3 in the above
%><TABLE BORDER=1><%
'Loop thru records
do while not rs.EOF%>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("DATE")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("TIME")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("IP")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("REFERER")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("DOMAIN")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("URL")%></FONT></TD>
<TD ALIGN=LEFT NOWRAP=1><FONT SIZE=-1><%Response.Write
rs("BROWSER")%></FONT></TD><TR>
<%
rs.MoveNext ' Movenext
loop
%></TABLE><%
'Deinitialize the Connection and Recordset
set Rs = nothing
set Conn = nothing
%>