Can anyone tell me if this is a code or server issue? Here is the mail I am trying to send. When I run this I get an error about the object creation.
<%
' 'sets variables
email = request.form("email"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.QMessage = true
Mailer.FromName = "me.com"
Mailer.FromAddress= "me@me.com"
Mailer.RemoteHost = "mail.send.com"
Mailer.AddRecipient email, email
Mailer.Subject = "Your lost username and password"
Mailer.BodyText = "The login Information you requested." & vbCrlf & vbCrlf
while not objrs.eof
user = objrs.Fields("username"
pass = objrs.Fields("password"
sendmail.Body = sendmail.Body _
& "Username=" & user & vbCrlf _
& "Password=" & pass & vbCrlf
rsobjrs.Movenext
wend
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>
<%
' 'sets variables
email = request.form("email"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.QMessage = true
Mailer.FromName = "me.com"
Mailer.FromAddress= "me@me.com"
Mailer.RemoteHost = "mail.send.com"
Mailer.AddRecipient email, email
Mailer.Subject = "Your lost username and password"
Mailer.BodyText = "The login Information you requested." & vbCrlf & vbCrlf
while not objrs.eof
user = objrs.Fields("username"
pass = objrs.Fields("password"
sendmail.Body = sendmail.Body _
& "Username=" & user & vbCrlf _
& "Password=" & pass & vbCrlf
rsobjrs.Movenext
wend
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>