<%@ 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 What's New Topic  |  Edit/Delete What's New Topic

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="whatsnew" then%>
  Add What's New Topic
    This area is used to add topics to ARC's What's New page.
  Edit/Delete What's New Topic
    This area is used to edit or delete topics from ARC's What's New page.
<%elseif sCaller="error" then%> <% dim length length=Request.QueryString("l") %>
Add What's New Topic


The text of the What's New Topic May not exceed 1700 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 What's New Topic
Title: 
What's New Text: 
Link: 
List Date: 
<%else%>
Edit What's New Topic
Select a What's New Topic to Edit <% sSQL = "Select * from whatsnew order by ListDate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> "> <%oRs1.MoveNext()%> <%loop%>
Edit Delete Title List Date
">Edit ">Delete <%=Replace(oRs1("title"),"~","'")%> <%=oRs1("listdate")%>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.