Thread: Need guidance
View Single Post
  #1 (permalink)  
Old July 27th, 2004, 10:44 AM
Newkid Newkid is offline
Registered User
Join Date: Jul 2004
Location: Memphis, , .
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default Need guidance

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 "" 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

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= ""
Body= bdy
NewMail.Subject = "Abcd Login Details"
NewMail.Body = Body
End if

if found = 0 then
Response.Redirect("pendaccount.asp?err=notchecked" )
end if
Set Rs= Nothing
Set Rs1= Nothing
Set Conn = Nothing

Thanks for your time and co-operation.

With Thanks !