Routine checks if the e-mail entered in a form is valid. Generates anoutbound e-mail with direct link
to confirm registration.
1. index.asp:
<%
' Authenticate user e-mails
' by Rodrigo S. Alhadeff, 1/2001
' About the Author: Rodrigo S. Alhadeff is the Founder & Senior Programmer of Comersus
Shopping Cart, www.comersus.com
%>
<html>
<title>Registration form</title>
<br><b>Registration
form</b><br><br>
<p>Enter your data</p>
<form method="post" action="generatePin.asp" name="generate">
<table width="300" border="0">
<tr>
<td width="387">Name</td>
<td width="166">
<input type="text" name="name">
</td>
</tr>
<tr>
<td width="387">E-mail</td>
<td width="166">
<input type="text" name="email">
</td>
</tr>
<tr>
<td width="387">
<br>
<input type="submit" name="Submit" value="Submit">
</td>
<td width="166"> </td>
</tr>
</table>
</form>
</html>
2. generatePin.asp:
<%
' Authenticate user e-mails
' by Rodrigo S. Alhadeff, 1/2001
' About the Author: Rodrigo S. Alhadeff is the Founder & Senior Programmer of Comersus
Shopping Cart, www.comersus.com
on error resume next
dim name, email
' get form fields
name = request.form("name")
email = request.form("email")
' generate random pin and store in session variable
randomize
session("pin") = int(rnd*99999)+1
' send user e-mail with generated PIN
' replace to match your email component
set mail = server.createObject("Persits.MailSender")
mail.Host = "smtp.yourdomain.com"
mail.From = "bot@yourdomain.com"
mail.FromName = "Registration bot"
mail.AddAddress email
mail.AddReplyTo "bot@yourdomain.com"
mail.Subject = "Your registration PIN"
mail.Body = "Your registration PIN is: "&session("pin")
on error resume next
mail.Send
%>
<html>
<title>Authenticating e-mails</title>
<br><b>Authenticating
e-mails</b><br><br>
<p><%response.write name%>, please check your e-mail and enter the
pin we have sent you</p>
<form method="post" action="authenticatePin.asp" name="authenticate">
<table width="300" border="0">
<tr>
<td width="387">PIN</td>
<td width="166">
<input type="text" name="pin">
</td>
</tr>
<tr>
<td width="387">
<input type="submit" name="Submit" value="Submit">
</td>
<td width="166"> </td>
</tr>
</table>
</form>
<font size="1"><i>** the PIN sent by e-mail is <%response.write
session("pin")%>, remove this line before publishing</i></font>
</html>
3. authenticatePin.asp:
<html>
<title>Authenticating e-mails</title>
<br><b>Authentication</b><br><br>
<%
' Authenticate user e-mails
' by Rodrigo S. Alhadeff, 1/2001
' About the Author: Rodrigo S. Alhadeff is the Founder & Senior Programmer of Comersus
Shopping Cart, www.comersus.com
dim pin
' get pin entered by user
pin = request.form("pin")
' check with original pin stored in session variable
if trim(session("pin"))=trim(pin) then%>
Congratulations! We have verified your e-mail.
<%else%>
The pin is incorrect.
<%end if%>
Submitted by Rodrigo Alhadeff
