<%@ 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")%> <%end if%>
  ARC Administration
  ARC Home
Products  |  Downloads  |  Newsletter  |  Employment  |  What's New  |  Industry Links  |  Subsciber List
Add Employment Opportunity  |  Edit/Delete Employment Opportunity

ARC Pressure Data Headquarters

Welcome to the Administration area.

<%if sCaller="employment" then%>
  Add Employment Opportunity
    This area is used to add Employment Opportunity to ARC's Employment page.
  Edit/Delete Employment Opportunity
    This area is used to edit or delete Employment Opportunity from ARC's Employment page.
<%elseif sCaller="add" then%>
Add Employment Opportunity
Title: 
Location:  city, state
Job Description: 
Required Skills/Education: 
<%else%>
Edit Employment Opportunity
Select a Employment Opportunity to Edit <% sSQL = "Select * from employment order by ListDate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> "> <%oRs1.MoveNext()%> <%loop%>
Edit Delete Job Title Location ListDate
">Edit ">Delete <%=oRs1("jobtitle")%> <%=oRs1("location")%> <%=oRs1("ListDate")%>
ARC Pressure Data Administration
Copyright © 2002 ARC Pressure Data, Inc.