<%@ Language=VBScript %>

<% Option Explicit %>

<!--#include file="_ScriptLibrary/adovbs.inc"-->
<!--#include file="datastore.asp"-->

<%

Dim sUserID
sUserID = Trim(Request("userid"))

Dim iItemID
iItemID = Request("itemid")

if sUserID = "" then Response.Redirect "login.asp?menu=school"

if (Request.Form("txtJobTitle") <> "") and _
	(Request.Form("cboExpertise") <> "0") and (Request.Form("txtStartDate") <> "") and _
	(Request.Form("cboEducation") <> "0") and (Request.Form("txtJobDesc") <> "") and _
	(Request.Form("txtLowSalary") <> "") and (Request.Form("txtHighSalary") <> "") and (Request.Form("cboDuration") <> "0") and _
	(Request.Form("txtArea") <> "") and (Request.Form("txtPhone") <> "") and (Request.Form("txtContactName") <> "") then
	
	Dim cnSchoolJobs
	Set cnSchoolJobs = server.CreateObject("ADODB.Connection")	'Connection object
	'open the connection object
	if cnSchoolJobs.State = 0 then	'only open if the connection is closed
		cnSchoolJobs.Open sConnect
	end if

	Dim rsCart
	Set rsCart = server.CreateObject("ADODB.Recordset")		'Recordset object
	
	'populate recordset
	rsCart.Open "CART", cnSchoolJobs, 0, 3, adCmdTable

	'Filter recordset and get edited job
	rsCart.Filter = "user_id = '" & sUserID & "' AND itemid=" & iItemID

	rsCart("title") = Request.Form("txtJobTitle")
	rsCart("expertise") = Request.Form("cboExpertise")
	rsCart("start_date") = Request.Form("txtStartDate")
	rsCart("degree_req") = Request.Form("cboEducation")
	rsCart("special_qual") = Request.Form("txtSpecialQual")
	rsCart("job_description") = Request.Form("txtJobDesc")
	rsCart("minsalary") = Request.Form("txtLowSalary")
	rsCart("maxsalary") = Request.Form("txtHighSalary")
	rsCart("peryrhr") = Request.Form("radPerYrHr")
	rsCart("graceperiod") = Request.Form("cboDuration")
	rsCart("contact_name") = Request.Form("txtContactName")
	rsCart("contact_areacode") = Request.Form("txtArea")
	rsCart("contact_phone") = Request.Form("txtPhone")
	rsCart("contact_email") = Request.Form("txtContactEmail")
	rsCart.Update
		
	rsCart.Close
	Set rsCart = Nothing

	cnSchoolJobs.Close
	Set cnSchoolJobs = Nothing
		
	Response.redirect "checkout.asp?userid=" & sUserID
	
else
	Response.Redirect "editcjob.asp?userid=" & sUserID & "&job=" & iItemID
	
end if
%>