Hello, I have had to transfer over from CDONTS to CDOSYS, due to the host for this company, however transfering accross has cost me much trouble and now I am a little lost in the conversion, so maybe someone can help me here. So far I have got the host to accept the cdosys file, whereas before I was having so much trouble. Now I need the file to retrieve the five form fields, name, company, telephone, email and enquiry, and then forward this to my address for testing on the output. I have searched and searched and cannot find an in-depth tutorial other than the standard cdosys setup. Can anyone help show me the basic procedures, and what I need to do do achieve this. The code I am using is as follows :
[AS]
<%
'Dimension variables
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject(“CDO.Message”)
Set objCDOSYSCon = Server.CreateObject (“CDO.Configuration”)
'Out going SMTP server
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.seriousplayersclub.co.uk”
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
objCDOSYSCon.Fields(“urn:schemas:httpmail:importance”).Value = 1 'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "[email protected]"
objCDOSYSMail.To = "[email protected]"
objCDOSYSMail.Subject = “Serious Players Club - online enquiry”
’ This property sets the mail body of the submitted email (HTMLBody=HTML or TextBody=Plain).
objCDOSYSMail.HTMLBody = email_body
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
[/AS]
Please if you are familiar with the cdosys component, and have used it, please please help me out here.
