|
HELP with ASP forms not working...
11-10-2010, 03:57 PM
|
HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
I am no where close to being a designer or programmer etc. I paid someone to create a few forms and upload them to existing hosted domain.
So far nothing has gone through since forms went live last week. Can someone check and break the code down for me so I can understand what is what. Thank you.
here is what I think is the code you need.
FORM
HTML Code:
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="[URL]http://www.w3.org/TR/REC-html40[/URL]">
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="File-List" href="servicerequestform_files/filelist.xml">
<title>Service Request Form</title>
<style>
fieldset {
border: 1px solid #CCA383;
width: 100%;
padding: 6px;
}
fieldset legend {
padding: 6px;
}
</style>
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<style>
<!--
.formfield { font-family: Verdana; color: #000000 }
-->
</style>
<!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
<%@ language="vbscript" %>
<%
'Response.write "1"
%>
</head>
<body bgcolor="#663300">
<p><!--[if gte vml 1]><v:shapetype id="_x0000_t202"
coordsize="21600,21600" o:spt="202" path="m,l,21600r21600,l21600,xe">
<v:stroke joinstyle="miter"/>
<v:path gradientshapeok="t" o:connecttype="rect"/>
</v:shapetype><v:shape id="_x0000_s1026" type="#_x0000_t202" alt="" style='position:absolute;
left:1in;top:0;width:600pt;height:25.5pt;z-index:0' fillcolor="#fc0"
strokeweight=".08731mm">
<v:stroke dashstyle="1 1" endcap="round"/>
<v:shadow opacity=".5" offset="6pt,-6pt"/>
<o:extrusion v:ext="view" backdepth="1in" on="t" viewpoint="0,34.72222mm"
viewpointorigin="0,.5" skewangle="90" lightposition="-50000"
lightposition2="50000" type="perspective"/>
<v:textbox>
<table cellspacing="0" cellpadding="0" width="97%" height="94%" id="table1">
<tr>
<td align="center" style="text-align: left; line-height: 150%; text-indent: 0; margin-bottom: 0" valign="top">
<address style="text-align: center">
<span style="vertical-align: top">
<font face="Advantage" size="2" color="#663300"><b>7801 Telegraph
Road, Suite H </b></font><b>
<font face="Advantage" color="#663300" size="2">. </font></b>
<font face="Advantage" size="2" color="#663300"><b>Montebello, CA
90640 . Phone (866) 333-7350 begin_of_the_skype_highlighting**************(866) 333-7350******end_of_the_skype_highlighting </b></font><b>
<font face="Advantage" color="#663300" size="2">. Fax: 323-720-1689</font></b><font face="Advantage" size="4" color="#663300"> </font></span></address>
</td>
</tr>
</table>
</v:textbox>
</v:shape><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:0;left:95px;top:-1px;width:806px;height:52px'><img width=806
height=52 src="servicerequestform_files/image001.gif" v:shapes="_x0000_s1026"></span><![endif]></p>
<p> </p>
<form name="form1" method="post" action="ThankYou.asp">
<input TYPE="hidden" NAME="action" VALUE="ServiceRequestForm">
<!--Parent Table-->
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<fieldset>
<legend style="text-align:center"><font face="verdana" color="yellow"><b>Service Request Form</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr><td>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="Gold"><b>Service Type</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Type of service requested:</font></td>
<td>
<select size="1" name="ddlServiceRequested" class="formfield">
<option>Repair</option>
<option selected>Select One</option>
<option>Preventive Maintenance</option>
<option>Site Inspection for Install</option>
<option>Installation</option>
<option>Removal</option>
<option>Estimate</option>
</select>
</td>
</tr>
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">What type of equipment are you requesting service for:</font></td>
<td>
<select size="1" name="ddlTypeOfService" style="font-family: Verdana; color: #000000">
<option>Select One</option>
<option>Coffee Brewer</option>
<option>Espresso Machine</option>
<option>Grinder</option>
<option>Other</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Make:</font></td>
<td>
<input type="text" name="txtMake" size="40" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Model:</font></td>
<td>
<input type="text" name="txtModel" size="30" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Serial Number:</font></td>
<td>
<input type="text" name="txtSerialNo" size="40" style="font-family: Verdana; color: #000000" class="formfields" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Do you have a water filter:</font></td>
<td>
<select size="1" name="ddlWaterFilter">
<option>I don't know</option>
<option>Yes</option>
<option>No</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Please describe problem as detailed as possible:</font></td>
<td>
<textarea rows="6" name="txtAreaComments" cols="85" class="formfield"></textarea>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="gold"><b>Service Location</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr><td colspan="4"><font face="verdana" color="gold"> Please fill out even if we already have your information on file.</font></td></tr>
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Business Name:</font></td>
<td colspan="3">
<input type="text" name="txtBusinessName" size="40" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Street Address:</font></td>
<td><input type="text" name="txtStreetAddress" size="30" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">Suite #:</font></td>
<td><input type="text" name="txtSuiteNo" size="10" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">City:</font></td>
<td><input type="text" name="txtCity" size="15" style="font-family: Verdana; color: #000000" value="">
<font face="verdana" color="white">State: </font><select size="1" name="ddlState">
<option>CA</option>
</select></td>
<td><font face="verdana" color="white">Zip: </font></td>
<td><input type="text" name="txtZip" size="5" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Contact:</font></td>
<td><input type="text" name="txtContact" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td style="width:8%"><font face="verdana" color="white">Title: </font></td>
<td><select size="1" name="ddlTitle">
<option>Select One</option> <option>Manager</option>
<option>Supervisor</option>
<option>Owner/Principal</option>
<option>Other</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Telephone:</font></td>
<td><input type="text" name="txtPhone" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td style="width:8%"><font face="verdana" color="white">E-Mail: </font></td>
<td><input type="text" name="txtEmail" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="gold"><b>Service Requested By</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Your Name:</font></td>
<td><input type="text" name="txtRequesterName" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">Title:</font></td>
<td><input type="text" name="txtRequestorTitle" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Company:</font></td>
<td><input type="text" name="txtCompany" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">PO No:</font></td>
<td><input type="text" name="txtPONo" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Telephone:</font></td>
<td><input type="text" name="txtPersonnalPhone" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td valign="top" style="width:8%"><font face="verdana" color="white">Email:</font></td>
<td ><input type="text" name="txtPersonalEmail" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Do you have a credit account with us?:</font></td>
<td colspan="3"><select size="1" name="ddlCreditAccount">
<option>Yes</option>
<option>No </option>
<option>I Don't Know</option>
</select></td>
</tr>
<tr>
<td valign="top" colspan="4"><font face="verdana" color="gold"><b>Please note that if your
company does not have an open credit account. Payment will be requested
at time of service.</b><br /><br />We accept Cash/Check Visa &
Mastercard for your convenience. </font></td>
</tr>
<tr>
<td> </td>
<td colspan="3"><input type="submit" value="Submit" name="B1">
<input type="reset" value="Reset Form" onclick="document.getElementById('form1').reset" name="B2">
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
</fieldset>
</td>
</tr>
</table>
<!--//Parent Table-->
</form>
</body>
</html>
Last edited by chrishirst; 11-10-2010 at 04:33 PM..
|
|
|
|
|
11-10-2010, 03:57 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
what i think is the second part
Code:
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<%@ language="VBScript" %>
<html>
<head>
<title>Thank You</title>
<style>
fieldset {
border: 1px solid #CCA383;
width: 100%;
padding: 6px;
}
fieldset legend {
padding: 6px;
}
</style>
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<style>
<!--
.formfield { font-family: Verdana; color: #000000 }
-->
</style>
<!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
<%
'declare the variables that will receive the values
Dim strMessage
Dim ddlServiceRequested, ddlTypeOfService, txtMake, txtModel, txtSerialNo, ddlWaterFilter, txtAreaComments, txtBusinessName
Dim txtStreetAddress, txtSuiteNo, txtCity, ddlState, txtZip, txtContact, ddlTitle, txtPhone, txtEmail, ddlCreditAccount
Dim txtPersonalEmail, txtPersonnalPhone, txtPONo, txtCompany, txtRequestorTitle, txtRequesterName
Dim MyBody
Dim MyCDONTSMail, txtBevEquipModelAndMake
Dim txtBevName, txtBevTitle, txtBevCompName, txtBevEmail, txtBevPhone, ddlBevEnvironment, ddlBevNoOfLocations, ddlBevTypeOfEquipment, ddlBevCurrentService
'receive the values sent from the form and assign them to variables
'note that request.form("name") will receive the value entered
'into the textfield called name
'response.Write "0"
ddlServiceRequested = Request.Form("ddlServiceRequested")
ddlTypeOfService = Request.Form("ddlTypeOfService")
txtMake = Request.Form("txtMake")
txtModel = Request.Form("txtModel")
txtSerialNo = Request.Form("txtSerialNo")
ddlWaterFilter = Request.Form("ddlWaterFilter")
txtAreaComments = Request.Form("txtAreaComments")
txtBusinessName = Request.Form("txtBusinessName")
txtStreetAddress = Request.Form("txtStreetAddress")
txtSuiteNo = Request.Form("txtSuiteNo")
txtCity = Request.Form("txtCity")
ddlState = Request.Form("ddlState")
txtZip = Request.Form("txtZip")
txtContact = Request.Form("txtContact")
ddlTitle = Request.Form("ddlTitle")
txtPhone = Request.Form("txtPhone")
txtEmail = Request.Form("txtEmail")
txtRequesterName = Request.Form("txtRequesterName")
txtRequestorTitle = Request.Form("txtRequestorTitle")
txtCompany = Request.Form("txtCompany")
txtPONo = Request.Form("txtPONo")
txtPersonnalPhone = Request.Form("txtPersonnalPhone")
txtPersonalEmail = Request.Form("txtPersonalEmail")
ddlCreditAccount = Request.Form("ddlCreditAccount")
txtBevEquipModelAndMake = Request.Form("txtBevEquipModelAndMake")
'response.Write request.Form("action")
'response.Write "1"
If Request.Form("Action") = "ServiceRequestFormBev" Then
'response.Write "Action = " & Request.Form("Action")
txtBevName = Request.Form("txtBevName")
txtBevTitle = Request.Form("txtBevTitle")
txtBevCompName = Request.Form("txtBevCompName")
txtBevEmail = Request.Form("txtBevEmail")
txtBevPhone = Request.Form("txtBevPhone")
ddlBevEnvironment = Request.Form("ddlBevEnvironment")
ddlBevNoOfLocations = Request.Form("ddlBevNoOfLocations")
ddlBevTypeOfEquipment = Request.Form("ddlBevTypeOfEquipment")
ddlBevCurrentService = Request.Form("ddlBevCurrentService")
strMessage = strMessage & "<table border='0' cellspacing='3' cellpadding='0'>"
strMessage = strMessage & "<tr><td>"
strMessage = "<b>Your Name: </b>" & txtBevName
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Title</b>:" & txtBevTitle
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Company Name</b>: " & txtBevEmail
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Company Name</b>: " & txtBevPhone
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Type Of Equipment</b>: " & ddlBevEnvironment & " MAke & Model #:" & txtBevEquipModelAndMake
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Number of Locations</b>: " & ddlBevNoOfLocations
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Type of Equipment</b>: " & ddlBevTypeOfEquipment
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Currrent Service</b>: " & ddlBevCurrentService
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "</td></tr></table>"
Call SendEmail(strMessage, "InformationRequest")
'Response.Write "Action 2= " & Request.Form("Action")
End If
If Request.Form("Action") = "ServiceRequestForm" Then
'If request.Form("action") = "New" Then
'response.Write "Action = " & Request.Form("Action")
strMessage = strMessage & "<table border='0' cellspacing='3' cellpadding='0'>"
strMessage = strMessage & "<tr><td>"
strMessage = "<b>Type of service requested: </b>" & ddlServiceRequested
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>What type of equipment are you requesting service for</b>:" & ddlTypeOfService
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Make</b>: " & txtMake
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Model</b>: " & txtModel
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Serial No</b>: " & txtSerialNo
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Do you have water filter</b>: " & ddlWaterFilter
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Comments</b>: " & txtAreaComments
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Business Name</b>: " & txtBusinessName
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Street Address</b>: " & txtStreetAddress & "</b> Suite #: <b>" & txtSuiteNo
strMessage = strMessage & " <b>City</b>: " & txtCity & "</b> State: <b>" & ddlState & "</b> Zip: <b>" & txtZip
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Contact</b>: " & txtContact
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Title</b>:" & ddlTitle
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Phone</b>: " & txtPhone
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Email</b>: " & txtEmail
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Your Name</b>: " & txtRequesterName
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Your title</b>: " & txtRequestorTitle
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Your company</b>: " & txtCompany
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>PO No</b>: " & txtPONo
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Telephone</b>: " & txtPersonnalPhone
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Email</b>: " & txtPersonalEmail
strMessage = strMessage & "</td></tr>"
strMessage = strMessage & "<tr><td>"
strMessage = strMessage & "<b>Do you have a credit account with us?</b>: " & ddlCreditAccount
strMessage = strMessage & "</td></tr></table>"
'response.Write "3"
Call SendEmail(strMessage, "ServiceRequest")
' response.Write "4"
End If
Sub SendEmail6 (StrMessage)
'response.Write "SendEmail6 1<br />"
Set MyCDONTSMail = CreateObject("CDO.Message")
MyCDONTSMail.From = "master@atech-service.com"
MyCDONTSMail.To = "mroomi@gmail.com"
MyCDONTSMail.Subject = "Mail test from atech-service.com using CDONTS."
MyBody = MyBody & "This email message was sent from a ASP script in atech-service.com using CDONTS."
MyCDONTSMail.HTMLBody = StrMessage
MyCDONTSMail.Send
set MyCDONTSMail = nothing
response.Write "SendEmail6 2<br />"
End Sub
Sub SendEmail5(strMessage)
response.Write "SendEmail5 1<br />"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
response.Write "SendEmail5 2<br />"
myMail.From="mroomi@gmail.com"
myMail.To="mroomi@gmail.com"
myMail.TextBody="This is a message."
response.Write "SendEmail5 3<br />"
myMail.Send
response.Write "SendEmail5 4<br />"
End Sub
Sub SendEmail4 (strMessage)
response.Write "SendEmail4 1"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mroomi@gmail.com"
myMail.To="mroomi@gmail.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="localhost"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
response.Write "SendEmail4 2"
myMail.Send
response.Write "SendEmail4 3"
End Sub
Sub SendEmail1 (strMessage)
'response.Write "SendEmail1 1 <br>"
Set myMail=Server.CreateObject("CDONTS.NewMail")
myMail.Subject="Sending email with CDO"
myMail.From="master@atech-service.com"
myMail.To="mroomi@gmail.com"
myMail.HTMLBody = strMessage
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
response.Write "SendEmail1 2 <br>"
myMail.Send
response.Write "SendEmail1 3 <br>"
set myMail=nothing
End Sub
Sub SendEmail(strMessage, fromPage)
'response.Write "SendEmail = 5"
Set objMessage = CreateObject("CDONTS.NewMail")
objMessage.Subject = "Ad Tech Service Request Form"
objMessage.From = "master@atech-service.com"
If fromPage = "InformationRequest" Then
objMessage.To = "marketing@atech-service.com"
Else
objMessage.To = "servicerequest@atech-service.com"
End If
'The line below shows how to send using HTML included directly in your script
objMessage.Body = strMessage
objMessage.Send
'response.Write "SendEmail = 6"
End Sub
Sub SendEmail2 (strMesssage)
response.Write "4"
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDO.Message")
' Set the properties of the object
'***********************************************************
' PLEASE CHANGE THESE SO WE DON'T APPEAR TO BE SENDING YOUR
' EMAIL. WE ALSO DON'T WANT THE EMAILS TO GET SENT TO US
' WHEN SOMETHING GOES WRONG WITH YOUR SCRIPT... THANKS
'***********************************************************
' This syntax works fine
objCDOMail.From = "mroomi@gmail.com"
' But this gets you the appearance of a real name!
objCDOMail.From = "Test Cocentric"
objCDOMail.To = "mroomi@gmail.com"
objCDOMail.Subject = "Cocentric"
objCDOMail.TextBody = strMesssage
response.Write "4"
' There are lots of other properties you can use.
' You can send HTML e-mail, attachments, etc...
' You can also modify most aspects of the message
' like importance, custom headers, ...
' Check the documentation for a full list as well
' as the correct syntax.
' Some of the more useful ones I've included samples of here:
'objCDOMail.Cc = "user@domain.com;user@domain.com"
'objCDOMail.Bcc = "user@domain.com;user@domain.com"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
' I've had several requests for how to send HTML email.
' To do so simply set the body format to HTML and then
' compose your body using standard HTML tags.
'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
'Outlook gives you grief unless you also set:
'objCDOMail.MailFormat = 0 ' CdoMailFormatMime
' THIS LINE SHOULD BE UNCOMMENTED TO ACTUALLY SEND THE
' MESSAGE. PLEASE BE SURE YOU HAVE APPROPRIATE VALUES
' FOR TO AND FROM ADDRESSES AND HAVE CHANGED THE MESSAGE
' SUBJECT AND BODY BEFORE UNCOMMENTING THIS.
' Send the message!
response.Write "Send Email 2 5"
objCDOMail.Send
response.Write "Send Email 2 6"
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objCDOMail = Nothing
End Sub
%>
</head>
<body bgcolor="#663300">
<p><!--[if gte vml 1]><v:shapetype id="_x0000_t202"
coordsize="21600,21600" o:spt="202" path="m,l,21600r21600,l21600,xe">
<v:stroke joinstyle="miter"/>
<v:path gradientshapeok="t" o:connecttype="rect"/>
</v:shapetype><v:shape id="_x0000_s1026" type="#_x0000_t202" alt="" style='position:absolute;
left:1in;top:0;width:600pt;height:25.5pt;z-index:0' fillcolor="#fc0"
strokeweight=".08731mm">
<v:stroke dashstyle="1 1" endcap="round"/>
<v:shadow opacity=".5" offset="6pt,-6pt"/>
<o:extrusion v:ext="view" backdepth="1in" on="t" viewpoint="0,34.72222mm"
viewpointorigin="0,.5" skewangle="90" lightposition="-50000"
lightposition2="50000" type="perspective"/>
<v:textbox>
<table cellspacing="0" cellpadding="0" width="97%" height="94%" id="table1">
<tr>
<td align="center" style="text-align: left; line-height: 150%; text-indent: 0; margin-bottom: 0" valign="top">
<address style="text-align: center">
<span style="vertical-align: top">
<font face="Advantage" size="2" color="#663300"><b>7801 Telegraph
Road, Suite H </b></font><b>
<font face="Advantage" color="#663300" size="2">. </font></b>
<font face="Advantage" size="2" color="#663300"><b>Montebello, CA
90640 . Phone (866) 333-7350 begin_of_the_skype_highlighting**************(866) 333-7350******end_of_the_skype_highlighting </b></font><b>
<font face="Advantage" color="#663300" size="2">. Fax: 323-720-1689</font></b><font face="Advantage" size="4" color="#663300"> </font></span></address>
</td>
</tr>
</table>
</v:textbox>
</v:shape><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:0;left:95px;top:-1px;width:806px;height:52px'><img width=806
height=52 src="servicerequestform_files/image001.gif" v:shapes="_x0000_s1026"></span><![endif]></p>
<p> </p>
<!--Parent Table-->
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="Gold"><b>Thank You</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0">
<tr>
<td valign="top"><font face="verdana" color="white"> <%If Request.Form("Action") = "ServiceRequestFormBev" Then%>
Thank you for your inquiry. We will contact you directly to further understand your needs.
<%Else%>
Thank you, your service request has been submitted. Someone from A TECH will contact you once your request is processed.
<%End If%>
</font></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--//Parent Table-->
</body>
</html>
any help is GREATLY appreciated.
Last edited by chrishirst; 11-10-2010 at 04:35 PM..
|
|
|
|
|
11-10-2010, 04:39 PM
|
Re: HELP with ASP forms not working...
|
Posts: 42,336
Name: Chris Hirst
Location: Blackpool. UK
|
And "not working" means what exactly
__________________
Chris. ->>
Please login or register to view this content. Registration is FREE
<<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- Is SEO the only industry where all the cowboys are Indians?
|
|
|
|
|
11-10-2010, 04:45 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
Sorry. The information gathered on form should be e-mailed to our service department or marketing dept. Since Friday when the forms were published to site, (we filled out several forms to test) we have not received a single e-mail.
|
|
|
|
|
11-10-2010, 04:57 PM
|
Re: HELP with ASP forms not working...
|
Posts: 42,336
Name: Chris Hirst
Location: Blackpool. UK
|
CDONTS mail hasn't been installed on IIS servers since Windows Server 2000.
http://www.candsdesign.co.uk/article...-email/cdosys/
__________________
Chris. ->>
Please login or register to view this content. Registration is FREE
<<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- Is SEO the only industry where all the cowboys are Indians?
|
|
|
|
|
11-10-2010, 05:02 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
Super Sorry, I am a bookeeper, I have no idea what that means really. I was hoping I'd get a bit more detailed response as I am tired of playing the "blame game" with domain host and designer, neither wants to accept fault for what is surely an error.
|
|
|
|
|
11-10-2010, 05:17 PM
|
Re: HELP with ASP forms not working...
|
Posts: 42,336
Name: Chris Hirst
Location: Blackpool. UK
|
Obviously whoever tried to develop the code should get up to date, all the code you need for sending mail with asp is in my article I linked to.
If you clicked the show code link all the code will be displayed and the code link will download the script to your machine.
__________________
Chris. ->>
Please login or register to view this content. Registration is FREE
<<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- Is SEO the only industry where all the cowboys are Indians?
|
|
|
|
|
11-10-2010, 05:38 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
This is an email from customer support, does that mean that they installed CDONTS on IIS server? dated before form was published.
Hello,
Thank you for contacting us regarding your email problems, I will be happy to help.
I have installed a CDONTS script on your account. You should be able to use it to send your emails. Please let me know if there is anything further that I may be able to assist you with.
I really do appreciate you trying to help. 
|
|
|
|
|
11-10-2010, 05:48 PM
|
Re: HELP with ASP forms not working...
|
Posts: 42,336
Name: Chris Hirst
Location: Blackpool. UK
|
And they have probably upgraded the server OS since then.
__________________
Chris. ->>
Please login or register to view this content. Registration is FREE
<<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- Is SEO the only industry where all the cowboys are Indians?
|
|
|
|
|
11-10-2010, 05:56 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
What version of Microsoft Internet Information Service (IIS) is running on your system?
Version 5.
Thats from Domain site. I feel clueless. Thanks for everything. 
I just spoke to domain company we are on windows server 2003 but CDONTS is supported, does that make any sense? What else could be going on? You are an angel for trying to get me to understand this better. Thanks again.
Last edited by sanchez176; 11-10-2010 at 06:04 PM..
Reason: add server information
|
|
|
|
|
11-10-2010, 06:08 PM
|
Re: HELP with ASP forms not working...
|
Posts: 42,336
Name: Chris Hirst
Location: Blackpool. UK
|
IIS 5 is Windows 2000 server. So the newer and far more reliable CDOSYS is available, using that will also make your mail system future proof
__________________
Chris. ->>
Please login or register to view this content. Registration is FREE
<<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- Is SEO the only industry where all the cowboys are Indians?
|
|
|
|
|
11-12-2010, 02:00 PM
|
Re: HELP with ASP forms not working...
|
Posts: 7
Name: Veronica
|
ONE MORE TRY? CAN ANYONE TELL ME WHATS WRONG WITH THESE CODES?
Code:
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="File-List" href="servicerequestform_files/filelist.xml">
<title>Service Request Form</title>
<style>
fieldset {
border: 1px solid #CCA383;
width: 100%;
padding: 6px;
}
fieldset legend {
padding: 6px;
}
</style>
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<style>
<!--
.formfield { font-family: Verdana; color: #000000 }
-->
</style>
<!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
<%@ language="vbscript" %>
<%
'Response.write "1"
%>
</head>
<body bgcolor="#663300">
<p><!--[if gte vml 1]><v:shapetype id="_x0000_t202"
coordsize="21600,21600" o:spt="202" path="m,l,21600r21600,l21600,xe">
<v:stroke joinstyle="miter"/>
<v:path gradientshapeok="t" o:connecttype="rect"/>
</v:shapetype><v:shape id="_x0000_s1026" type="#_x0000_t202" alt="" style='position:absolute;
left:1in;top:0;width:600pt;height:25.5pt;z-index:0' fillcolor="#fc0"
strokeweight=".08731mm">
<v:stroke dashstyle="1 1" endcap="round"/>
<v:shadow opacity=".5" offset="6pt,-6pt"/>
<o:extrusion v:ext="view" backdepth="1in" on="t" viewpoint="0,34.72222mm"
viewpointorigin="0,.5" skewangle="90" lightposition="-50000"
lightposition2="50000" type="perspective"/>
<v:textbox>
<table cellspacing="0" cellpadding="0" width="97%" height="94%" id="table1">
<tr>
<td align="center" style="text-align: left; line-height: 150%; text-indent: 0; margin-bottom: 0" valign="top">
<address style="text-align: center">
<span style="vertical-align: top">
<font face="Advantage" size="2" color="#663300"><b>7801 Telegraph
Road, Suite H </b></font><b>
<font face="Advantage" color="#663300" size="2">. </font></b>
<font face="Advantage" size="2" color="#663300"><b>Montebello, CA
90640 . Phone (866) 333-7350 </b></font><b>
<font face="Advantage" color="#663300" size="2">. Fax: 323-720-1689</font></b><font face="Advantage" size="4" color="#663300"> </font></span></address>
</td>
</tr>
</table>
</v:textbox>
</v:shape><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:0;left:95px;top:-1px;width:806px;height:52px'><img width=806
height=52 src="servicerequestform_files/image001.gif" v:shapes="_x0000_s1026"></span><![endif]></p>
<p> </p>
<form name="form1" method="post" action="svcreq.asp">
<input TYPE="hidden" NAME="action" VALUE="ServiceRequestForm">
<!--Parent Table-->
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<fieldset>
<legend style="text-align:center"><font face="verdana" color="yellow"><b>Service Request Form</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr><td>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="Gold"><b>Service Type</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Type of service requested:</font></td>
<td>
<select size="1" name="ddlServiceRequested" class="formfield">
<option>Repair</option>
<option selected>Select One</option>
<option>Preventive Maintenance</option>
<option>Site Inspection for Install</option>
<option>Installation</option>
<option>Removal</option>
<option>Estimate</option>
</select>
</td>
</tr>
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">What type of equipment are you requesting service for:</font></td>
<td>
<select size="1" name="ddlTypeOfService" style="font-family: Verdana; color: #000000">
<option>Select One</option>
<option>Coffee Brewer</option>
<option>Espresso Machine</option>
<option>Grinder</option>
<option>Other</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Make:</font></td>
<td>
<input type="text" name="txtMake" size="40" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Model:</font></td>
<td>
<input type="text" name="txtModel" size="30" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Serial Number:</font></td>
<td>
<input type="text" name="txtSerialNo" size="40" style="font-family: Verdana; color: #000000" class="formfields" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Do you have a water filter:</font></td>
<td>
<select size="1" name="ddlWaterFilter">
<option>I don't know</option>
<option>Yes</option>
<option>No</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Please describe problem as detailed as possible:</font></td>
<td>
<textarea rows="6" name="txtAreaComments" cols="85" class="formfield"></textarea>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="gold"><b>Service Location</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr><td colspan="4"><font face="verdana" color="gold"> Please fill out even if we already have your information on file.</font></td></tr>
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Business Name:</font></td>
<td colspan="3">
<input type="text" name="txtBusinessName" size="40" style="font-family: Verdana; color: #000000" value="">
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Street Address:</font></td>
<td><input type="text" name="txtStreetAddress" size="30" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">Suite #:</font></td>
<td><input type="text" name="txtSuiteNo" size="10" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">City:</font></td>
<td><input type="text" name="txtCity" size="15" style="font-family: Verdana; color: #000000" value="">
<font face="verdana" color="white">State: </font><select size="1" name="ddlState">
<option>CA</option>
</select></td>
<td><font face="verdana" color="white">Zip: </font></td>
<td><input type="text" name="txtZip" size="5" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Contact:</font></td>
<td><input type="text" name="txtContact" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td style="width:8%"><font face="verdana" color="white">Title: </font></td>
<td><select size="1" name="ddlTitle">
<option>Select One</option> <option>Manager</option>
<option>Supervisor</option>
<option>Owner/Principal</option>
<option>Other</option>
</select>
</td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Telephone:</font></td>
<td><input type="text" name="txtPhone" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td style="width:8%"><font face="verdana" color="white">E-Mail: </font></td>
<td><input type="text" name="txtEmail" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<fieldset>
<legend><font face="verdana" color="gold"><b>Service Requested By</b></font></legend>
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td valign="top" style="width:40%"><font face="verdana" color="white">Your Name:</font></td>
<td><input type="text" name="txtRequesterName" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">Title:</font></td>
<td><input type="text" name="txtRequestorTitle" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Company:</font></td>
<td><input type="text" name="txtCompany" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td><font face="verdana" color="white">PO No:</font></td>
<td><input type="text" name="txtPONo" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Telephone:</font></td>
<td><input type="text" name="txtPersonnalPhone" size="40" style="font-family: Verdana; color: #000000" value=""></td>
<td valign="top" style="width:8%"><font face="verdana" color="white">Email:</font></td>
<td ><input type="text" name="txtPersonalEmail" size="40" style="font-family: Verdana; color: #000000" value=""></td>
</tr>
<tr>
<td valign="top"><font face="verdana" color="white">Do you have a credit account with us?:</font></td>
<td colspan="3"><select size="1" name="ddlCreditAccount">
<option>Yes</option>
<option>No </option>
<option>I Don't Know</option>
</select></td>
</tr>
<tr>
<td valign="top" colspan="4"><font face="verdana" color="gold"><b>Please note that if your
company does not have an open credit account. Payment will be requested
at time of service.</b><br /><br />We accept Cash/Check Visa &
Mastercard for your convenience. </font></td>
</tr>
<tr>
<td> </td>
<td colspan="3"><input type="submit" value="Submit" name="B1">
<input type="reset" value="Reset Form" onclick="document.getElementById('form1').reset" name="B2">
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
</fieldset>
</td>
</tr>
</table>
<!--//Parent Table-->
</form>
</body>
</html>
and
Code:
<%
'====================================================
' Function: FilterControlChars =
'====================================================
Function FilterCchar(TextToFilter)
Dim regEx
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern ="[\x00-\x1F]"
filterCchar = regEx.Replace(TextToFilter, "")
End Function
'====================================================
' Function: SQLQuoteReplace =
'====================================================
Function SQLQuoteReplace(FieldValue)
SQLQuoteReplace = Replace(FieldValue, "'", "''")
End Function
'====================================================
' Function: ShowDate =
'====================================================
Function ShowDate(ftgdf)
Dim FTGNow, FTGDay, FTGMonth, FTGYearS, FTGYearL, FTGHour, FTGMinute, FTGSecond, AMPM
FTGNow = Now
FTGDay = CStr(Day(FTGNow))
FTGMonth = CStr(Month(FTGNow))
FTGYearS = Right(CStr(Year(FTGNow)), 2)
FTGYearL = CStr(Year(FTGNow))
FTGHour = CStr(Hour(FTGNow))
FTGMinute = CStr(Minute(FTGNow))
FTGSecond = CStr(Second(FTGNow))
If FTGDay < 10 Then FTGDay = "0" & FTGDay
If FTGMonth < 10 Then FTGMonth = "0" & FTGMonth
If FTGHour < 10 Then FTGHour = "0" & FTGHour
If FTGMinute < 10 Then FTGMinute = "0" & FTGMinute
If FTGSecond < 10 Then FTGSecond = "0" & FTGSecond
If ftgdf = 1 Then ShowDate = FTGMonth & "/" & FTGDay & "/" & FTGYearS
If ftgdf = 2 Then ShowDate = FTGDay & "/" & FTGMonth & "/" & FTGYearS
If ftgdf = 3 Then ShowDate = FTGDay & "/" & FTGMonth & "/" & FTGYearL
If ftgdf = 4 Then ShowDate = FTGYearL & "-" & FTGMonth & "-" & FTGDay
If ftgdf = 6 Then ShowDate = FTGHour & ":" & FTGMinute & ":" & FTGSecond
If ftgdf = 7 Then ShowDate = FTGYearL & "-" & FTGMonth & "-" & FTGDay & " " & FTGHour & ":" & FTGMinute & ":" & FTGSecond
If ftgdf = 5 Then
AMPM = "AM"
FTGHour = Hour(FTGNow)
If FTGHour > 12 Then
FTGHour = FTGHour - 12
AMPM = "PM"
If FTGHour < 10 Then FTGHour = "0" & FTGHour
ElseIf FTGHour = 12 Then
AMPM = "PM"
ElseIf FTGHour < 10 Then
FTGHour = "0" & FTGHour
End If
ShowDate = FTGHour & ":" & FTGMinute & ":" & FTGSecond & " " & AMPM
End If
End Function
Dim ClientIP
if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then
ClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
ClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Dim objCDOSYSMail
Dim objCDOSYSCnfg
Set objCDOSYSCnfg = Server.CreateObject("CDO.Configuration")
FTGaction = request.form("action")
FTGddlServiceRequested = request.form("ddlServiceRequested")
FTGddlTypeOfService = request.form("ddlTypeOfService")
FTGtxtMake = request.form("txtMake")
FTGtxtModel = request.form("txtModel")
FTGtxtSerialNo = request.form("txtSerialNo")
FTGddlWaterFilter = request.form("ddlWaterFilter")
FTGtxtAreaComments = request.form("txtAreaComments")
FTGtxtBusinessName = request.form("txtBusinessName")
FTGtxtStreetAddress = request.form("txtStreetAddress")
FTGtxtSuiteNo = request.form("txtSuiteNo")
FTGtxtCity = request.form("txtCity")
FTGddlState = request.form("ddlState")
FTGtxtZip = request.form("txtZip")
FTGtxtContact = request.form("txtContact")
FTGddlTitle = request.form("ddlTitle")
FTGtxtPhone = request.form("txtPhone")
FTGtxtEmail = request.form("txtEmail")
FTGtxtRequesterName = request.form("txtRequesterName")
FTGtxtRequestorTitle = request.form("txtRequestorTitle")
FTGtxtCompany = request.form("txtCompany")
FTGtxtPONo = request.form("txtPONo")
FTGtxtPersonnalPhone = request.form("txtPersonnalPhone")
FTGtxtPersonalEmail = request.form("txtPersonalEmail")
FTGddlCreditAccount = request.form("ddlCreditAccount")
FTGB1 = request.form("B1")
FTGB2 = request.form("B2")
'====================================================
' Code: ErrorMessage =
'====================================================
If (validationFailed = true) Then
ErrorPage = "<html><head><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" /><title>Error</title></head><body>Errors found: <!--VALIDATIONERROR--></body></html>"
Response.Write ErrorPage
Response.End
End If
' Owner Email: cdosys
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "smtp.concentric.com"
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
objCDOSYSCnfg.Fields.Update
emailSubject = FilterCchar("Website Service Request for: " & FTGtxtBusinessName & "
#FTG_E_DATE_TIME YYYY-MM-DD HH:MM:SS#")
emailBodyText = "action : " & FTGaction & "" & vbCrLf _
& "ddl Service Requested : " & FTGddlServiceRequested & "" & vbCrLf _
& "ddl Type Of Service : " & FTGddlTypeOfService & "" & vbCrLf _
& "txt Make : " & FTGtxtMake & "" & vbCrLf _
& "txt Model : " & FTGtxtModel & "" & vbCrLf _
& "txt Serial No : " & FTGtxtSerialNo & "" & vbCrLf _
& "ddl Water Filter : " & FTGddlWaterFilter & "" & vbCrLf _
& "txt Area Comments : " & FTGtxtAreaComments & "" & vbCrLf _
& "txt Business Name : " & FTGtxtBusinessName & "" & vbCrLf _
& "txt Street Address : " & FTGtxtStreetAddress & "" & vbCrLf _
& "txt Suite No : " & FTGtxtSuiteNo & "" & vbCrLf _
& "txt City : " & FTGtxtCity & "" & vbCrLf _
& "ddl State : " & FTGddlState & "" & vbCrLf _
& "txt Zip : " & FTGtxtZip & "" & vbCrLf _
& "txt Contact : " & FTGtxtContact & "" & vbCrLf _
& "ddl Title : " & FTGddlTitle & "" & vbCrLf _
& "txt Phone : " & FTGtxtPhone & "" & vbCrLf _
& "txt Email : " & FTGtxtEmail & "" & vbCrLf _
& "txt Requester Name : " & FTGtxtRequesterName & "" & vbCrLf _
& "txt Requestor Title : " & FTGtxtRequestorTitle & "" & vbCrLf _
& "txt Company : " & FTGtxtCompany & "" & vbCrLf _
& "txt PONo : " & FTGtxtPONo & "" & vbCrLf _
& "txt Personnal Phone : " & FTGtxtPersonnalPhone & "" & vbCrLf _
& "txt Personal Email : " & FTGtxtPersonalEmail & "" & vbCrLf _
& "ddl Credit Account : " & FTGddlCreditAccount & "" & vbCrLf _
& "B1 : " & FTGB1 & "" & vbCrLf _
& "B2 : " & FTGB2 & "" & vbCrLf _
& "" & vbCrLf _
& ""
' Owner Email: cdosys
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
objCDOSYSMail.Configuration = objCDOSYSCnfg
emailFrom = FilterCchar("any@any.com")
objCDOSYSMail.To = "any@any.com"
objCDOSYSMail.From = emailFrom
objCDOSYSMail.Subject = emailSubject
objCDOSYSMail.TextBody = emailBodyText
objCDOSYSMail.BodyPart.Charset = "UTF-8"
objCDOSYSMail.Send
'====================================================
' Code: SuccessMessage =
'====================================================
SuccessPage = "<html><head><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" /><title>Success</title></head><body>Form submitted successfully. It will be reviewed soon.</body></html>"
Response.Write SuccessPage
%>
Last edited by sanchez176; 11-12-2010 at 02:02 PM..
|
|
|
|
|
12-28-2010, 02:40 PM
|
Re: HELP with ASP forms not working...
|
Posts: 5
Name: Carl
|
I would say the most obvious is the second code section (the form posts to svcreq.asp, so I assume you have taken the code from that page?) you have given has the TO field set to
objCDOSYSMail.To = "any@any.com"
That should be your email address within the speechmarks "any@any.com" as that email is certainly not yours and unlikely to exist.
Try changing any@any.com to your email address (between the speech marks) and then try the form. |
|
|
|
|
12-28-2010, 02:43 PM
|
Re: HELP with ASP forms not working...
|
Posts: 5
Name: Carl
|
You also have some other email addresses in the other examples you give, some state that they need changing so the developer does not receive your emails.
I think you need to check your email code for the TO address and make sure it is yours.
|
|
|
|
|
« Reply to HELP with ASP forms not working...
|
|
|
| Thread Tools |
Search this Thread |
|
|
|
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
|
