Web Hosting Forum | Lunarpages

Author Topic: formmail .asp sends... but with no info  (Read 12374 times)

Offline fstjohn

  • Intergalactic Superstar
  • *****
  • Posts: 180
    • http://www.mortgagecorp.com
formmail .asp sends... but with no info
« on: February 18, 2011, 05:44:01 AM »
I've gotten my formmail to work, but it has none of the user's info in it - lil' help?

here's the form:
http://www.lunarpages.com/f_form2.asp

and here's the code:
Code: [Select]
<%
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "quick quote"
objMessage.Sender = "fstjohn@lunarpages.com"
objMessage.From = "fstjohn@lunarpages.com"
objMessage.To = "fstjohn@lunarpages.com"
objMessage.TextBody = "lead from lunarpages" & vbCRLF & "It was sent using SMTP authentication."

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

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

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "fstjohn@lunarpages.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update
objMessage.Send

%>



 

Share |