<%
if request("errore")=1 then
response.write("<script>alert('Non Puoi Inserire Spazi Prima del Nome!')</script>")
end if
if request("errore")=2 then
response.write("<script>alert('Non Puoi Inserire Spazi Dopo il Nome!')</script>")
end if
if request("errore")=3 then
response.write("<script>alert('La somma dei valori, è maggiore di 2000!')</script>")
end if
if request("errore")=4 then
response.write("<script>alert('La somma dei valori, è minore di 2000!')</script>")
end if
if request("errore")=5 then
response.write("<script>alert('Le ninfe e le fate, devono essere femmine!')</script>")
end if
if request("errore")=6 then
response.write("<script>alert('è concesso inserire solo valori maggiori di 1!')</script>")
end if
if request("errore")=7 then
response.write("<script>alert('Attenzione, è concesso inserire solo valori numerici!')</script>")
end if
IP=Request.ServerVariables("REMOTE_ADDR")
nome = replace(request("nome"),"$","$")
nome = replace(nome,"§","{")
nome = replace(nome,"@","@")
nome = replace(nome,"<","<")
nome = replace(nome,">",">")
mail = replace(request("mail"),"$","$")
razza = replace(request("razza"),"$","$")
razza = replace(razza,"§","{")
razza = replace(razza,"@","@")
razza = replace(razza,"<","<")
razza = replace(razza,">",">")
//GENERATORE DI PASSWORD CASUALI
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize
Do Until len(password) = 8
carattere = Int((37 * Rnd) + 1)
password = password & Mid(caratteri,carattere,1)
Loop
if request("azione")<>"" and nome<>"" and mail<>"" and request("salute")<>"" and request("forza")<>"" and request("intelligenza")<>"" and request("magia")<>"" and request("destrezza")<>"" and request("sesso")<>"" and(razza="umani" or razza="nani" or razza="fate" or razza="elfi" or razza="vampiri" or razza="demoni" or razza="drow" or razza="centauri" or razza="ninfe" or razza="goblin" or razza="mezzorchi" or razza="angeli" or razza="ombre") then
set Connedate2="select nick from utenti where nick like '"&nome&"'"
set Conndate2=conn.Execute(Connedate2)
if Conndate2.Eof then
If Left(nome, 1) = " " Then
Conn.close
Set Connedate2=Nothing
set Conndate2=Nothing
response.redirect("iscriviti.asp?errore=1")
end if
If Right(nome, 1) = " " Then
Conn.close
Set Connedate2=Nothing
set Conndate2=Nothing
response.redirect("iscriviti.asp?errore=2")
end if
if (request("sesso")<>"femmina") and ( (request("razza")="ninfe") or (request("razza")="fate") ) then
response.redirect("iscriviti.asp?errore=5")
end if
if int(request("salute"))<1 or int(request("magia"))<1 or int(request("intelligenza"))<1 or int(request("destrezza"))<1 or int(request("forza"))<1 then
response.redirect("iscriviti.asp?errore=6")
end if
valore = int(request("salute")) + int(request("forza")) + int(request("magia")) + int(request("intelligenza")) + int(request("destrezza"))
if valore>2000 then
response.redirect("iscriviti.asp?errore=3")
end if
if valore<2000 then
response.redirect("iscriviti.asp?errore=4")
end if
if not(isNumeric(request("salute"))) or not(isNumeric(request("magia"))) or not(isNumeric(request("intelligenza"))) or not(isNumeric(request("forza"))) or not(isNumeric(request("destrezza"))) then
response.redirect("iscriviti.asp?errore=7")
end if
set controllo=Conn.Execute("select mail from utenti where mail='"&mail&"'")
if controllo.Eof then
set Conndate=Conn.Execute("insert into utenti (Nick,pass,razza,sesso,casato,mail,dataregistrazio ne,vekkiarazza,forza,intelligenza,destrezza,magia, salute) values('"&nome&"','"&password&"','"&razza&"','"&re quest("sesso")&"','"&IP&"', '"&mail&"', '"&date&"', '"&razza&"','"&request("forza")&"','"&request("int elligenza")&"','"&request("destrezza")&"','"&reque st("magia")&"','"&request("salute")&"')")
//FORM MAIL
Dim miaMail
Set miaMail = Nothing
Set miaMail = CreateObject("Persits.MailSender")
miaMail.From = "mia@mail.it"
miaMail.Host = "smtp.mail.it"
miaMail.AddAddress mail
miaMail.FromName = "Phoenix"
miaMail.Subject = "Registrazione!!"
miaMail.IsHTML=FALSE
miaMail.Username="Phoenix"
miaMail.Password="password"
miaMail.Body = "Benvenuto nel sito, la tua password è : " + password
miaMail.Send
Set miaMail = Nothing
Conn.close
set Conndate2=Nothing
Set Connedate2=Nothing
set controllo=Nothing
response.write("<script>alert('Registazione effettuata con successo')</script>")
else
Conn.close
set Conndate2=Nothing
Set Connedate2=Nothing
set controllo=Nothing
response.write("<script>alert('Spiacenti : 6 gia iscritto!')</script>")
end if
else
Conn.close
Set Connedate2=Nothing
set Conndate2=Nothing
response.write("<script>alert('Spiacenti : Il personaggio già esiste!')</script>")
end if
elseif request("azione")<>"" and(nome="" or mail="" or(razza<>"umani" or razza<>"nani" or razza<>"fate" or razza<>"elfi" or razza<>"vampiri" or razza<>"demoni" or razza<>"drow" or razza<>"centauri" or razza<>"ninfe" or razza<>"goblin" or razza<>"mezzorchi" or razza<>"angeli" or razza<>"ombre") and request("salute")="" and request("forza")="" and request("destrezza")="" and request("magia")="" and request("intelligenza")="") then
response.write("<script>alert('Attenzione : Non hai compilato tutti i campi!')</script>")
end if
%>
Rispondi quotando
