Hi all!! Im trying to convert my CDONTS code to CDOSYS because we just converted to Windows Server 2003. Below is the code that I've changed based on research. I am not really a programmer, but I think I followed all the instructions as accurately as I can. Can you guys take a look and let me know what I am doing wrong. Thanks!


Dim objCDOSYSMail
Dim objConf
Dim strFrom
Dim strTo
Dim strCc
Dim strBcc
Dim strSubject
Dim strBody

strFrom=Request.Form("ReqEmail")& "@advocatehealth.com"
strTo="[email protected]"
strSubject = "Research Request Confirmation Page"
strBody="The following information was submitted:" & Chr(13) & Chr(13)

If Trim(Request.Form("Contact_FullName"))<>"" Then
   strBody = strBody & "Requestor's Name: " & Request.Form("Contact_FullName") & Chr(13)
End If

If Trim(Request.Form("Site"))<>"" Then
   strBody = strBody & "Site: " & Request.Form("Site") & Chr(13)
End If

Note: This goes on until the last of the fields - I cut the rest of it to make it shorter.


strBody = strBody & Chr(13) & Chr(13) & "Thank you for submitting your data."

strCc=Request.Form("VPEMail") & "@advocatehealth.com"
strBcc=Request.Form("ReqEmail") & "@advocatehealth.com"

Set objConf = Server.CreateObject("CDO.Configuration")

Const cdoSendUsingPort = 25
Dim objFields

Set objFields = objconf.Fields

objFields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
objFields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "moat.advocatehealth.com"
objFields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

objFields.Update

Set objCDOSYSMail.Configuration = objConf

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
objCDOSYSMail.From=strFrom
objCDOSYSMail.To=strTo
objCDOSYSMail.Cc=strCc
objCDOSYSMail.Bcc=strBcc
objCDOSYSMail.Subject=strSubject
objCDOSYSMail.TextBody=strBody

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objConf = Nothing
Set objFields = Nothing




%>
<p><b>Thank you for submitting your
Research Request!<br>
</b>You will receive an e-mail
shortly.&nbsp; The e-mail was sent using the following information:</p>
<b>Sent To: <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%
   Response.Write Request.Form("ReqEmail") & "@advocatehealth.com"
  '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%
%>
<br>
From&nbsp;&nbsp;&nbsp; : Research Team
<p>Subject: Research Request Confirmation Page</p>
<p>Content: <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%
' Call the ParseBody function and pass the strBody string to it.
' This will replace the Chr(13) characters with <br> tags in the HTML.
Response.Write(ParseBody(strBody))
  '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%
%>
</p>

<p>&nbsp;</p>
</b>

Hi Stella,

Can you provide more information? Are you getting an error? If so, can you provide the error details?
It's hard to fix a problem if we don't know what the problem is....

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Imar

Actually, I think I may have found the solution to this through the help of another programmer friend. He simplified the configurations and also took out and replaced the "Parsebody" function that I have on my code.

I have got a new problem though. I think the rest of my code is okay, but now I am getting this error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/OnlineForm/Email1.asp, line 57

The DSN is properly configured and I dont know why this error message is showing up. Can anyone help?

THANKS MUCH!

Can you provide the code for the part that throws the error?

This usually indicates an incorrectly setup connection string. Are you sure about the DSN?

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Here is the code

Dim myConnString
Dim myConnection
Dim mySQL

myConnString = Application("SampDatabConn_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString

mySQL= "INSERT INTO ResearchInfo "
mySQL= mySQL & "(Name,Site,ReqEmail,VPEmail) "
mySQL= mySQL & "VALUES ('" & Replace(Request.Form ("Contact_FullName"), "'","''") & "'"
mySQL= mySQL & ",'" & Replace(Request.Form("Site"), "'", "''") & "'"
mySQL= mySQL & ",'" & Replace(Request.Form("ReqEmail"), "'","''") & "'"
mySQL= mySQL & ",'" & Replace(Request.Form("VPEmail"), "'", "''") & "'" & "')"


myConnection.Execute mySQL
myConnection.Close
Set myConnection = Nothing



The DSN is setup and is listed on the "System DSN" list.

Right. Can you try two things for me? Add the following code to the page, run it, and post the outcome of the page to the forum (that is, if he connection string doesn't contain private information): Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

This is the error message I get;

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/OnlineForm/Email1.asp, line 120

Response.Write("Connection is " &amp; myConnString &amp; "&lt;br /&gt;")
------------------------------------^


What say you?

I say something went wrong with Copy and Paste.

Apparently you have an HTML aware editor, that replaces & with &amp; all by itself without telling you ;)

The code should look like this:

Response.Write("Connection is " & myConnString & "<br />")
Response.Write("SQL is " & mySQL & "<br />")
Response.End

With just a single ampersand between is " and myConnString. Since it's ASP there is no need to escape it as HTML

Imar'

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Gotcha!

But now its giving me the same error message as before:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/OnlineForm/Email1.asp, line 71

Arrange your code as follows. What's important is that the value for the connectionstring and the SQL statement are written to the screen: This shouldn't result in an error and instead you'll see the connection string and the SQL statement.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.