PW Sales ¦ Electrical Wholesale & Domestic Retailer, Banbridge, Northern Ireland


 <% dim nav,navImg dim pagetitle nav = request.querystring("nav") if Session("RegThanks")="OK" Then nav="2" End If if nav = "1" then navImg = "homepage" elseif nav = "2" then navImg = "products" elseif nav = "0" then navImg = "links" elseif nav = "4" then navImg = "offers" elseif nav = "5" then navImg = "aboutus" elseif nav = "6" then navImg = "contact" else navImg = "homepage" end if Session("RegThanks")="" %>
 
   <%= FormatDateTime(Date, 1) %> Quick Search  
 Untitled 1 <% Dim rsLinks Dim strConnLinks Dim ConnLinks Set ConnLinks = CreateObject("ADODB.Connection") 'strConn = "driver={MySQL ODBC 3.51 Driver};option=16387;server=localhost;user=root;password=starwar5;DATABASE=db_pwsales;" strConnLinks = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\db_pwsales.mdb") & ";Jet OLEDB:Database Password=w1ll1s;" 'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\db_pwsales.mdb") & ";Jet OLEDB:Database Password=w1ll1s;" ConnLinks.open strConnLinks SQLText = "SELECT * FROM useful_links ORDER BY LinkDescription" set rsLinks=ConnLinks.execute(SQLText) %>
<% LCID=2057 dim rs,conn,strConn Function openConn() Set Conn = CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\db_pwsales.mdb") & ";Jet OLEDB:Database Password=w1ll1s;" 'strConn = "driver={MySQL ODBC 3.51 Driver};option=16387;server=localhost;user=root;password=starwar5;DATABASE=db_pwsales;" Conn.open strConn End Function Function closeConn() Conn.close set Conn = nothing End Function call openConn() %> <% set rs=conn.execute(Session("DomesticNavSQL")) %> <% do while not rs.Eof %> <% rs.MoveNext Loop rs.Close %>
Browse > " & rs("MainCategory") & "&SubCat=NULL"%>"><% Response.Write "-> " & rs("MainCategory") %>
<% do while not rsLinks.Eof %> <% rsLinks.MoveNext Loop %>
Link Description / Company Name  
<% Response.Write rsLinks("LinkDescription") %> " target="_blank">  
     
 
 
<% Set ConnLinks = nothing %>

To keep up-to-date with latest offers and new product launches please submit your mobile number  below;

 
 

 Untitled 1
 
 
 Copyright
© PW Sales 2008    
Site designed by Atom Software