Can someone add in the programming needed to fix my ASP mailer?

Question

I'm using CDOSYS (CDO.Message). The mailer worked perfectly well on the other server, but now that I've switched servers, it's telling me that my SendUsing value is invalid. I don't know anything about setting up configuration. The website is www.cliqimaging.com, the Ip Address is 64.68.234.20. I don't even know the difference between the different sendusing values. Here's the programming:

<%
Option Explicit

Dim strBody, objMail
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody

sFrom = "[e-mail]"
sTo = "[e-mail]"
sSubject = "Online Contact Request from CliqImaging.com Website"
sTextBody = strBody

strBody = "Request recieved at: " & Now() & vbCrLf & vbCrLf
strBody = strBody & "Name: " & Request("namef") & vbCrLf
strBody = strBody & "Address: " & Request("addressf") & vbCrLf
strBody = strBody & "City: " & Request("cityf") & vbCrLf
strBody = strBody & "State: " & Request("statef") & vbCrLf

strBody = strBody & "Zip: " & Request("zipcodef") & vbCrLf
strBody = strBody & "Daytime Phone: " & Request("dayphonef") & vbCrLf
strBody = strBody & "Evening Phone: " & Request("altphonef") & vbCrLf
strBody = strBody & "E-Mail Address: " & Request("emailf") & vbCrLf
strBody = strBody & "Service Interested In: " & Request("messagef") & vbCrLf

' Create an instance of the mail object and set its properties.
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom
objMail.To = sTo
objMail.Subject = sSubject
objMail.TextBody = sTextBody

' Send the message
objMail.Send

' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objMail = Nothing
%>

Answer 1

You have to identify the smtp server being used. I gave a reference site below with the script. I'm sure once i paste it here, it will be hosed with ...

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"

'Server port (typically 25)
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMail.Configuration.Fields.Update

Answer 2

i see what you did this is going to be so funny but the reason why u r having this problem i think its because you switched so now you have to start over again.that could be the problem but if it works let me know and if it don't work let me know i will look in to it further with you.