Salve ragazzi, io vorrei fare in modo che le persone che si iscrivono al mio sito confermi l'iscrizione con un link che li arriva via e-mail. La mia pagina register.asp e così:
================================================== ===================
<% email=Request.Form("usersemail") %>
<% pass=Request.Form("userspass") %>
<% nick=Request.Form("nickname") %>
<%
email = Replace(email, "<", "")
email = Replace(email, ">", "")
email = Replace(email, "'", "'")
nick = Replace(nick, "<", "")
nick = Replace(nick, ">", "")
nick = Replace(nick, "'", "'")
pass = Replace(pass, "<", "")
pass = Replace(pass, ">", "")
pass = Replace(pass, "'", "'")
%>
<center>
<% if email <> "" and pass <> "" and nick <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
set RS =Conn.Execute("SELECT * FROM usersdetails WHERE usersemail = '" & email & "'")
if not RS.eof then
RS.movefirst
Do
alreadyemail = "1"
RS.movenext
Loop until RS.eof
RS.movefirst
End if
set RS =Conn.Execute("SELECT * FROM usersdetails WHERE nickname = '" & nick & "'")
if not RS.eof then
RS.movefirst
Do
alreadynickname = "1"
RS.movenext
Loop until RS.eof
RS.movefirst
End if
if alreadyemail <> "1" and alreadynickname <> "1" then
sql_insert = "insert into usersdetails (usersemail, userspass, nickname) values ('"&email&"', '"&pass&"', '"&nick&"')"
Conn.Execute sql_insert
Conn.Close
Set Conn = Nothing
response.write fontstuff
response.write "
Email: "
response.write email
response.write "
Nickname: "
response.write nick
response.write "
"
response.write registered
else
Conn.Close
Set Conn = Nothing
response.write fontstuff
if alreadyemail = "1" then
response.write "
"
response.write emailregistered
end if
response.write "
"
if alreadynickname = "1" then
response.write nickregistered
end if
response.write "
"
response.write registerdonext
end if
%>
<% else %>
<table width=350><tr><td width=350>
<% response.write fontstuff %>
<% response.write register %>
<form action="index.asp?inc=register" method=post>
<input type =text name="usersemail" value="<%response.write email%>">
Password
<input type =password name="userspass" value="<%response.write pass%>" >
Nickname
<input type =text name="nickname" value="<%response.write nick%>">
<input type =submit value=Invia> <input type=reset >
</table>
<%end if%>
</center>
================================================== ===================
dove e come inserisco il comando per inviare la mail, e sopratutto dove verrà puntato il link ?
![]()

Ottima scelta
Rispondi quotando