cdo help?

[msb113]

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("CompanyN ame")
contactName = .Form("ContactN ame")
mAddress = .Form("MailingA ddress")
mcity = .Form("Mailingc ity")
mstate = .Form("Mailings tate")
mzip = .Form("Mailingz ip")
mPhone = .Form("phone")
mEmail = .Form("email")

bCompanyName = .Form("b_Compan yName")
bContactName = .Form("b_Contac tName")
bAddress = .Form("BillingA ddress")
bcity = .Form("Billingc ity")
bstate = .Form("Billings tate")
bzip = .Form("Billingz ip")
bphone = .Form("b_Phone" )
bemail = .Form("b_Email" )
work_order = .Form("work_ord er")
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 & " &nbsp;" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf

msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " &nbsp;" & 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("wo rk_order@westma intenanceinc.co m","twest@westm aintenanceinc.c om","Electron ic Work Order", msg)

Sub sendMessage(sFr om, sTo, sSubject, sBody)
Dim objNewMail

'Create the object'
Set objNewMail = Server.CreateOb ject("CDONTS.Ne wMail")

objNewMail.From = sFrom
objNewMail.To = sTo

objNewMail.Subj ect = sSubject
objNewMail.Text Body = sBody

objNewMail.Mail Format = 0
objNewMail.Body Format = 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>
&nbsp;
<INPUT TYPE="Button" VALUE="Back To MainPage"
onClick="histor y.go(-2)"></p>


</B><p>&nbsp;</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("CompanyN ame")
contactName = .Form("ContactN ame")
mAddress = .Form("MailingA ddress")
mcity = .Form("Mailingc ity")
mstate = .Form("Mailings tate")
mzip = .Form("Mailingz ip")
mPhone = .Form("phone")
mEmail = .Form("email")

bCompanyName = .Form("b_Compan yName")
bContactName = .Form("b_Contac tName")
bAddress = .Form("BillingA ddress")
bcity = .Form("Billingc ity")
bstate = .Form("Billings tate")
bzip = .Form("Billingz ip")
bphone = .Form("b_Phone" )
bemail = .Form("b_Email" )
work_order = .Form("work_ord er")
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 & " &nbsp;" & vbcrlf
msg = msg & " </TD>" & vbcrlf
msg = msg & " </TR>" & vbcrlf

msg = msg & " <TR>" & vbcrlf
msg = msg & " <TD ALIGN='center' COLSPAN='2'>" & vbcrlf
msg = msg & " &nbsp;" & 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("wo rk_order@westma intenanceinc.co m","twest@westm aintenanceinc.c om","Electron ic Work Order", msg)

Sub sendMessage(sFr om, sTo, sSubject, sBody)
Dim objMail

'Create the object'
Set objMail = CreateObject("C DO.Message")

objMail.From = sFrom
objMail.To = sTo

objMail.Subject = sSubject
objMail.TextBod y = 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>
&nbsp;
<INPUT TYPE="Button" VALUE="Back To MainPage"
onClick="histor y.go(-2)"></p>


</B><p>&nbsp;</p>
</CENTER>
</BODY>
</HTML>

[aspisamisterytome]

I just saw this at http://www.w3schools.com/asp/asp_send_email.asp as I am also working on an asp email client called "Persits.MailSe nder" that my hosting has just moved to. Hope you get the info you require.