Welcome to India Yellow Pages

<%@ Language=VBScript %> Welcome to India Yellow Pages <% Dim objConn Dim objRst Dim strYear Dim Sql Dim intPageCount Dim intRecordCount Dim intPage Dim intRecord Dim intStart Dim intFinish dim repl dim repl1 'map= Server.MapPath("user.mdb") 'conDB.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source = "&map&" " 'pa = Server.MapPath("\asptest\images\") dim map map = Server.MapPath("../main.mdb") If Request.QueryString("NAV") = "" Then intPage = 1 Else intPage = Request.QueryString("NAV") End If Set objConn = Server.CreateObject("ADODB.Connection") ' objConn.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51; Data Source = D:\bangladesh\bangla.mdb" ' objConn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;"&" Persist Security Info=False;Data Source="&map&" " objConn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;"&" Persist Security Info=False;Data Source="&map&" " objConn.Open strYear = Request.QueryString("YEAR") 'response.write(strYear) Sql = "Select * From Listing Where cat = '"& strYear&"' " ' '"&strYear&"' Set objRst = Server.CreateObject("ADODB.Recordset") objRst.CursorLocation = 3 'adUseClient objRst.CursorType = 3 'adOpenStatic objRst.ActiveConnection = objConn objRst.Open Sql objRst.PageSize = 5 objRst.CacheSize = objRst.PageSize intPageCount = objRst.PageCount intRecordCount = objRst.RecordCount If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then objRst.AbsolutePage = intPage intStart = objRst.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (objRst.PageSize - 1) End if End If %>

Logo - Internet WorldWideWeb

<% dim ct12 ct12 = Request.QueryString("cat") ' ADO Constant. Dont change this Const adCmdText = &H0001 ' Connection string and SQL statement Dim query12, connStr12 query12 = "select * from ban where cat = '"&ct12&"' " connStr12 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath("../main1.mdb") ' Opening database Dim rs12 Set rs12 = Server.CreateObject("ADODB.Recordset") rs12.Open query12, connStr12, 3, , adCmdText ' Generating random number from total number of records Dim intRnd12 Randomize Timer intRnd12 = (Int(RND * rs12.RecordCount)) ' Now moving the cursor to random record number rs12.Move intRnd12 %> ">.gif"> <% rs12.Close Set rs12 = Nothing %>

Country Flag

India Yellow Pages

<% dim lim dim ses dim app lim = Request.Querystring("cat") app =application(lim) response.write(app) Session("ses")=lim 'response.write(Session("ses")) %>

.gif" width="235" height="48" align="center">

Home

Yellow Pages

Jobs

Special Features

Horoscope

Special Listings

Airport/Airlines

Embassies

Hospitals

Auditoriums

Chemists

Cinema Halls

Clubs

Infolines

Police

Pin Codes

Power Supply

Telephone

Transport

Tourism Offices

Other Services

		<%response.write objRst("cat1")%>

Page : <%=strYear%> returned <%=intRecordCount%> listings.

<%If intRecordCount > 0 Then%>

You are now viewing listings <%=intStart%> through <%=intFinish%>.

<% For intRecord = 1 to objRst.PageSize %>

	<%response.write objRst("Lst_Name")%>
	Address	:	<%response.write objRst("Lst_Address")%>
	Pin code	:	<%response.write objRst("Lst_Zipcode")%>
	City	:	<%response.write objRst("Lst_City")%>
	State	:	<%response.write objRst("Lst_State")%>
	Telephone	:	<%response.write objRst("Lst_Phone")%>
	Fax	:	<%response.write objRst("Lst_Fax")%>
	E-mail	:	"><%response.write objRst("Lst_Email")%>
	Pager	:	<%response.write objRst("Lst_Pager")%>
	Contact Person	:	<%response.write objRst("Lst_Ceo")%>
	Mobile	:	<%response.write objRst("Lst_Mobile")%>
	Website	:	"><%response.write objRst("Lst_Website")%>
	Products	:	<%response.write objRst("Lst_Products")%>

<% objRst.MoveNext If objRst.EOF Then Exit for Next %>

<%If cInt(intPage) > 1 Then%>

« Previous <%End IF%> <%If cInt(intPage) < cInt(intPageCount) Then%> Next »<%End If%>

<%End If%>

About us | Free Listings | Advertisers | Sitemap | Feedback

Copyright © 2000 India yellow pages. All rights reserved.
Reproduction in whole or in part without permission is prohibited.
Privacy Policy Terms of Use Contact Us