<% @language=VBScript %> <% Dim cst Dim recno cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Dim strPath strPath=LCase(Server.MapPath("database\Decoform.mdb")) cst = cst & strPath Dim adoConnection Dim obco Set adoConnection = Server.CreateObject("ADODB.Connection") adoConnection.ConnectionString=cst adoConnection.Open Set obco=Server.CreateObject("ADODB.Recordset") set obco.ActiveConnection= adoConnection obco.Open "SELECT Product_id,ProductName FROM Products " ,adoConnection recno=0 obco.MoveFirst while not obco.EOF recno=recno+1 obco.MoveNext wend %> <% 'Dim cst 'cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 'Dim strPath 'strPath=LCase(Server.MapPath("database\Decoform.mdb")) 'cst = cst & strPath 'Dim adoConnection 'Set adoConnection = Server.CreateObject("ADODB.Connection") 'adoConnection.ConnectionString=cst 'adoConnection.Open obco.MoveFirst while not obco.EOF Response.Write("" & chr(13) & chr(10)) if CInt(Request.QueryString("id")) = obco.Fields("product_id").Value then Response.Write("" & chr(13) & chr(10)) Response.Write("" & chr(13) & chr(10)) Response.Write("" & chr(13) & chr(10)) else Response.Write("" & chr(13) & chr(10)) Response.Write("" & chr(13) & chr(10)) Response.Write("" & chr(13) & chr(10)) end if obco.MoveNext wend obco.Close set obco = nothing adoConnection.Close set adoConnection=nothing %>
    <% Set obco1=Server.CreateObject("ADODB.Recordset") set obco1.ActiveConnection= adoConnection obco1.Open "SELECT * FROM Products where Product_id=" & Request.QueryString("id") ,adoConnection if not obco1.EOF then Response.Write("
") Response.Write obco1.Fields("ProductTitle").Value & "


" & chr(13) & Chr(10) Response.Write("

") Response.Write obco1.Fields("ProductDescription").Value & "

" & chr(13) & Chr(10) else Response.Write("



") Response.Write "There is an error with the parameters of this page . If you got here using a link " & _ "please contact the web master.

" & chr(13) & Chr(10) end if obco1.Close set obco1=nothing %>
 
PRODUCTS
" & "" & obco.Fields("ProductName").Value & "
 " & "" & obco.Fields("ProductName").Value & "
CATALOG
QUOTE REQUEST
 

Rep

Customer

WARRANTY
Client Login