spaceclown
|
| Posted: 02/04/2002, 11:05 AM |
|
Does anyone know how to email a confimation of after someone registers. I would like to send them there Name, User Name and Password. I am altering from the original gotocode project file. ASP with Access 2000. Thanks
|
|
|
 |
Nicole
|
| Posted: 02/05/2002, 2:07 AM |
|
Hello,
add send mail code to AfterInsert event of Registration form. Refer to CC TellAFriend example to find how to send mail.
|
|
|
|
spaceclown
|
| Posted: 02/05/2002, 6:32 AM |
|
I still can't get it to work. Here is my "after insert" on my registration form
Set f = fso.CreateFolder(Server.MapPath("UserImages\"&flduser_login))
set fso = Nothing
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = getparam("user_email")
objCDO.From = "support@drostparkkhoury.org"
objCDO.Subject = "Drost Park Registration Information"
objCDO.Body = _
"Hello " & getparam("user_name") & "!" & chr(13) & _
chr(13) & _
"This is your registration information for the Drost Park Khoury League website. Please keep this information for your records." & chr(13) & _
"http://www.drostparkkhoury.org" & chr(13) & _
chr(13) & _
"Thank you for registering at Drost Park Khoury"
objCDO.MailFormat = 0
objCDO.Send
|
|
|
|
Jack
|
| Posted: 02/05/2002, 6:40 AM |
|
Does TellAFriend work for you? Make sure you have CDONTS installed.
And provide more details what exactly doesn't work? May be you get any error messages?
|
|
|
|
spaceclown
|
| Posted: 02/05/2002, 6:47 AM |
|
CDONTS is functioning on the server. Tellafriend does work.
|
|
|
|
spaceclown
|
| Posted: 02/05/2002, 6:47 AM |
|
After they fill out the Registration form and push submit the get
Error Type:
Microsoft VBScript runtime (0x800A004C)
Path not found
/template/Registration.asp, line 327
Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)
Page:
POST 231 bytes to /template/Registration.asp
POST Data:
user_login=test8&user_pass=test8&user_pass2=test8&user_name=test8&user_email=timothy.blankenship@sbcdo.com&FormAction=insert&FormName=Reg&PK_user_id=&user_id=&date_register=2%2F5%2F2002+8%3A52%3A45+AM . . .
It's probably just a syntax error.
|
|
|
|
Spaceclown
|
| Posted: 02/05/2002, 7:12 AM |
|
I did make a couple changes but no luck.
Server Windows 2000 IIS 5
CDONTS installed and functioning (tellafriend works)
The user gets a previous stated erro screen but if they refresh they are registered but no email is sent. Here is the code with a couple new lines. Thanks again eveyone for helping.
Session("UserID") = CStr(DLookUp("users", "user_id", "user_login =" & ToSQL(flduser_login, "Text")))
Session("UserRights") = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(Server.MapPath("UserImages\"&flduser_login))
set fso = Nothing
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = getparam("user_email")
objCDO.From = "support@drostparkkhoury.org"
objCDO.Subject = "Drost Park Registration Information"
objCDO.Body = _
"Hello " & getparam("user_name") & "!" & chr(13) & _
chr(13) & _
"This is your registration information for the Drost Park Khoury League website. Please keep this information for your records." & chr(13) & _
"http://www.drostparkkhoury.org" & chr(13) & _
chr(13) & _
"UserName: " & getparam("user_name") & chr (13) & _
"Password: " & getparam("user_pass") & chr (13) & _
"Thank you for registering at Drost Park Khoury"
objCDO.MailFormat = 0
objCDO.Send
|
|
|
|
Nicole
|
| Posted: 02/06/2002, 12:20 AM |
|
Hello,
what is Registration.asp, line 327 you got the error for? I suppose it is:
Set f = fso.CreateFolder(Server.MapPath("UserImages\"&flduser_login))
set fso = Nothing
|
|
|
|
OSMAN
|
| Posted: 04/28/2002, 2:21 PM |
|
To fix this problem, you must create folder in root.
Images
UserImages
' Reg AfterInsert Event begin
Session("UserID") = CStr(DLookUp("users", "user_id", "user_login =" & ToSQL(flduser_login, "Text")))
Session("UserRights") = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(Server.MapPath("UserImages\"&flduser_login))
set fso = Nothing
' Reg AfterInsert Event end
'-------------------------------
|
|
|
|
