Welcome to India Yellow Pages

<% 'Option Explicit Response.Buffer = True %> <% ' 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 'rs.Open query, connStr, 1,3 ' Generating random number from total number of records Dim intRnd Randomize Timer intRnd = (Int(RND * rs.RecordCount)) ' Now moving the cursor to random record number rs.Move intRnd %> <% 'this is for genautonum dim objFS, fleHits Set objFS = CreateObject("Scripting.FileSystemObject") Set fleHits = objFS.OpenTextFile(server.mappath("hitsFile1.txt"),1) if isObject(fleHits) then currentHits = fleHits.ReadLine if isNumeric(currentHits) then currentHits = clng(currentHits) else currentHits = 0 end if else currentHits = 0 end if fleHits.Close currentHits = cstr(currentHits + 1) Set fleHits = objFS.CreateTextFile(server.mappath("hitsFile1.txt"),True) fleHits.writeLine cstr(currentHits) fleHits.close set objFs=nothing 'response.write currentHits dim zz,zz1 zz = currentHits zz1 = date() 'response.write(zz1) 'response.write("
") 'zz = request("currentHits") 'response.write(zz) 'webstatistics/reports.asp dim map map = Server.MapPath("webstatistics/stat.mdb") 'D:\india\webstatistics\stat.mdb '"webstatistics/stat.mdb" set objconn = Server.CreateObject ("Adodb.Connection") set objrs = server.CreateObject("ADODB.Recordset") objconn.Mode = AdModeReadWrite ' To Open Database In Read & Write Mode objconn.Open "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source="&map&";" & "Persist Security info = false" '"&map&" objrs.Open "stat",objconn,1,3 'Opening Table In Read & Write Mode objrs.AddNew ' To Add A Blank Record At End Of The File objrs ("count1") = zz 'To Assign Values To Column Of The Table objrs ("date1") = zz1 objrs.Update 'To Save The Above Record objrs.Close 'To Close The Link Between Asp Page & Table %> Welcome to India Yellow Pages

<% ' Showing the random statement 'Response.Write(rs("ban")) 'response.write ("
") 'Response.Write "" & rs("no") & "" ' Closing the database rs.Close Set rs = Nothing %>

Logo - Internet WorldWideWeb

Country Flag

<% ' ADO Constant. Dont change this Const adCmdText1 = &H0001 ' Connection string and SQL statement Dim query1, connStr1 query1 = "select * from ban where cat = 'fp1' " connStr1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath("main1.mdb") ' Opening database Dim rs1 Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open query1, connStr1, 3, , adCmdText1 ' Generating random number from total number of records Dim intRnd1 Randomize Timer intRnd1 = (Int(RND * rs1.RecordCount)) ' Now moving the cursor to random record number rs1.Move intRnd1 %>