<%@ 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, sDownload, DownloadID %> <% %> <% '------------ =================== ------------ %>

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

ARC Pressure Data Headquarters

Welcome to the Administration area.

Edit Download <% DownloadID = Request.QueryString("p") sSQL = "Select * from downloads where DownloadID='" & DownloadID & "'" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> <%sStatus = oRs1("Status")%> <%oRs1.MoveNext()%> <%loop%>
Type Download Description File Name File Size Status Date Last Updated Edited By Order
<%=oRs1("Type")%> <%=oRs1("Download")%> <%=oRs1("FileName")%> <%=oRs1("FileSize")%> <%=oRs1("LastUpdate")%> <%=oRs1("EditedBy")%> " size=10>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.