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 File

Hand Deliver File

Edit/Delete File

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="download" then%>

	Add File
		This area is used to add items to ARC's downloads list pages.
	Hand Deliver File
		This area is used to add items to ARC's downloads list pages with the ftp proccess.
	Edit/Delete File
		This area is used to edit or delete items from ARC's downloads list pages.

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

Type	Download	Description	File	Order

<%elseif sCaller="handdeliver" then%> Hand Deliver File
You must first ftp the file to the correct folder on the server before adding the file to the list.

Type	Download	Description	File Name	File Size(MB)	Order

<%elseif sCaller="error" then%> Error with Hand Delivered File

The file you attempted to add is not on the server or is not in the correct directory
Please ftp the file to the production server and click here to try again.

<%else%> Edit File Data
Select a File to Edit <%if view="Product" then %> <% sSQL = "Select * from Downloads where type='Product' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="active" then %> <% sSQL = "Select * from Downloads where status='Active' and Type <> 'Newsletter' order by Type, OrderNum, Status" 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 Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="Service" then %> <% sSQL = "Select * from downloads where type='Service' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="Form" then %> <% sSQL = "Select * from downloads where Download='Form' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="Catalog" then %> <% sSQL = "Select * from downloads where Download='Catalog' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="Software" then %> <% sSQL = "Select * from downloads where Download='Software' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="ExampleReport" then %> <% sSQL = "Select * from downloads where Download='ExampleReport' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="WhitePaper" then %> <% sSQL = "Select * from downloads where Download='WhitePaper' and status='Active' order by Type, OrderNum, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from Downloads where Type <> 'Newsletter' order by Type, OrderNum, Status" 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	Type	Download	Description	File Name	File Size	Status	Date Last Updated	Edited By	Order
">Edit	">Delete	<%=oRs1("Type")%>	<%=oRs1("Download")%>	<%=oRs1("Description")%>	<%=oRs1("FileName")%>	<%=FormatNumber(vFileSize,2)%> KB	<%=oRs1("Status")%>	<%=oRs1("LastUpdate")%>	<%=oRs1("EditedBy")%>	<%=oRs1("OrderNum")%>