|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobs/ |
Upload File : |
<%@ Language=VBScript %>
<% option explicit %>
<%
Dim sTitle
sTitle = "Checkout"
%>
<!--#include file="_ScriptLibrary/adovbs.inc"-->
<!--#include file="datastore.asp"-->
<!--#include file=header.asp-->
<!--#include file=top.asp-->
<%
Dim objConn
Dim rsJobs
Dim rsCart
Dim sUserID, iCount
Dim sSQL
Dim iTotal
sUserID = trim(Request("userid"))
'check that neither fields are empty. if empty redirect to login screen
if sUserID = "" then Response.Redirect "login.asp?menu=school"
Set objConn = server.CreateObject("ADODB.Connection") 'Connection object
Set rsCart = server.CreateObject("ADODB.Recordset") 'Recordset object
Set rsJobs = server.CreateObject("ADODB.Recordset") 'Recordset object
'open the connection object
objConn.Open sConnect
'open the CART table
rsCart.Open "CART", objConn, 3, 3
'open the JOB table
rsJobs.Open "SELECT * FROM JOB", objConn, 3, 3
'Filter the recordset
rsCart.Filter = "user_id = '" & sUserID & "'"
If Not rsCart.EOF then rsCart.MoveFirst
iTotal = 0 'Set total to zero
Do While Not rsCart.EOF
rsJobs.AddNew
rsJobs("school_id") = rsCart("school_id")
rsJobs("title") = rsCart("title")
rsJobs("start_date") = rsCart("start_date")
rsJobs("expertise")= rsCart("expertise")
rsJobs("degree_req") = rsCart("degree_req")
rsJobs("special_qual") = rsCart("special_qual")
rsJobs("job_description") = rsCart("job_description")
rsJobs("minsalary") = rsCart("minsalary")
rsJobs("maxsalary") = rsCart("maxsalary")
rsJobs("peryrhr") = rsCart("peryrhr")
rsJobs("contact_name") = rsCart("contact_name")
rsJobs("contact_areacode") = rsCart("contact_areacode")
rsJobs("contact_phone") = rsCart("contact_phone")
rsJobs("contact_email") = rsCart("contact_email")
rsJobs("date_submitted")= Date()
rsJobs("graceperiod")= rsCart("graceperiod")
rsJobs("price") = rsCart("price")
rsJobs("active")= 0
rsJobs.Update
iTotal = iTotal + rsCart("price")
rsCart.MoveNext
Loop
rsJobs.Close
Set rsJobs = Nothing
'Filter the recordset
rsCart.Filter = "user_id = '" & sUserID & "'"
if not rsCart.EOF then
'Count items in Cart
rsCart.MoveLast
iCount = rsCart.RecordCount
else
iCount=0
end if
if not rsCart.EOF then
objConn.Execute "DELETE * FROM CART"
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title><%=sTitle%></title>
<style type="text/css">
A { font-family: verdana; color: #0033FF; font-size: 10pt; text-decoration: none; font-weight: bold}
A:Hover {font-family: verdana; font-size: 10pt; font-style: bold; text-decoration: underline; color="#000000"}
TD.title {font-family: trebuchet MS; font-size: 18pt; font-style: normal; color: #990000;font-weight: bold}
TD {font-family: verdana; font-size: 14pt}
.name {font-family: verdana; font-weight: bold; color: #FFFFFF;font-size: 14pt}
.criteria {font-family: arial; font-size: 9pt}
.qlinks {font-family: arial; font-size: 8pt}
</style>
</HEAD>
<BODY>
<H1><CENTER><FONT COLOR="#ff0c25">Check Out Area</FONT></CENTER></H1>
<%
if not rsCart.EOF then
Response.write "<center><b><font color=""008000"">Thank you. <p>"
Response.write "Your total is " & FormatCurrency(iTotal) & "</font></b></center><p>"
else
Response.Write "Your Cart is empty.<p><a href=""default.asp"">Home</a>"
end if
rsCart.Close
Set rsCart = Nothing
if iTotal <> 0 then
sSQL = "INSERT INTO TRANSACTION (user_id, amount) VALUES ('" & sUserID & "', " & iTotal & ");"
objConn.Execute (sSQL)
end if
objConn.Close
Set objConn = Nothing
%>
<P></P><center><H4><B><FONT COLOR="#0000ff">Your Jobs Are Not Visible To The World Until Payment Has Been Received</FONT></B></H4></center>
<H2><CENTER><FONT COLOR="#ff0c25">Payment Options</FONT></CENTER></H2>
<P></P>
<PRE><B><FONT COLOR="#0000ff">You have 3 payment options:</FONT></B></PRE>
<PRE><IMG align=bottom height=21 src="images/pingreen.jpg" width="21"
NATURALSIZEFLAG="3"><B><FONT COLOR="#a52a2a">Send a check</FONT></B></PRE>
<BLOCKQUOTE>
<PRE><B>Our address is:
School Jobs
EPICENTER, Inc.
4200 Sheridan Street
Hyattsville, MD 20782</B>
</PRE>
</BLOCKQUOTE>
<PRE><IMG align=bottom height=21 src="images/pingreen.jpg" width="21"
NATURALSIZEFLAG="3"><B><FONT COLOR="#a52a2a">Send an approved purchase order</FONT></B></PRE>
<BLOCKQUOTE><PRE><B>You can send us your approved
purchase order by postal mail
or by FAX. </B></PRE>
<PRE><B>Our FAX number is 301-864-5617 </B></PRE>
</BLOCKQUOTE>
<PRE><IMG align=bottom height=21 src="images/pingreen.jpg" width="21"
NATURALSIZEFLAG="3"><B><FONT COLOR="#a52a2a">By secure credit card transaction</FONT></B></PRE>
<BLOCKQUOTE>
<PRE><B>Coming Soon! </B></PRE>
</BLOCKQUOTE>
<PRE><CENTER><A href="default.asp">Back to Home</A></CENTER></PRE>
<PRE></PRE>
<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->
</BODY>
</HTML>