Det her virker hos mig:
*** 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" value="Mr. Test">
</td>
</tr>
<tr>
<td width="387">E-mail</td>
<td width="166">
<input type="text" name="email" value="mr@test.dk">
</td>
</tr>
<tr>
<td width="387">
<br>
<input type="submit" name="Submit" value="Submit">
</td>
<td width="166"> </td>
</tr>
</table>
</form>
</html>
*** generatePin.asp (jeg har kommenteret hele mail script, da jeg ikke har mail installeret hos mig)
<%
Option Explicit
' 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
' theSurfer har rettet denne linie:
if Session("pin") = "" then 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>
</form>
<font size="1"><i>** the PIN sent by e-mail is <%response.write session("pin")%>, remove this line before publishing</i></font>
</html>
*** authenticatePin.asp (jeg konverter indholdet af både formen og sessionen til en streng med CStr)
<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.comdim pin
' get pin entered by user
pin = request.form("pin")
' check with original pin stored in session variable
' jeg konverter indholdet af både formen og sessionen til en streng med CStr,
' da det er 2 forskellige typer:
if CStr(trim(session("pin")))=CStr(trim(pin)) then%>
Congratulations! We have verified your e-mail.
<%else%>
The pin is incorrect.
<%end if%>
