%
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 -->
Mail Order Supplier of Lockheed & Girling Brake & Clutch Components for British Car & Commercial 1935 - 1980
Frequently Asked Questions
<%
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 "
Q.
" & rsFindA.Fields("q_q") & "
"
Response.Write "
A.
" & rsFindA.Fields("q_a") & "
"
Response.Write "
"
Response.Write "
"
Response.Write "
"
Response.Write "
"
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 "