Hi there !
I need the guidance in this case. I checked it at every aspects but still not able to trace out the error. The problem is as follows :
If some one get registered at dad client website, he gets a password by email. But if someone get registered himself/herself using the domain "midsouth.rr.com" he wouldn't get any such email. I don't know why the same component behaves like that..
I am using CDONT component for sending the emails. Below are the code of that file :
<%@ Language=VBScript %>
<% Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
%>
<% If Session("Loggeduser")=False then
Response.Redirect ("/error.asp?user=notauthenticate")
End if %>
<%
Dim strchck, achckarray, i, Rs, found
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
strchck = Request("selct")
achckarray = split(strchck,",")
found = 0
For i = lbound(achckarray) to ubound(achckarray)
if Request("alclass")="Allow" then
sqlopr="update abcd set adminappr=1 where usernum='"& achckarray(i)&"'"
end if
if Request("delclass")="Delete" then
sqlopr= " Delete from abcd where usernum='"& achckarray(i)&"'"
end if
Conn.Execute (sqlopr)
found = found + 1
Next
For i = lbound(achckarray) to ubound(achckarray)
if Request("alclass")="Allow" then
sqldata = "select * from abcd where usernum='"& achckarray(i)&"'"
Rs.Open sqldata,conn
' Sending an automated reply to the user when it successfully create thier Login.
bdy = "Dear " & Rs("userfname")& " " & Rs("userlname") & vbcrlf
bdy=bdy & vbcrlf
bdy=bdy & "Your account is approved. Below are the details of your account :" & vbcrlf
bdy=bdy & vbcrlf
bdy=bdy & "User ID : " & Rs("userid")& " " & vbcrlf
bdy=bdy & "Password : " & Rs("userpass")& "" & vbcrlf
bdy=bdy & vbcrlf
bdy=bdy & "Regards," & vbcrlf
bdy=bdy & "Webmaster"
Dim NewMail, Body
Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.To= Rs("useremail")
NewMail.From= "
[email protected]"
Body= bdy
NewMail.Subject = "Abcd Login Details"
NewMail.Body = Body
NewMail.Bodyformat=1
NewMail.Mailformat=0
NewMail.Send
End if
Next
if found = 0 then
Response.Redirect("pendaccount.asp?err=notchecked" )
else
Response.Redirect("pendaccount.asp")
end if
Rs.Close
Set Rs= Nothing
Rs1.Close
Set Rs1= Nothing
Conn.Close
Set Conn = Nothing
%>
Thanks for your time and co-operation.
With Thanks !
Newkid