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 %> <% %> <% '------------ =================== ------------ %> ARC Admin <%sCaller=Request.QueryString("c")%> <%view=Request.QueryString("view")%> <%else%> Edit Product
Select a Product to Edit

ARC Administration

ARC Home

Products

Downloads

Newsletter

Employment

What's New

Industry Links

Subsciber List

Add Product

Edit/Delete Product

Add Support Product

Edit/Delete Support Product

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="product" then%>

	Add Product
		This area is used to add items from ARC's product list pages.
	Edit/Delete Product
		This area is used to edit or delete items from ARC's product list pages.
	Add Support Product
		This area is used to add items from ARC's support product list pages.
	Edit/Delete Support Product
		This area is used to edit or delete items from ARC's support product list pages.

<%elseif sCaller="addsupport" then%> Add Support Product

Support Product Data

Product:

Type:

Item:

Specification:

Size:

Usage:

Order:

Vendor Product Data

VendorID:

Vendor:

VendorLink:

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

Product Line	Product	Type	ProdID	Description	List Price	Order

<%elseif sCaller="editsupport" then%> Edit Support Product
Select a Product to Edit <%if view="active" then %> <% sSQL = "Select * from supportproducts where status='Active' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="inactive" then %> <% sSQL = "Select * from supportproducts where status='inactive' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="AMPL" then %> <% sSQL = "Select * from supportproducts where Product='AMPL' and status='Active' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="AMR" then %> <% sSQL = "Select * from supportproducts where Product='AMR' and status='Active' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="product" then %> <% sSQL = "Select * from supportproducts where type='product' and status='Active' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="service" then %> <% sSQL = "Select * from supportproducts where type='service' and status='Active' order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from supportproducts order by Product, Type, vendor, OrderNum, item" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%end if%> <% do While not oRs1.EOF %> "> <%oRs1.MoveNext()%> <%loop%>

Edit

Delete

Product

Type

Item

Specification

Size

Usage

VendorID

Vendor

VendorLink

Order

Status

Date Last Updated

Edited By

">Edit

">Delete

<%=oRs1("Product")%>

<%=oRs1("Type")%>

<%=oRs1("Item")%>

<%=oRs1("Specification")%>

<%=oRs1("supprodsize")%>

<%=oRs1("useage")%>

<%=oRs1("vendorid")%>

<%=oRs1("vendor")%>

<%=oRs1("vendorlink")%>

<%=oRs1("OrderNum")%>

<%=oRs1("Status")%>

<%=oRs1("LastUpdate")%>

<%=oRs1("EditedBy")%>

<%if view="BottomHole" then %> <% sSQL = "Select * from products where ProductLine='BottomHole Pressure Tools' and status='Active' order by ProductLine, Product, Type, OrderNum, ProdID, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="active" then %> <% sSQL = "Select * from products where status='Active' order by ProductLine, Product, Type, OrderNum, ProdID, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="inactive" then %> <% sSQL = "Select * from products where status='Inactive' order by ProductLine, Product, Type, OrderNum, ProdID, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%elseif view="ProductionLogging" then %> <% sSQL = "Select * from products where ProductLine='Production Logging Tools' and status='Active' order by ProductLine, Product, Type, OrderNum, ProdID, Status" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <%else%> <% sSQL = "Select * from products order by ProductLine, Product, Type, OrderNum, ProdID, 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	Product Line	Product	Type	ProdID	Description	List Price	Status	Date Last Updated	Edited By	Order
">Edit	">Delete	<%=oRs1("ProductLine")%>	<%=oRs1("Product")%>	<%=oRs1("Type")%>	<%=oRs1("ProdID")%>	<%=oRs1("Description")%>	<%=oRs1("ListPrice")%>	<%=oRs1("Status")%>	<%=oRs1("LastUpdate")%>	<%=oRs1("EditedBy")%>	<%=oRs1("OrderNum")%>

<%end if%>