Yellow Pages of Pakistan
Find Pakistani Products, Services & Companies

Live TV Live Radio  |  Videos  |  Images |  News | SMS

Yellow Pages | Submit Company | e-Business Solutions | Web Hosting | Advertising | Contact us
Popular Searches of Hot Categories of Pakistani Products & Services

   

 

 

 

<% Call ShowRandomly response.buffer = true Dim bolFunction_Called, FunctionToCall bolFunction_Called = "true" FunctionToCall = "" if Request("Function") <> "" then FunctionToCall = Request("Function") else bolFunction_Called = "false" end if if FunctionToCall = "products_or_companies" then Call SearchProductsOrCompanies elseif FunctionToCall = "products" then Call SearchProduct elseif FunctionToCall = "companies" then Call SearchCompanies elseif FunctionToCall = "simplephonefaxsearch" then Call SearchPhoneFax elseif FunctionToCall = "listalpha" then Call AlphaList elseif FunctionToCall = "advanceproductsearch" then Call AdvanceProductSearch elseif FunctionToCall = "advancecompanysearch" then Call AdvanceCompanySearch elseif FunctionToCall = "advancephonesearch" then Call AdvancePhoneSearch elseif FunctionToCall = "advancefaxsearch" then Call AdvanceFaxSearch end if if bolFunction_Called = "true" then Call ShowRandomly else Call SimpleSearchPanel end if Sub SearchProductsOrCompanies Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%')" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%') AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%')" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%') AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%')" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND (Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' OR Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%') AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none"> [Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>

