<%
Set adoRes = CreateObject("ADODB.Recordset")
adoRes.CursorLocation = 3 ' adUseClient
lngProductID = request("id")
lngSKUID = request("skuid")
lngCatID = request("catid")
strSQL = "SELECT * FROM Categories WHERE CategoryID = '" & lngCatID & "'"
adoRes.Open strSQL, objConn, adOpenStatic, adLockOptimistic
if not adoRes.EOF then
strCategory = adoRes("Name")
end if
adoRes.Close
strSQL = "SELECT * FROM Products WHERE ProductID = '" & lngProductID & "'"
adoRes.Open strSQL, objConn, adOpenStatic, adLockOptimistic
if not adoRes.EOF then
strProductID = adoRes("ProductID")
strName = adoRes("Name")
strDescription = adoRes("LongDescription")
if not isnull(strDescription) then
strDescription = replace(replace(strDescription,chr(13)," "),chr(10),"")
end if
strTechnical = adoRes("TechnicalDetails")
strImage1 = adoRes("Img1_Thumnail")
strImage2 = adoRes("Img2_Thumnail")
strImage3 = adoRes("Img3_Thumnail")
end if
adoRes.Close
%>
StopTech : Balanced Brake Upgrades
<%=RTrim(Server.HTMLEncode(strCategory & " "))%>
<%
if trim(strImage1) <> "" then
%>
<%
end if
if trim(strImage2) <> "" then
%>
<%
end if
if trim(strImage3) <> "" then
%>
<%
end if
Set adoResSKU = CreateObject("ADODB.Recordset")
adoResSKU.CursorLocation = 3 ' adUseClient
strSQL = "SELECT SKUImage, SKUImage1, SKUTechnicalDescription FROM Product_SKU WHERE Pro_SKU_ID = '" & lngSKUID & "'"
adoResSKU.Open strSQL, objConn, adOpenStatic, adLockOptimistic
if not adoResSKU.EOF then
strSKUImage = adoResSKU("SKUImage")
strSKUImage1 = adoResSKU("SKUImage1")
strSKUTechnical = adoResSKU("SKUTechnicalDescription")
if (trim(strSKUImage) <> "") and (not isNull(strSKUImage)) then
%>
<%
end if
if (trim(strSKUImage1) <> "") and (not isNull(strSKUImage1)) then
%>
<%
end if
end if
%>
<%=RTrim(strName)%>
<%
adoResSKU.Close
set adoRes = nothing
set adoResSKU = nothing
%>