<% response.buffer = true %> Asialink Business Guide, Asia Yellow Pages - Web hosting, Web design, Internet service providers, Email solutions, Web and directory advertising, E-Commerce Solutions, USA Server Hosting & Designing - Bizweb Communications
 
 
 
  Hotels
  Restaurants
  Travel Agencies
  Shopping Malls
  Entertainments
  Handicrafts
  Lightings
  Airport
  Banks
  Embassies
  Hospitals
  Ministries
  Overseas
Yellow Pages
  Maids Agency
  Maid Agencies
  Singapore Aquarium
  Malaysia Aquarium
  Malaysia
Yellow Pages
  Singapore
Business Guide
  Altavista
  Google
  InfoSeek
  Lycos
  MSN
  Webcrawler
  Yahoo
 
 
<% set Conn=Server.CreateObject("ADODB.Connection") set RecordSet = Server.CreateObject("ADODB.Recordset") Connection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("cgi-bin/nisha.mdb") conn.open Connection %>
<% catcode=request.querystring("SubCat") if catcode = "" or catcode = null then catcode = "A" End if %>
  <% 'RecordSet.Open "Select * from keywords where keywords like '"& request.querystring("SubCat") & "%' Order By keywords", connection, 1 RecordSet.Open "Select * from keywords where keywords like '"& catcode &"%' Order By keywords", connection, 1 if RecordSet.EOF then %>
Sorry, No Records Inside Database Yet
<% else do until RecordSet.EOF %>
  • "><%=RecordSet("keywords")%>
    <% RecordSet.MoveNext loop %> <% End if %>
  •