<% fullstring = request.ServerVariables("QUERY_STRING") RedirHackers(fullstring) %> <% IF Request("sterm") <> "" THEN sterm = Trim(Request("sterm")) RedirHackers(sterm) sterm = stripHTML(sterm) sterm = stripAlpha(sterm) END IF IF Request("pgs") = "" THEN pgs = 0 ELSE pgs = Request("pgs") RedirHackers(pgs) pgs = stripNumbers(pgs) IF pgs <> "" THEN pgs = Cint(pgs) END IF END IF IF Request("q") <> "" THEN q = Request("q") RedirHackers(q) q = stripNumbers(q) IF q = "" THEN q = 0 END IF ELSE q = 0 END IF IF q > 0 THEN thisq = q Set rsTitle = adoConn.Execute("SELECT * FROM mqans WHERE q_id = '" & thisq & "'") IF rsTitle.EOF THEN rsTitle.Close Set rsTitle = Nothing adoConn.Close Set adoConn = Nothing Response.Redirect "qanda.asp" END IF pagedesc = rsTitle.Fields("q_q") & " - " & rsTitle.Fields("q_a") pagedesc = Replace(pagedesc,"
","") pagedesc = Replace(pagedesc,"'","'") pagedesc2 = pagedesc pagedesc = Left(pagedesc, 200) pagetitle = rsTitle.Fields("q_q") pagetitle = Replace(pagetitle,"
","") pagetitle = Replace(pagetitle,"'","'") rsTitle.Close Set rstitle = Nothing ELSE thisq = 0 pagedesc = "Answers to some common or popular questions at " & clientNm & " our delivery and terms, how to order and what types of " & clientPs2 & " and " & clientPs2 & " we stock." pagetitle = "Answers to some common or popular questions at " & clientNm END IF %> <%=pagetitle%> < !-- 04-08-2019 -->
PowerTrack Ltd are a mail order supplier of Lockheed and Girling Brake & Clutch Parts for British Classic Cars, Commercials and Vintage Cars 1935 to 1980. Mail Order Supplier of Lockheed & Girling Brake & Clutch Components for British Car & Commercial 1935 - 1980
  
 

Frequently Asked Questions

Search our FAQ's:
<% Dim sterm, mylimit, pgs, totcount ' show the answer IF thisq > 0 THEN Set rsFindA = adoConn.Execute("SELECT * FROM mqans WHERE q_id = '" & thisq & "' AND q_status='1'") IF rsFindA.EOF THEN rsFindA.Close Set rsFindA = Nothing adoConn.Close Set adoConn = Nothing Response.Redirect "qanda.asp" END IF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
 
 
Q." & rsFindA.Fields("q_q") & "
A." & rsFindA.Fields("q_a") & "
 
 
" rsFindA.Close Set rsFindA = Nothing END IF ' Code to list the questions mylimit = 25 'How many questions to show per page ' Count up total records SET rsCount = Server.CreateObject("ADODB.Recordset") IF sterm = "" THEN mySQL = "SELECT Count(q_id) AS totcount FROM mqans WHERE q_status='1'" ELSE mySQL = "SELECT Count(q_id) AS totcount FROM mqans WHERE q_q LIKE '%" & sterm & "%' OR q_a LIKE '%" & sterm & "%' AND q_status='1'" END IF rsCount.Open mySQL, strCon totcount = Cint(rsCount("totcount")) rsCount.Close Set rsCount = Nothing IF pgs > totcount THEN adoConn.Close Set adoConn = Nothing Response.Redirect "qanda.asp" END IF SET rsFind = Server.CreateObject("ADODB.Recordset") IF sterm = "" THEN mySQL = "SELECT q_id, q_q FROM mqans WHERE q_status='1'ORDER BY q_q ASC LIMIT " & pgs & "," & mylimit ELSE mySQL = "SELECT q_id, q_q FROM mqans WHERE q_q LIKE '%" & sterm & "%' OR q_a LIKE '%" & sterm & "%' AND q_status='1' ORDER BY q_q ASC LIMIT " & pgs & "," & mylimit END IF rsFind.Open mySQL, strCon Count = 0 Response.Write "" Do while NOT rsFind.EOF Response.Write "" Count = Count + 1 rsFind.MoveNext Loop topfig = pgs + Count Response.Write "
Q." & rsFind.Fields("q_q") & "
" ' To create the previous link Response.Write "
" ELSE Response.Write "
Previous
" END IF ' creating which results we're looking at Response.Write "" ' Create next link IF Count < mylimit OR Cdbl(topfig) = Cdbl(totcount) THEN Response.Write "" ELSE response.write "" END IF Response.Write "
 
" IF pgs = 0 THEN Response.Write " 
Displaying Results " & pgs +1 & "-" & topfig & " of " & totcount & "
 
Next
" rsFind.Close Set adoConn = Nothing Set strCon = Nothing Set rsFind = Nothing %>
 
 
Home page
Products
Brake Master Cylinders
Clutch Master Cylinders
Wheel Cylinders
Clutch Slave Cylinders
Callipers & Pads
Brake Servos & Boosters
Brake Shoes, Discs & Drums
Brake Hoses
Steering & Suspension
Models Covered
Site Search
FAQ's
Feedback
Contact
Tell a friend
Bookmark
 
 
© PowerTrack Ltd 2003 -
Classic Car Brakes