<% Dim adoCon, RS1, RS2, RS3, RS4, RS5, RS6, dmenu set adocon = Server.CreateObject("ADODB.Connection") set RS1 = Server.CreateObject("ADODB.Recordset") set RS2 = Server.CreateObject("ADODB.Recordset") 'adocon.open "DSN=adlife" adocon.open "driver={MySQL ODBC 3.51 Driver};server=db.iserve.net.nz;uid=adam1;pwd=bbq2007;database=BOB;option=16387" %> Untitled

Counter Details

<% SQL = "select date, count(hitid) as counter from hitcounter group by date order by date desc;" RS1.open SQL, adocon DO while not rs1.eof response.write("") rs1.movenext loop rs1.close %>
DateHits
" & rs1("date") & "" & rs1("counter") & "