<%@ 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 supportproducts where SupportProductID='" & ProductID & "'" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %>
Product: <%sProduct = oRs1("Product")%> Type: <%sType = oRs1("Type")%> Item: ">
Specification:
">
Size: Usage: "> Order: ">

Vendor Product Data
VendorID: "> Vendor: "> VendorLink: ">


Support Product Status:
<%sStatus = oRs1("Status")%> Status: Date Last Updated: <%=oRs1("LastUpdate")%> Edited By: <%=oRs1("EditedBy")%>
<%oRs1.MoveNext()%> <%loop%>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.