How can I confirm email address exists after registration

[Floodster]

Hi guys,
I'm looking into making my registration page a bit more dynamic. When a user currently registers they give an email address amongst other things to gain access to certain areas of the site. Currently you can give any address (i.e made.up@blank.com). What I want is when they submit the page it stores their details in the database & then emails them a link to their email address with a link which will activate their account.

To start I have only used the basic settings of email from a web page (mailto.

Any help on where to start would be great.

 

[DotNetGnat]

try this link:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6602

-DNG

 

[Ferrian]

This is the way I'd do it, the email sent out will be very basic, but it should allow you to check the addresses, in the database set their status to false until they enter the random password you created for them, after that it will be set to true and you'll know who can have access to your site.

Hope this is sort of what you're looking for.

~Ben
Intranet Developer

<%
'Get the email address from where it was entered
email_addr = request.form("email_address")

'Create a random password
'lots of places to find the info for this, from a quick search I found this site:
'[URL unfurl="true"]http://4guysfromrolla.com/webtech/tips/t060500-1.shtml[/URL]
random_password = generatedPassword

'insert the email address, random password and whatever other information into the database

'send an automatic email to the address given
Dim objMail
Dim strSubject
Dim strText
Dim IPAddress 

strText = "You have signed up to [website name]." & vbCrLf & "Your email address is " & email_addr & vbCrLf  & "Your random password in order to log in is " & random_password & vbCrLf & "If you did not sign up for this information then please ignore this email."

Set objMail = Server.CreateObject("CDO.Message")
objMail.To = email_addr
objMail.From = "your@email.com"
objMail.Bcc = ""
objMail.ReplyTo = ""
objMail.Subject = "Email title"
objMail.TextBody = strText
objMail.Send
Set objMail = Nothing
%>

 

[Floodster]

thanks to both of you I shall try to see which one I can implement onto my site.