<%@ 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, sStatus %> <% Dim vFileSize %> <% %> <% '------------ =================== ------------ %> 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 Subscriber  |  Search for a Subscriber  |  Edit/Delete Subscriber

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="subscriber" then%>
  Add Subscriber
    This area is used to add subscribers to ARC's Newsletter Subscriber list.
  Search for a Subscriber
    This area is used find a subscriber on ARC's Newsletter Subscriber list.
  Edit/Delete File
    This area is used to edit or delete a subscriber's information from ARC's Newsletter Subscriber list.
<%elseif sCaller="add" then%>
Add Subscriber
First Name  Address Line 1 
Last Name   Address Line 2 
Company  City 
Phone Number   State/Province 
 Fax Number   Zip Code 
Email Address  Country 
<%elseif sCaller="search" then%>
Search for a Subscriber
First Name  Address Line 1 
Last Name   Address Line 2 
Company  City 
Phone Number   State/Province 
 Fax Number   Zip Code 
Email Address  Country 
<%elseif sCaller="details" then%>
Subscriber Details

<% sSQL = "Select * from Subscribers where subscriberid=" & Request.QueryString("p") & "" %> <% set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %>
First Name:  <%=oRs1("FirstName")%>   Address Line 1:  <%=oRs1("AddressLine1")%>
Last Name:  <%=oRs1("LastName")%>    Address Line 2:  <%=oRs1("AddressLine2")%>
Company:  <%=oRs1("Company")%>   City:  <%=oRs1("City")%>
Phone Number:  <%=oRs1("PhoneNumber")%>    State/Province:  <%=oRs1("State")%>
 Fax Number:  <%=oRs1("FaxNumber")%>    Zip Code:  <%=oRs1("ZipCode")%>
Email Address:  <%=oRs1("EmailAddress")%>   Country:  <%=oRs1("Country")%>
<%elseif sCaller="editdetails" then%>
Edit Subscriber Details

<% sSQL = "Select * from Subscribers where subscriberid=" & Request.QueryString("p") & "" %> <% set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %>
"> <%sStatus = oRs1("Status")%>
First Name  " size="30" maxlength="50"> Address Line 1  " size="30" maxlength="50">
Last Name  " size="30" maxlength="50">  Address Line 2  " size="30" maxlength="50">
Company  " size="30" maxlength="50"> City  " size="30" maxlength="50">
Phone Number  " size="30" maxlength="50">  State/Province  " size="30" maxlength="50">
 Fax Number  " size="30" maxlength="50">  Zip Code  " size="30" maxlength="50">
Email Address  " size="30" maxlength="50"> Country  " size="30" maxlength="50">
Status 
<%else%>
Edit Subscriber Data
Select a Subscriber to Edit <%if view="active" then %> <% sSQL = "Select * from Subscribers where status='Active' order by LastName, FirstName, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="inactive" then %> <% sSQL = "Select * from Subscribers where status='Inactive' order by FirstName, LastName, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from Subscribers order by FirstName, LastName, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%end if%> <% do While not oRs1.EOF %> "> <%oRs1.MoveNext()%> <%loop%>
Edit Delete Details First Name Last Name Company Email Address Status Date Last Updated
">Edit ">Delete ">Details <%=oRs1("FirstName")%> <%=oRs1("LastName")%> <%=oRs1("Company")%> <%=oRs1("EmailAddress")%> <%=oRs1("Status")%> <%=oRs1("LastUpdate")%>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.