% @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 %>
<%
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("
|
||||||
PRODUCTS | ||||||
" & chr(13) & chr(10)) Response.Write(" | " & "" & obco.Fields("ProductName").Value & " | " & chr(13) & chr(10)) Response.Write("" & chr(13) & chr(10)) Response.Write(" | " & "" & obco.Fields("ProductName").Value & " | " & 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 %>|||
CATALOG | ||||||
QUOTE REQUEST | ||||||
WARRANTY | ||||||