I am setting up this web form online to send to my email..
When I submit it.......
It goes to the email.asp and I get the email but i am not getting the data.......
What am I doing wrong:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
</head>
<body>
<%
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.s419.com"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "kevin@s419.com"
.From = "CCC Registration"
.Subject = "CCC"
.TextBody = "Mike Alstott"
.Send
End With
%>
</body>
</html>
When I submit it.......
It goes to the email.asp and I get the email but i am not getting the data.......
What am I doing wrong:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
</head>
<body>
<%
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.s419.com"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "kevin@s419.com"
.From = "CCC Registration"
.Subject = "CCC"
.TextBody = "Mike Alstott"
.Send
End With
%>
</body>
</html>
