<%@ Language=VBScript%>
<%
Response.Expires = -1
id=request.QueryString("id")
pa_qs=request.QueryString("pa")
pa=1 ' Default U.K.
pa_c=request.Cookies("pa")
if pa_c<>"" then pa=cint(pa_c)
if pa_qs<>"" then
pa=cint(pa_qs)
response.Cookies("pa")=pa
end if
Carriage_col=""
select case pa
case 1
Carriage_col="London"
case 2
Carriage_col="Rest of UK"
case 3
Carriage_col="Collection"
case else
response.Status="404 Not Found"
response.End()
end select
if id="" or isnumeric(id)=0 then
response.Status="404 Not Found"
response.End()
end if
Set adoCon = Server.CreateObject("ADODB.connection")' initialize connection
Set rs = Server.CreateObject("ADODB.RecordSet")' initialize record set
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("stockdetails.mdb")
strSQL = "Select * from stockdetails WHERE id="&id
rs.open strSQL,adoCon,1,1 'open record set
if not rs.eof then
product_type=rs("type")
product_desc=rs("Description")
product_other_desc=rs("Description Extra")
product_other_desc1=rs("Description 1")
product_other_desc2=rs("Description 2")
product_other_desc3=rs("Description 3")
product_other_desc4=rs("Description 4")
product_other_desc5=rs("Description 5")
product_other_desc6=rs("Description 6")
product_other_desc7=rs("Description 7")
product_other_desc8=rs("Description 8")
product_other_desc9=rs("Description 9")
product_other_desc10=rs("Description 10")
pic_main=rs("Picture")
pic_sub1=rs("Alt Pic 1")
pic_sub2=rs("Alt Pic 2")
pic_sub3=rs("Alt Pic 3")
pic_sub4=rs("Alt Pic 4")
pic_sub5=rs("Alt Pic 5")
price=rs("Total Retail")
carriage=rs(Carriage_col)
if carriage="" or isnull(carriage) then carriage=0
total_price=price+carriage
else
response.Status="404 Not Found"
response.End()end if
rs.close
adoCon.close
%>
APS Garden Machinery and Bottled Gas Company
