Hi :)
I am using an old application which is from an IIS6 server, now on an IIS7 server. When somebody tries to register for the site the following message is shown:
CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid. /login.asp, line 352
The file in question is:
Dim NewMailObj
'create the mail object and send the details
Set NewMailObj = CreateObject("CDO.Message")
NewMailObj.To ="address"
NewMailObj.From = "site-name.com"
NewMailObj.Subject = "Website Enquiry"
dim tmpStr
tmpStr=""
tmpStr ="<head><style type=""text/css"">body{font-family:Arial, Helvetica, sans-serif; font-size:12px; color: #FFFFFF;}</style></head><body>"
tmpStr = tmpStr & "<table width=""600"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#959CA2""><tr><td colspan=""2"">"
tmpStr = tmpStr & "<img src=""images/email-header.jpg"" width=""600"" height=""96"" /></td></tr>"
tmpStr = tmpStr & "<tr><td width=""151""> </td><td width=""449""> </td></tr>"
tmpStr = tmpStr & "<tr><td colspan=""2"" style=""padding:5px;"">You have recieved a request for login details from the website. The user details are displayed below.</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>Company Name:</strong></td><td>" & request.Form("company_name") & "</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>Website:</strong></td><td>" & request.Form("website") & "</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>Name:</strong></td><td>" & request.Form("name") & "</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>Email:</strong></td><td><a href=""mailto:" & request.Form("email") & """>" & request.Form("email") & "</a></td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>Telephone:</strong></td><td>" & request.Form("telephone") & "</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td style=""padding:5px;""><strong>IP Address:</strong></td><td>" & request.Form("ipaddr") & "</td></tr>"
tmpStr = tmpStr & "<tr><td> </td><td> </td></tr>"
tmpStr = tmpStr & "<tr><td colspan=""2""><img src=""images/email-footer.jpg"" width=""600"" height=""64"" /></td></tr>"
tmpStr = tmpStr & "</table></body>"
NewMailObj.HTMLBody = tmpStr
' we are sending a text email.. simply switch the comments around to send an html email instead
NewMailObj.Send <--- this is line 352
'Close the email object and free up resources
Set NewMailObj = nothing
Response.Redirect("/thanks.asp")Can anybody help with this issue? Many thanks in advance :)
Jon