% '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 %>
Copyright
©2000 www.srilankayellowpages.com All
rights reserved. |