<%@ Language=VBScript %> <% Option Explicit %> <% Dim oConn, oRs1, sSql 'DB Connection Variables %> <% Set oConn = Server.CreateObject("ADODB.Connection") %> <% oConn.Open Application("CONNSTR") 'Init DB Connection %> <% '------------ Init Page Variables ------------ %> <% Dim sType, sStatus, sProductLine, sProduct, ProductID %> <% %> <% '------------ =================== ------------ %>

  ARC Administration
  ARC Home
Products  |  Downloads  |  Newsletter  |  Employment  |  What's New  |  Industry Links  |  Subsciber List
Add Product  |  Edit/Delete Product  |  Add Support Product  |  Edit/Delete Support Product

ARC Pressure Data Headquarters

Welcome to the Administration area.

Edit Product <% ProductID = Request.QueryString("p") sSQL = "Select * from products where ProductID='" & ProductID & "'" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> <%sProductLine = oRs1("ProductLine")%> <%sProduct = oRs1("Product")%> <%sType = oRs1("Type")%> <%sStatus = oRs1("Status")%> <%oRs1.MoveNext()%> <%loop%>
Product Line Product Type ProdID Description List Price Status Date Last Updated Edited By Order
"size=10> "> <%=oRs1("LastUpdate")%> <%=oRs1("EditedBy")%> " size=10>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.