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 %> <% 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 Newsletter

Edit/Delete Newsletter

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="newsletter" then%>

	Add Newsletter
		This area is used to add a new Newsletter to the ARC Newsletter list.
	Edit/Delete Newsletter
		This area is used to edit or delete a Newsletter from the ARC Newsletter list page.

<%elseif sCaller="add" then%> Add File

Topic	File

<%else%> Edit Newsletter Data
Select a Newsletter to Edit <%if view="active" then %> <% sSQL = "Select * from Downloads where status='Active' and Type='Newsletter' order by LastUpdate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="inactive" then %> <% sSQL = "Select * from Downloads where status='Inactive' and Type='Newsletter' order by LastUpdate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from Downloads where Type='Newsletter' order by LastUpdate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%end if%> <% do While not oRs1.EOF %> "> <% vFileSize=oRs1("FileSize") vFileSize=vFileSize/1024 %> <%oRs1.MoveNext()%> <%loop%>

Edit	Delete	Topic	File Name	File Size	Status	Date Last Updated	Edited By
">Edit	">Delete	<%=oRs1("Description")%>	<%=oRs1("FileName")%>	<%=FormatNumber(vFileSize,2)%> KB	<%=oRs1("Status")%>	<%=oRs1("LastUpdate")%>	<%=oRs1("EditedBy")%>