Hi
This is my first asp form so please be gentle with me
It's a publications ordering form. I've got the form and the asp code setup, when the form is sent the name of the publication comes through but not the amount ordered - i'm sure i've made a simple mistake somewhere - can anyone spot why the order amount isn't coming through. Any help is much appreciated.Thank you.
Form:
This is my first asp form so please be gentle with me
It's a publications ordering form. I've got the form and the asp code setup, when the form is sent the name of the publication comes through but not the amount ordered - i'm sure i've made a simple mistake somewhere - can anyone spot why the order amount isn't coming through. Any help is much appreciated.Thank you.
Code:
<%
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Organisation
Dim PostalAddress
Dim Email
Dim Workbook
Dim thepayandemploymentequityplanofaction
Dim whatispayandemploymentequity
Dim payandemploymentequityplanofaction
Dim workinginajointemployerunionreviewcommitteeonpayandemploymentequity
Dim thehistoryofpayandemploymentequityinsomewhere
Dim definitionsofpayandemploymentequityterms
Dim payandemploymentequitycontestablefund
Dim frequentlyaskedquestions
Dim payinvestigations
Dim equitablejobevaluation
Dim steeringgroupannualreport
Dim sumdepartmentofCompany
Dim fulldepartmentofCompany
Dim sumeducationreviewoffice
Dim fulleducationreviewoffice
Dim sumstationblue
Dim fullstationblue
Dim equitablejobevaluationtool
' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "myemail@myemail.com"
Subject = Trim(Request.Form("Subject"))
Name = Trim(Request.Form("Name"))
Email = Trim(Request.Form("Email"))
Organisation = Trim(Request.Form("Organisation"))
PostalAddress = Trim(Request.Form("PostalAddress"))
Workbook = Trim(Request.Form("Workbook"))
thepayandemploymentequityplanofaction = Trim(Request.Form("thepayandemploymentequityplanofaction"))
whatispayandemploymentequity = Trim(Request.Form("whatispayandemploymentequity"))
payandemploymentequityplanofaction = Trim(Request.Form("payandemploymentequityplanofaction"))
workinginajointemployerunionreviewcommitteeonpayandemploymentequity = Trim(Request.Form("workinginajointemployerunionreviewcommitteeonpayandemploymentequity"))
thehistoryofpayandemploymentequityinsomewhere = Trim(Request.Form("thehistoryofpayandemploymentequityinsomewhere"))
definitionsofpayandemploymentequityterms = Trim(Request.Form("definitionsofpayandemploymentequityterms"))
payandemploymentequitycontestablefund = Trim(Request.Form("payandemploymentequitycontestablefund"))
frequentlyaskedquestions = Trim(Request.Form("frequentlyaskedquestions"))
payinvestigations = Trim(Request.Form("payinvestigations"))
equitablejobevaluation = Trim(Request.Form("equitablejobevaluation"))
steeringgroupannualreport = Trim(Request.Form("steeringgroupannualreport"))
sumdepartmentofCompany = Trim(Request.Form("sumdepartmentofCompany"))
fulleducationreviewoffice = Trim(Request.Form("fulleducationreviewoffice"))
sumeducationreviewoffice = Trim(Request.Form("sumeducationreviewoffice"))
fulleducationreviewoffice = Trim(Request.Form("fulleducationreviewoffice"))
sumstationblue = Trim(Request.Form("sumstationblue"))
fullstationblue = Trim(Request.Form("fullstationblue"))
equitablejobevaluationtool = Trim(Request.Form("equitablejobevaluationtool"))
' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Organisation: " & Organisation & VbCrLf
Body = Body & "Postal Address: " & PostalAddress & VbCrLf
Body = Body & "Email: " & Email & VbCrLf
Body = Body & "Workbook: " & Workbook & VbCrLf
Body = Body & "The Pay and Employment Equity Plan of Action: " & thepayandemploymentequityplanofaction & VbCrLf
Body = Body & "What is Pay and Employment Equity?: " & whatispayandemploymentequity & VbCrLf
Body = Body & "Working in a Joint Employer/Union Review Committee on Pay and Employment Equity: " & workinginajointemployerunionreviewcommitteeonpayandemploymentequity & VbCrLf
Body = Body & "The History of Pay and Employment Equity in some where: " & thehistoryofpayandemploymentequityinsomewhere & VbCrLf
Body = Body & "Definitions of Pay and Employment Equity Terms: " & definitionsofpayandemploymentequityterms & VbCrLf
Body = Body & "Pay and Employment Equity Contestable Fund: " & payandemploymentequitycontestablefund & VbCrLf
Body = Body & "Frequently Asked Questions: " & frequentlyaskedquestions & VbCrLf
Body = Body & "Pay Investigations: " & payinvestigations & VbCrLf
Body = Body & "Equitable Job Evaluation: " & equitablejobevaluation & VbCrLf
Body = Body & "Steering Group Annual Report: " & steeringgroupannualreport & VbCrLf
Body = Body & "Case Study: My Company, Summary: " & sumdepartmentofCompany & VbCrLf
Body = Body & "Case Study: My Company, Full: " & fulldepartmentofCompany & VbCrLf
Body = Body & "Case Study: Education Review Office, Summary: " & sumeducationreviewoffice & VbCrLf
Body = Body & "Case Study: Education Review Office, Full: " & fulleducationreviewoffice & VbCrLf
Body = Body & "Case Study: Station Blue, Summary: " & sumstationblue & VbCrLf
Body = Body & "Case Study: Station Blue, Full: " & fullstationblue & VbCrLf
Body = Body & "Assessment Details: Equitable Job Evaluation Tool: " & equitablejobevaluationtool & VbCrLf
Set Email = Server.CreateObject("CDO.Message")
Set EMailConfig = Server.CreateObject("CDO.Configuration") 'calls CDO configuration COM object
'Set Flds = EmailConfig.Fields
With EmailConfig.Fields
.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 1 'tells cdo we are using the local smtp service
.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")[/URL] = "c:\inetpub\mailroot\pickup" 'verify that this path is correct
.Update 'updates CDOs configuration
End With
With Email
.Configuration = EMailConfig
.From = "Stuff"
.Subject = "Stuff From Website"
.TextBody = body
.To = "myemail@myemail.com"
.Send
End With
Set EMailConfig = nothing
Set Email = Nothing
Response.Redirect "orderdone.asp"
%>Form:
Code:
<table>
<tr>
<td bgcolor="#E0E0E0"><b>Download now?</b></td>
<td bgcolor="#E0E0E0"><b>Publication title </b></td>
<td colspan="2" bgcolor="#E0E0E0"><b>How many copies? </b></td>
</tr>
<tr>
<td width="102">Yes</td>
<td width="338"><label for="workbook">Workbook</label></td>
<td colspan="2"><input type="text" id="workbook" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="thepayandemploymentequityplanofaction">The Pay and Employment Equity Plan of Action</label></td>
<td colspan="2"><input type="text" id="thepayandemploymentequityplanofaction" size="3"/></td>
</tr>
<tr>
<td colspan="4" bgcolor="#E0E0E0"><b>Fact Sheets </b></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="whatispayandemploymentequity">What is Pay and Employment Equity?</label></td>
<td colspan="2"><input type="text" id="whatispayandemploymentequity" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="payandemploymentequityplanofaction">Pay and Employment Equity Plan of Action</label></td>
<td colspan="2"><input type="text" id="payandemploymentequityplanofaction" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="workinginajointemployerunionreviewcommitteeonpayandemploymentequity">Working in a Joint Employer/Union Review Committee on Pay and Employment Equity</label></td>
<td colspan="2"><input type="text" id="workinginajointemployerunionreviewcommitteeonpayandemploymentequity" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="thehistoryofpayandemploymentequityinsomewhere">The History of Pay and Employment Equity in some where</label>
</td><td colspan="2"><input type="text" id="thehistoryofpayandemploymentequityinsomewhere" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="definitionsofpayandemploymentequityterms">Definitions of Pay and Employment Equity Terms</label></td>
<td colspan="2"><input type="text" id="definitionsofpayandemploymentequityterms" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="payandemploymentequitycontestablefund ">Pay and Employment Equity Contestable Fund</label></td>
<td colspan="2"><input type="text" id="payandemploymentequitycontestablefund" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="frequentlyaskedquestions">Frequently Asked Questions</label></td>
<td colspan="2"><input type="text" id="frequentlyaskedquestions" size="3"/></td>
</tr>
<tr>
<td> </td>
<td><label for="payinvestigations">Pay Investigations</label></td>
<td colspan="2"><input type="text" id="payinvestigations" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="equitablejobevaluation">Equitable Job Evaluation</label></td>
<td colspan="2"><input type="text" id="equitablejobevaluation" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="steeringgroupannualreport">Steering Group Annual Report</label></td>
<td colspan="2"><input type="text" id="steeringgroupannualreport" size="3"/></td>
</tr>
<tr>
<td colspan="4" bgcolor="#E0E0E0"><b>Case Studies</b><br/>The case studies provide review committees with a further practical resource, alongside the review workbook and the training programmes, of key learnings from organisations that have already conducted reviews. Summary and full case study versions are available.</td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="37">Sum.</td>
<td width="41">Full</td>
</tr>
<tr>
<td>Yes</td>
<td><label for="summycompany">My Company</label></td>
<td><input type="text" id="summycompany" size="3"/></td>
<td><input type="text" id="fullmycompany" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="sumeducationreviewoffice">Education Review Office</label></td>
<td><input type="text" id="sumeducationreviewoffice" size="3"/></td>
<td><input type="text" id="fulleducationreviewoffice" size="3"/></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="sumstationblue">Station Blue</label></td>
<td><input type="text" id="sumstationblue" size="3"/></td>
<td><input type="text" id="fullstationblue" size="3"/></td>
</tr>
<tr>
<td colspan="4" bgcolor="#E0E0E0"><b>Assessment Tools</b></td>
</tr>
<tr>
<td>Yes</td>
<td><label for="equitablejobevaluationtool">Equitable Job Evaluation Tool</label></td>
<td colspan="2"><input type="text" id="equitablejobevaluationtool" size="3"/></td>
</tr>
</table>