Hello, i am still unable to send mail so may i know what is wrong with the following code?
<%
if (Request.Form ("text1"
<> "" ) then
Dim DataConn, oRs
Dim SQL, myEmail,Email2
Dim password2
Dim objMail
Dim strMessage
myEmail=Request.Form ("text1"
Set DataConn = Server.CreateObject("ADODB.Connection"
DataConn.ConnectionString ="driver={sql server};server=CON7;database=user;DSN=localserver;PWD=sa;UID=sa;"
DataConn.Open
SQL="select password, email from info where email='" & myEmail & "'"
Set oRs= Server.CreateObject ("ADODB.recordset"
oRs.Open SQL, DataConn, 3
If oRs.EOF Then
Response.Write "<html><head><body bgcolor='#000000' text='#ffff00'><center>"
Response.Write "<font face='verdana' size='+2'><p>"
Response.Write "No records found:<p> Use the browser's back button to go back and try again"
Response.Write "</font></body></html>"
Response.End
end if
Email2=oRs("email"
password2=oRs("password"
oRs.Close
Set oRs=nothing
Set objMail = Server.CreateObject("CDONTS.NewMail"
objMail.From="yoursystem@sys.com"
objMail.To = Email2
objMail.Subject ="Your Password"
objMail.Body= password2
objMail.Send
Set objMail= nothing
Response.Redirect ("else%>
<script>
window.alert ("Unsuccessful"
</script>
<%End if
%>Thank You! X-)
<%
if (Request.Form ("text1"
<> "" ) thenDim DataConn, oRs
Dim SQL, myEmail,Email2
Dim password2
Dim objMail
Dim strMessage
myEmail=Request.Form ("text1"
Set DataConn = Server.CreateObject("ADODB.Connection"
DataConn.ConnectionString ="driver={sql server};server=CON7;database=user;DSN=localserver;PWD=sa;UID=sa;"
DataConn.Open
SQL="select password, email from info where email='" & myEmail & "'"
Set oRs= Server.CreateObject ("ADODB.recordset"
oRs.Open SQL, DataConn, 3
If oRs.EOF Then
Response.Write "<html><head><body bgcolor='#000000' text='#ffff00'><center>"
Response.Write "<font face='verdana' size='+2'><p>"
Response.Write "No records found:<p> Use the browser's back button to go back and try again"
Response.Write "</font></body></html>"
Response.End
end if
Email2=oRs("email"
password2=oRs("password"
oRs.Close
Set oRs=nothing
Set objMail = Server.CreateObject("CDONTS.NewMail"
objMail.From="yoursystem@sys.com"
objMail.To = Email2
objMail.Subject ="Your Password"
objMail.Body= password2
objMail.Send
Set objMail= nothing
Response.Redirect ("else%>
<script>
window.alert ("Unsuccessful"
</script>
<%End if
%>Thank You! X-)