<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% fullstring = request.ServerVariables("QUERY_STRING") RedirHackers(fullstring) %> <% IF Request("tc") <> "" THEN tc = Request("tc") RedirHackers(tc) tc = stripNumbers(tc) 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 %> Visitor Feedback and Customer Comments at <%= clientNm %> < !-- 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
  
 

Visitor Feedback

<% mylimit = 10 'How many results to show per page Dim mybg IF tc = "" THEN SET rsCount = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT Count(feed_id) AS totcount FROM mfeed WHERE feed_status =1" rsCount.Open mySQL, strCon totcount = Cint(rsCount("totcount")) rsCount.Close Set rsCount = Nothing ELSE totcount = tc END IF IF pgs > totcount THEN adoConn.Close Set adoConn = Nothing Response.Redirect "feedback.asp" END IF Count = 0 SET rsFind = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM mfeed WHERE feed_status = 1 ORDER BY feed_id DESC LIMIT " & pgs & "," & mylimit rsFind.Open mySQL, strCon Response.Write "" Response.Write "" Do While NOT rsFind.EOF Response.Write "" Response.Write "" Count = Count + 1 rsFind.MoveNext Loop Response.Write "
Recent Visitor Comments
" & rsFind.Fields("feed_comment") Response.Write "

" & rsFind.Fields("feed_name") & " from " & rsFind.Fields("feed_town") & ", " & rsFind.Fields("feed_country") & "


" topfig = pgs + Count IF Count <1 THEN Response.Write "
" Response.Write "

There are no comments yet entered

" ELSE ' 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
" END IF 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