:bho:

Basta una ricerca: http://www.google.it/search?q=area+riservata+asp&start=0&ie=utf-8&hl=it&oe=utf-8&client=firefox-a&rls=org.mozillaofficial

Si le avevo già viste, ma non è quello che stavo cercando, io cercavo un codice sorgente per la registrazione dei vari utenti, non il login con password preimpostate, l'unica cosa che ho trovato è questa
http://www.webmasterpoint.org/asp/script/06_registrazione.asp
ma troppo complicato.
Esiste qualcosa di simile più semplice ?

Grazie !!!!

Prima di tutto costruisciti il form per l'invio dei dati con tutti i campi che ti serve registrare nel database. L'action del form fallo puntare ad una pagina asp che recupera i dati (es. strNome = Request("nome")) e li inserisce nel database attraverso un "INSERT INTO nomeTabella (nome, cognome,...,n) VALUES (strNome, strCognome,...,strN)"

IL form riesco a realizzarlo
il problema è tutto il resto
potresti postare il codice grazie !!!

Vorrei qualcosa simile all'esempio fatto qui
http://www.amicopc.com/asp/register.asp
solo che qui non esiste un comando che verifica se un utente si è registrato
con l'user e passw uguali ad un'altro !
E quindi due utenti possono registrarsi tranquillamente con la stessa user e passw.

Puoi usare quello script e modificarlo secondo le tue esigenze, per controllare se esiste già un determinatu user nel database basta una semplice query

"SELECT * FROM tabella WHERE nick = " & request.form("nick")

Non avendo mai fatto applicazioni del genere, potresti indicarmi dove copiare questa query
"SELECT * FROM tabella WHERE nick = " & request.form("nick")
da te suggerita ?

Dove siete Legolas e Madai, mi avete risolto tanti problemi datemi una mano anche per questo !!!!x:x

posta la pagina dove inserisci gli utenti nel db e vediamo che si può fare

Ciao

Sapevo di poter contare su di voi

il file si chiama registrami.asp, il contenuto è questo:

<%
dim nome
dim user
dim pwd
nome=request.form("form_nome")
user=request.form("form_user")
pwd=request.form("form_password")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
response.redirect("reg_ok.htm")
%>

esiste poi un'altro file che si chiama validate.asp che ha il compito di verificare i dati inseriti nel database, il contenuto è questo:

<%
dim url
url=request.querystring("url")
%>
<form method="POST" action="check.asp">
<p align="center">Username<br>
<input type="text" name="form_user" size="20"></p>
<p align="center">Password<br>
<input type="password" name="form_password" size="20"></p>
<p align="center"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
<input type="hidden" name="form_url" value="<% = url %>">

Non mi abbandonate

Prova così, facci sapere, ciao:

<%
dim nome
dim user
dim pwd
'evitiamo l'SQL Injection replicando gli apici
nome=**Replace(**request.form("form_nome")**,"'","''")**
user=**Replace(**request.form("form_user")**,"'","''")**
password=**Replace(**request.form("form_password")**,"'","''")**
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass** WHERE user = '" & user & "'**"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

**If rs.EOF then**

RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing 
response.redirect("reg_ok.htm")

**Else

Response.Write("User gi&aacute; esistente")
Response.End
RS.Close
 Set RS=Nothing
 conn.Close
 Set conn=Nothing

End if**
%>

Funziona siete sempre i migliori grazie 1000 !

Se avete anche sotto mano uno script con l'aggiunta dell'opzione dell'invio dei dati tramite email sarebbe il massimo !!!

Grazieeeeeee !!!!

Ciao, scusa se non ti ho risposto prima ma ho la linead che da agosto non funziona e aspetto il tecnico...

Comuqnue per inviare una mail (ipotizzando che usi cdosys) basta fare così:

  Dim objMail, objConfig
  Set objMail = Server.createObject("CDO.Message")
  Set objConfig = Server.createObject ("CDO.Configuration")
  
  With objConfig
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "il tuo smtp"
           .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Fields.update
    End With

    Set objMail.Configuration = objConfig
    objMail.From = "[email protected]" ' Mittente
    objMail.To = "qui ci metti la mail del destinatario" ' Destinatario
    objMail.Subject = "Oggetto mail"
    objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
    objMail.Send()
    Set objMail = Nothing

Ciao

Legolas questo va copiato sempre su "registrami.asp" ?

@gelova said:

Legolas questo va copiato sempre su "registrami.asp" ?
Si.
Magari però prima di fare copia incolla leggiti lo script perchè alcune voci le devi editere te

Ciao

@Legolas said:

objMail.From = "[email protected]" ' Mittente
objMail.To = "qui ci metti la mail del destinatario" ' Destinatario

Infatti non ho ben capito questi passaggi.....se "[email protected]" si iscrive
il proprietario del sito ad esempio "[email protected]" dovrebbe ricevere un'email da "[email protected]".....come faccio ad inserire l'email del mittente se non so chi si iscrive ? :bho:

Dunque mi sono per un attimo, la mail la deve ricevere l'utente ho il proprietario del sito?