<%@ Language=VBScript %>
<% Option Explicit %>
<%
'Script used to test if transaction succeeded or not.
'If transaction is successful records present in cart
'that match userid are copied in jobs table.
%>

<!--#include file="_ScriptLibrary/adovbs.inc"-->
<!--#include file="datastore.asp"-->
<%
'get userid
Dim sUserID
sUserID = trim(Request.Form("userid"))

'check that userid is not empty. if empty redirect to sorry page
if sUserID = "" then Response.Redirect "http://www.epi-center.net/orders/sorry.html"

'get total charge
Dim iTotal
iTotal = trim(Request.Form("chargetotal"))
'get credit card type
Dim sCCType
sCCType = Trim(Request.Form("cctype"))
'get approval code
Dim sAppCode
sAppCode = Request.Form("approval_code")
'split approval and place in array
Dim aryAppCode
aryAppCode = split(sAppCode,":")

'test first element in array to find out if transaction succeeded	
if aryAppCode(0) = "Y" then 
	'copy records corresponding to userid in cart, to jobs table
	Dim objConn
	Dim rsJobs
	Dim rsCart
	Dim sSQL

	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
	
	'copy corresponding records in cart to jobs table
	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")= -1
		rsJobs.Update
		
		rsCart.MoveNext
	Loop
	
	'delete related records in cart.
	objConn.Execute "DELETE * FROM CART WHERE user_id = '" & sUserID & "'"
	
	'add transaction to the transaction table
	if iTotal <> 0 then
		sSQL = "INSERT INTO JOBTRANSACT (user_id, amount, payment, datepaid) VALUES ('" & sUserID & "', " & iTotal & ", '" & sCCType & "', " & formatdatetime(Date(),0) &  ");"
		objConn.Execute (sSQL)
	end if
	
	end if 'end test empty cart
	
	'Close and release recordset
	rsJobs.Close
	Set rsJobs = Nothing
	
	'close and release recordset
	rsCart.Close
	Set rsCart = Nothing

	'close and release connection
	objConn.Close
	Set objConn = Nothing
	
	'yes: display thank you page
	Response.redirect "http://www.school-jobs.net/jobs/thanks.asp?userid=" & sUserID
else
	'transaction failed
	Response.redirect "http://www.school-jobs.net/jobs/sorry.asp"
end if
%>