<%@ 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, WhatsNewID,length %> <% %> <% '------------ =================== ------------ %> ARC Admin
<%sCaller=Request.QueryString("c")%> <%length=Request.QueryString("l")%> <%view=Request.QueryString("view")%>
  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
<%WhatsNewID=Request.QueryString("p")%> <% sSQL = "Select * from whatsnew where whatsnewid='" & WhatsNewID & "' order by ListDate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %>

ARC Pressure Data Headquarters

Welcome to the Administration area.

Add What's New Topic <%if sCaller = "error" then%>
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 correct the length and try agian. <%end if%> ">
Title:  " size="60" maxlength="50">
What's New Text: 
Link:  " size="60" maxlength="150">
List Date:  " size="10" maxlength="10">
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.