style="text-decoration: none">[Click for details]

 
<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub SearchProduct Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub SearchCompanies Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub SearchPhoneFax Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) sSQL = "" if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT * FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(sKey), "'", "''") & "%'" & _ " UNION " sSQL = sSQL + "SELECT * FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(sKey), "'", "''") & "%'" else sSQL = sSQL + "SELECT * FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(sKey), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " sSQL = sSQL + "SELECT * FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(sKey), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub AdvanceProductSearch Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) sCType = Request("ctype") Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if sCType = "one" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(sKey, "'", "''") & " %'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '% " & replace(sKey, "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "between" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "exact" then if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.description Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if elseif sCType = "all" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 sWhere = sWhere & " Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND" NEXT sWhere = sWhere & " Pakistan.description Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sWhere = sWhere & " Pakistan.description Like '%" & replace(sKey, "'", "''") & "%'" end if if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND" & sWhere else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND" & sWhere & " AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if if Trim(Request("city")) <> "0" then sCity = Trim(Request("city")) sSQL = sSQL + " and Pakistan.city Like '%" & replace(sCity, "'", "''") & "%'" end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub AdvanceCompanySearch Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) sCType = Request("ctype") Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if sCType = "one" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(sKey, "'", "''") & " %'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '% " & replace(sKey, "'", "''") & " %' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "between" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "exact" then if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if elseif sCType = "all" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 sWhere = sWhere & " Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND" NEXT sWhere = sWhere & " Pakistan.companyname Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sWhere = sWhere & " Pakistan.companyname Like '%" & replace(sKey, "'", "''") & "%'" end if if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND" & sWhere else sSQL = "SELECT ID, companyname, city, description FROM Pakistan WHERE Publish=True AND" & sWhere & " AND Pakistan.companyname Like '" & Trim(Request("Alpha")) & "%'" end if end if if Trim(Request("city")) <> "0" then sCity = Trim(Request("city")) sSQL = sSQL + " and Pakistan.city Like '%" & replace(sCity, "'", "''") & "%'" end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub AdvancePhoneSearch Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) sCType = Request("ctype") Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if sCType = "one" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" else sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(sKey, "'", "''") & " %'" else sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '% " & replace(sKey, "'", "''") & " %' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "between" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "exact" then if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND Pakistan.phone Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if elseif sCType = "all" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 sWhere = sWhere & " Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND" NEXT sWhere = sWhere & " Pakistan.phone Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sWhere = sWhere & " Pakistan.phone Like '%" & replace(sKey, "'", "''") & "%'" end if if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND" & sWhere else sSQL = "SELECT ID, companyname, city, description, phone FROM Pakistan WHERE Publish=True AND" & sWhere & " AND Pakistan.phone Like '" & Trim(Request("Alpha")) & "%'" end if end if if Trim(Request("city")) <> "0" then sCity = Trim(Request("city")) sSQL = sSQL + " and Pakistan.city Like '%" & replace(sCity, "'", "''") & "%'" end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub AdvanceFaxSearch Call Open_PAK_DBConn Call OpenRec With rstSearch sKey = Trim(Request("keyword")) sCType = Request("ctype") Dim Arra Arra = Split(sKey) sWhere = "" sSQL = "" if sCType = "one" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(Trim(Arra(i)), "'", "''") & " %'" else sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(Trim(Arra(i)), "'", "''") & " %' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(sKey, "'", "''") & " %'" else sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '% " & replace(sKey, "'", "''") & " %' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "between" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" & _ " UNION " else sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" & _ " UNION " end if NEXT if Trim(Request("Alpha")) = "" then sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sSQL = sSQL + "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if else if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if end if elseif sCType = "exact" then if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(sKey, "'", "''") & "%'" else sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND Pakistan.fax Like '%" & replace(sKey, "'", "''") & "%' AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if elseif sCType = "all" then if IsArray(Arra) then FOR i = 0 TO UBOUND(Arra) - 1 sWhere = sWhere & " Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%' AND" NEXT sWhere = sWhere & " Pakistan.fax Like '%" & replace(Trim(Arra(i)), "'", "''") & "%'" else sWhere = sWhere & " Pakistan.fax Like '%" & replace(sKey, "'", "''") & "%'" end if if Trim(Request("Alpha")) = "" then sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND" & sWhere else sSQL = "SELECT ID, companyname, city, description, fax FROM Pakistan WHERE Publish=True AND" & sWhere & " AND Pakistan.fax Like '" & Trim(Request("Alpha")) & "%'" end if end if if Trim(Request("city")) <> "0" then sCity = Trim(Request("city")) sSQL = sSQL + " and Pakistan.city Like '%" & replace(sCity, "'", "''") & "%'" end if sSQL = sSQL + " ORDER BY Pakistan.companyname;" .Open sSQL, GobjConnect, 1, 2 If Not .EOF Then Dim iRec iRec = .RecordCount .MoveFirst iPage = Request("PageNo") if IsEmpty(iPage) then iPage = 1 iTPage = 0 iCounter = 0 while not .eof .movenext if iCounter > 9 then iTPage = iTPage + 1 iCounter = 0 end if iCounter = iCounter + 1 wend iTPage = iTPage + 1 .movefirst iCounter = 0 while not .eof and iCounter < (iPage-1)*10 .movenext iCounter = iCounter + 1 wend iCounter = 0 %>

Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Do While Not .EOF and iCounter < 10 X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext if Not .EOF and iCounter < 10 then X = (iCounter + (iPage * 10)) - 9 %> <% iCounter = iCounter + 1 .MoveNext end if Loop %>
<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<%= cstr(X) %>. <%= ucase(.Fields("companyname"))%> (<%= ucase(.Fields("city"))%>)
  <%= ucase(.Fields("description"))%>
 

style="text-decoration: none">[Click for details]

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" ' Print Address. if not .EOF then Call PrintTemplate end if Response.Write "" ' Handle scroller if not .EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if response.write(scroller_prev + "Previous") if not IsNull(scroller_prev) then response.write "" if iPage * 10 > iRec then sLastRecord = (iPage * 10) - ((iPage * 10) - iRec) else sLastRecord = iPage * 10 end if response.write " [ Records " & ((iPage * 10) - 9) & " to " & sLastRecord & " ] " if .EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if response.write(scroller_next + "Next") if not IsNull(scroller_next) then response.write("") end if Response.Write "
" %>
Searched Yellow Pages of Pakistan For [ <%= sKey%> ] Total Found <%= cstr(iRec)%>, You are at Page <%= cstr(iPage)%>
<% Call ListTemplate %>

Open  Page:


<% Call OtherSearchPanels Else if Trim(Request("Alpha")) <> "" then %>No results found for alphabet <%= Trim(Request("Alpha"))%>, please try again.

<% else %>Sorry no results found, please try again.

<% end if Call OtherSearchPanels End If .Close End With End Sub Sub ListTemplate %>

Alphabetical Listing :   &Alpha=A&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> A  &Alpha=B&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> B  &Alpha=C&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> C  &Alpha=D&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> D  &Alpha=E&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> E  &Alpha=F&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> F  &Alpha=G&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> G  &Alpha=H&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> H  &Alpha=I&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> I  &Alpha=J&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> J  &Alpha=K&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> K  &Alpha=L&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> L  &Alpha=M&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> M  &Alpha=N&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> N  &Alpha=O&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> O  &Alpha=P&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> P  &Alpha=Q&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> Q  &Alpha=R&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> R  &Alpha=S&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> S  &Alpha=T&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> T  &Alpha=U&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> U  &Alpha=V&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> V  &Alpha=W&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> W  &Alpha=X&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> X  &Alpha=Y&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> Y  &Alpha=Z&keyword=<%= Trim(Request("keyword")) %>&PageNo=1&city=<%= Trim(Request("city")) %>&ctype=<%= Trim(Request("ctype")) %>"> Z

<% End Sub Sub OtherSearchPanels %>

          Dear Visitor
,
          You may find more information for [ <%= ucase(trim(Request("keyword"))) %> ] in our other yellow pages categories.

Find [ &PageNo=1&keyword= <%= Trim(Request("keyword")) %>"> <%= ucase(trim(Request("keyword"))) %> ] in Private Limited Companies
Find [ "> <%= ucase(trim(Request("keyword"))) %> ] in a Pak Web Directory
Find [ "> <%= ucase(trim(Request("keyword"))) %> ] in Engineering Industry.
Find [ "> <%= ucase(trim(Request("keyword"))) %> ] in Pakistan Exporters Directory.
Find [ "> <%= ucase(trim(Request("keyword"))) %> ] in International Buyers Directory.

Thank you,
Have a nice day!

<% End Sub Sub PrintTemplate iPage = cstr(trim(Request("PageNo"))) if iPage = "" then iPage = "1" end if %>

&city=<%= Request("city") %>&ctype=<%= Request("ctype") %>&Function=<%= Request("Function") %>&Alpha=<%= Request("Alpha") %>"> Click To Print Mail Address <% End Sub Sub SimpleSearchPanel %>

 Search Yellow Pages of Pakistan. Covering All Cities of Pakistan ...
Search by Product or Service 
    
Enter any Keyword e.g. Property, RENT-A-CAR, Furniture, Food, Computer, Mobile, Cotton,
     Clinic, Electronics, Music, Travel, Visa etc.

Search by a Company Name /Type
     Enter
any part of a Company Name e.g.  Cyber, Technology, Bank, Hotel, Properties,
    
Construction, Mills, Law Associates or Law Firm etc.

Search a Company/ by a Telephone / Fax Caller ID
     Enter only digits without spaces e.g.
2509188  or 111000000. Enter only one Telephone
     Number at a time. To find Telephone Numbers of anyone by Name or Address of a
     Company/ organization or a Person in Pakistan click here
 
     Enter Keyword
    


<% End Sub %>

 Advance Search Options For Pakistan’s Yellow Pages.  
Product or Services. Company Name. Reverse Search By Telephone # Fax
     Find Results   In City
     Enter Single or Multiple Keywords e.g. Oil Gas, Cotton Yarn, Dental Clinic,
    
Computer Networking,  etc.

     Enter Keywords
    
" name=keyword width="20" size="32">

 

Search powered by CCOL
Copyrights 2009 © All rights reserved CYBER CITY ONLINE