|
xterradane -> Not Posting (5/6/2002 22:59:08)
|
The following is the page which is suppose to post to the DB. It will as long as all fields are filled in. However, I don't want it to be required. I checked the DB and none of the fields have been set to required. Any ideas?
<!--METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll"-->
<%
Dim objConn
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "DSN=JobBoard"
Dim rsJob
Set rsJob = Server.CreateObject("ADODB.Recordset")
rsJob.Open "Job", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rsJob.AddNew
rsJob("EMail") = Session("EMail")
rsJob("CompanyName") = Session("CompanyName")
rsJob("JobType") = Request.Form("JobType")
rsJob("JobTitle") = Request.Form("JobTitle")
rsJob("Education") = Request.Form("Education")
rsJob("Certification") = Request.Form("Certification")
rsJob("JobDescription") = Request.Form("JobDescription")
rsJob("Experience") = Request.Form("Experience")
rsJob("PayRange") = Request.Form("PayRange")
rsJob("Benefits") = Request.Form("Benefits")
rsJob("City") = Request.Form("City")
rsJob("State") = Request.Form("State")
rsJob("Country") = Request.Form("Country")
rsJob("ApplicantInstructions") = Request.Form("ApplicantInstructions")
rsJob("DaysPosted") = Request.Form("DaysPosted")
rsJob("DatePosted") = Date
rsJob("DateExpires") = Date + Request.Form("DaysPosted")
If Request.Form("DaysPosted")= 30 Then
rsJob("AmountOwed") = 25
Else If Request.Form("DaysPosted") = 60 Then
rsJob("AmountOwed") = 45
Else If Request.Form("DaysPosted") = 90 Then
rsJob("AmountOwed") = 60
End If
End If
End If
rsJob.Update
NewID=rsJob("ID")
Dim strName, strValue
For each strField in rsJob.Fields
strName = strField.Name
strValue = strField.Value
Session(strName) = strValue
Next
Session("blnValidUser") = True
rsJob.Close
Set rsJob=Nothing
Response.Redirect "AddJob1.asp?"
%>
<!--#include file="Disconnect.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>AddJob</title>
<meta name="Microsoft Border" content="b, default">
</head>
<body></body>
</html>
|
|
|
|
