<%@ 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, sCaller, view, LinkID, length, sStatus %>h <% %> <% '------------ =================== ------------ %> ARC Admin
<%sCaller=Request.QueryString("c")%> <%LinkID=Request.QueryString("p")%> <%view=Request.QueryString("view")%> <%length=Request.QueryString("l")%>
  ARC Administration
  ARC Home
Products  |  Downloads  |  Newsletter  |  Employment  |  What's New  |  Industry Links  |  Subsciber List
Add Industry Link  |  Edit/Delete Industry Link

ARC Pressure Data Headquarters

Welcome to the Administration area.

Edit Industry Link <%if sCaller = "error" then%>
The industry link description May not exceed 1500 characters.
The length of the text that you submitted was <%=length%> characters long.
Please correct the length and try agian. <%end if%> <% sSQL = "Select * from links where linkid='" & LinkID & "' order by LastUpdate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> "> <%sStatus=oRs1("status")%>
Title:  " size="30" maxlength="50">
Description: 
URL:  " size="50" maxlength="150">
Status: 
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.