Hi all
Having a lil trouble with a form we use for email... was using cdont but they have changed the servers on our hosting site and we must use cdo now. I was told to change to line of code, which i have done but when someone clicks on submit they get a page cannot be displayed 500 error can someone be kind enough to tell me if this code looks correct.
I will post the old code first then the new below.
Thank you for any input.
OLD CODE
<% OPTION EXPLICIT %>
<%
Dim companyName
Dim contactName
Dim mAddress
Dim mcity
Dim mstate
Dim mzip
Dim bAddress
Dim bcity
Dim bstate
Dim bzip
Dim mphone
Dim memail
Dim bCompanyName
Dim bContactName
Dim bphone
Dim bemail
Dim work_order
Dim msg
'-----Get the information from the form'
With Request
companyName = .Form("CompanyName")
contactName = .Form("ContactName")
mAddress = .Form("MailingAddress")
mcity = .Form("Mailingcity")
mstate = .Form("Mailingstate")
mzip = .Form("Mailingzip")
mPhone = .Form("phone")
mEmail = .Form("email")
bCompanyName = .Form("b_CompanyName")
bContactName = .Form("b_ContactName")
bAddress = .Form("BillingAddress")
bcity = .Form("Billingcity")
bstate = .Form("Billingstate")
bzip = .Form("Billingzip")
bphone = .Form("b_Phone")
bemail = .Form("b_Email")
work_order = .Form("work_order")
End With
msg = "<TABLE WIDTH='100%' CELLPADDING='5' CELLSPACING='0' BORDER='0'>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " <B>Customer Information</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right' WIDTH='25%'>" & vbcrlf
msg = msg & " <B>Company Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & companyName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right' WIDTH='25%'>" & vbcrlf
msg = msg & " <B>Contact Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & contactName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Address:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mAddress & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>City:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mcity & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>State:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mstate & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Zip:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mzip & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Phone:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mPhone & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Email:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mEmail & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " " & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " " & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " <B>Billing Information</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Company Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bCompanyName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Contact Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bContactName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Address:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bAddress & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>City:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bcity & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>State:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bstate & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Zip:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bzip & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Phone:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bphone & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Email:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bemail & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Work Order Information:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & work_order & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & "</TABLE>" & vbcrlf
Call sendMessage("work_order@westmaintenanceinc.com","t west@westmaintenanceinc.com","Electronic Work Order", msg)
Sub sendMessage(sFrom, sTo, sSubject, sBody)
Dim objNewMail
'Create the object'
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = sFrom
objNewMail.To = sTo
objNewMail.Subject = sSubject
objNewMail.TextBody = sBody
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 0
objNewMail.Send
'Close the object'
Set objNewMail = Nothing
End Sub
%>
<!--Display a confirmation-->
<HTML>
<HEAD>
<TITLE>
Work Order Confirmation
</TITLE>
</HEAD>
<BODY BGCOLOR="ffffff">
<CENTER>
<A HREF="index.asp"><IMG SRC="images/wmi_logo_small.gif" BORDER="0"></A>
<BR>
<B>
Thank You!<BR>West Maintenance will be contacting you soon. <br>
<br>
<INPUT TYPE="Button" VALUE="Back To MainPage"
onClick="history.go(-2)"></p>
</B><p> </p>
</CENTER>
</BODY>
</HTML>
NEW CODE
<% OPTION EXPLICIT %>
<%
Dim companyName
Dim contactName
Dim mAddress
Dim mcity
Dim mstate
Dim mzip
Dim bAddress
Dim bcity
Dim bstate
Dim bzip
Dim mphone
Dim memail
Dim bCompanyName
Dim bContactName
Dim bphone
Dim bemail
Dim work_order
Dim msg
'-----Get the information from the form'
With Request
companyName = .Form("CompanyName")
contactName = .Form("ContactName")
mAddress = .Form("MailingAddress")
mcity = .Form("Mailingcity")
mstate = .Form("Mailingstate")
mzip = .Form("Mailingzip")
mPhone = .Form("phone")
mEmail = .Form("email")
bCompanyName = .Form("b_CompanyName")
bContactName = .Form("b_ContactName")
bAddress = .Form("BillingAddress")
bcity = .Form("Billingcity")
bstate = .Form("Billingstate")
bzip = .Form("Billingzip")
bphone = .Form("b_Phone")
bemail = .Form("b_Email")
work_order = .Form("work_order")
End With
msg = "<TABLE WIDTH='100%' CELLPADDING='5' CELLSPACING='0' BORDER='0'>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " <B>Customer Information</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right' WIDTH='25%'>" & vbcrlf
msg = msg & " <B>Company Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & companyName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right' WIDTH='25%'>" & vbcrlf
msg = msg & " <B>Contact Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & contactName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Address:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mAddress & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>City:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mcity & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>State:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mstate & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Zip:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mzip & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Phone:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mPhone & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Email:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & mEmail & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " " & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " " & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " <B>Billing Information</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Company Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bCompanyName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Contact Name:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bContactName & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Address:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bAddress & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>City:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bcity & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>State:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bstate & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Zip:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bzip & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Phone:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bphone & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Email:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & bemail & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='right'>" & vbcrlf
msg = msg & " <B>Work Order Information:</B>" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " <TD>" & vbcrlf
msg = msg & " " & work_order & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf
msg = msg & "</TABLE>" & vbcrlf
Call sendMessage("work_order@westmaintenanceinc.com","t west@westmaintenanceinc.com","Electronic Work Order", msg)
Sub sendMessage(sFrom, sTo, sSubject, sBody)
Dim objMail
'Create the object'
Set objMail = CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.Subject = sSubject
objMail.TextBody = sBody
objMail.Send
'Close the object'
Set objMail = Nothing
End Sub
%>
<!--Display a confirmation-->
<HTML>
<HEAD>
<TITLE>
Work Order Confirmation
</TITLE>
</HEAD>
<BODY BGCOLOR="ffffff">
<CENTER>
<A HREF="index.asp"><IMG SRC="images/wmi_logo_small.gif" BORDER="0"></A>
<BR>
<B>
Thank You!<BR>West Maintenance will be contacting you soon. <br>
<br>
<INPUT TYPE="Button" VALUE="Back To MainPage"
onClick="history.go(-2)"></p>
</B><p> </p>
</CENTER>
</BODY>
</HTML>