ARC Admin

<%@ 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 %> <% %> <% '------------ =================== ------------ %> ARC Admin <%sCaller=Request.QueryString("c")%> <%view=Request.QueryString("view")%> <%end if%>

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.

<%if sCaller="links" then%>

	Add Industry Link
		This area is used to add link to ARC's Industry Links page.
	Edit/Delete Industry Link
		This area is used to edit or delete links from ARC's Industry Links page.

<%elseif sCaller="error" then%> <% dim length length=Request.QueryString("l") %> Add Industry Link

The text of the Industry Link description May not exceed 1500 characters.
The length of the text that you submitted was <%=length%> characters long.
Please click the back button to correct the length and try agian. <%elseif sCaller="add" then%> Add Industry Link

Title:
Description:
URL:

<%else%> Edit Industry Link
Select a Industry Link to Edit <%if view="inactive" then %> <% sSQL = "Select * from links where status='Inactive'" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from links where status='Active'" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%end if%> <% do While not oRs1.EOF %> "> <%oRs1.MoveNext()%> <%loop%>

Edit	Delete	Title	URL	Status	Last Updated
">Edit	">Delete	<%=Replace(oRs1("title"),"~","'")%>	<%=oRs1("url")%>	<%=oRs1("status")%>	<%=oRs1("LastUpdate")%>