<% Dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") Dim sSQL if Request.QueryString("f") <> "" then sSQL = "select * from cabinets where id = " & Request.QueryString("id") else sSQL = "select * from product where id = " & Request.QueryString("id") end if objRec.open sSQL,strConnect %>
<% if Request.QueryString("f") <> "" then %> <% else %> <% end if %>

<%=objRec("name")%> 

<%=objRec("productname")%> 

"> "> <% if Request.QueryString("f") <> "" then %> (<%=objRec("id")%>)"> <% else %> (<%=objRec("id")%>)"> <% end if %>
Thank you for your intention to purchase the item below. Please fill in our short product enquiry form to enable us to check availability of the item of interest and serve you better.

<% If Session("error") <> "" Then %> <%=Session("error")%>

 <% End If %> <% if Request.QueryString("f") <> "" then %> <% else %> <% end if %>
Product<%=objRec("name")%><%=objRec("productname")%>
Price <%=objRec("price")%>
Your Name ">
Email Address ">
Phone (Work) ">
Phone (Home) ">
Phone (Mobile) ">
Address
Country
Please tell us your specific requirements
Enter the code exactly as you see it in the image (case sensitive)


This is to ensure that information is submitted manually.