<%
'Option Explicit
Response.Buffer = True
'********************************statistics*************************
'writing stat database========================
dpath=server.mappath("hits.mdb")
set conn1=server.createobject("adodb.connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dpath
conn1.execute ("insert into hits([classification],[date],[time],[ip]) values ('Home Page','"& date &"','"& time &"','"& request.servervariables("REMOTE_ADDR") &"');")
conn1.close
'end=============================================
'*******************************************************************
%>
<%
' ADO Constant. Dont change this
Const adCmdText = &H0001
' Connection string and SQL statement
Dim query, connStr
query = "select * from ban where cat = 'mt' "
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath("main1.mdb")
' Opening database
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open query, connStr, 3, , adCmdText
' Generating random number from total number of records
Dim intRnd
Randomize Timer
intRnd = (Int(RND * rs.RecordCount))
on error resume next
' Now moving the cursor to random record number
rs.Move intRnd
%>
Sri Lanka Yellow Pages
.gif){kind=small}
