<% '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

Banner Ads

Country Flag

India Yellow Pages
Free Listing Click here for Home Pages Click here for Full Pages Click here for Half Pages Click here for our Links
Advertise Here
<% ' 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 %>

 Advance Search
Yellow Pages
   Special Links
   Poll of the Day

Do you think POTO will be misused ? 

   Info Links
Pin Codes
Other Services
   Trade Links
T&I Organisation
Export Councils
Financial Inst.
   Travel Links
Train Schedules
  Tourism Offices


 ::::: Category Browser :::::
Apparel Stock lots
Exporters Department Stores, ...

Art, Music, Books, Photography
Artists & Designers-Commercial, Video Equipment & Services...

Components, Parts, Servicing, ...

Computers & Communication
Books, Dealers, Internet Services, ...

Construction, Contractors, & Interiors
Engineers, Building Materials, ...

Education Academy
bags, Colleges, Catering School, ...

Banks, Investment, ...

Food & Drink
Sweet & Farsan Shops/ Halwais, Food Product- Exports, Tea Exporters ...


Home & Office
Crockery/ Cutlery, Painting Contractors, Pesticides, Stationery, Office Automation Equipment, ...

Media & Advertising
Advertising Printers, Publishers, ...

Medical & Health
Doctors, Health Clubs,
Homeopathy, Herbal, ...

Games & Gifts
Florists, Toys,
Jewellers, Clocks ...

Real Estate
Architects, Builders, ...

Sport Goods Amusements, ...

Restaurants & Entertainment
Musical Instruments, Restaurants, Swimming Pools,  ...

Hotels, Car Rentals,
Embassies ...

Can't Find It ? Go to
Alphabetical Listings on Top

   ::::: Special Features :::::
Features Moral Stories

Guide Line

Men's Section
Help Line Women's Section


Banner Ads

Click here to go Top

Visitor No.:

<%response.write currentHits%>

<% rs1.Close Set rs1 = Nothing %>
Hotel Panorama
 Travellers Check this page



Tell us how we're doing. We appreciate your feedback


About us | Free Listings | Advertisers | Sitemap | FAQ's | Feedback

Copyright 2000 Cybernet Informatics Ind. Pvt. Ltd. All rights reserved.
Reproduction in whole or in part without permission is prohibited
Privacy Policy Terms of Use Contact Us