+ Rispondi alla Discussione
Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 50 di 65

[ASP]come creare un login e registrazione utenti

Ultimo Messaggio di pinopigna il:
  1. #1
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246

    [ASP]come creare un login e registrazione utenti

    Ciao a tutti !
    Ho un problemino, realizzando delle pag con Dreamweaver dovrei creare un pagina per poter registrare gli utenti con Access i campi sono 5
    Nome - Cognome - Username - Password - email sapreste indicarmi qualche script semplicissimo (data la mia poca esperienza in asp) da poter utilizzare ?

    Grazie 1000 !!!

  2. #2
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246

  3. #3
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    Cerchi un hotel a Ischia? Pronto Ischia.

  4. #4
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    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/sc...istrazione.asp
    ma troppo complicato.
    Esiste qualcosa di simile più semplice ?

    Grazie !!!!

  5. #5
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    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)"
    Cerchi un hotel a Ischia? Pronto Ischia.

  6. #6
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    IL form riesco a realizzarlo
    il problema è tutto il resto
    potresti postare il codice grazie !!!

  7. #7
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    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.

  8. #8
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    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")


  9. #9
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Non avendo mai fatto applicazioni del genere, potresti indicarmi dove copiare questa query
    "SELECT * FROM tabella WHERE nick = " & request.form("nick")
    da te suggerita ?

  10. #10
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Dove siete Legolas e Madai, mi avete risolto tanti problemi datemi una mano anche per questo !!!!

  11. #11
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    posta la pagina dove inserisci gli utenti nel db e vediamo che si può fare

    Ciao

  12. #12
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    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")
    %>

  13. #13
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    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 %>">

  14. #14
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Non mi abbandonate

  15. #15
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    Prova così, facci sapere, ciao:

    Codice:
    <%
    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
    %>
    Cerchi un hotel a Ischia? Pronto Ischia.

  16. #16
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    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 !!!!

  17. #17
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    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ì:

    Codice:
      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

  18. #18
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Legolas questo va copiato sempre su "registrami.asp" ?

  19. #19
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Citazione Originariamente Scritto da gelova
    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

  20. #20
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Citazione Originariamente Scritto da Legolas
    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 ?

  21. #21
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Dunque mi sono per un attimo, la mail la deve ricevere l'utente ho il proprietario del sito?

  22. #22
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Il proprietario del sito deve ricevere nella sua casella di posta l'avvenuta registrazione dell'utente (naturalmente se è possibile con tutti i dati che l'utente ha inserito nel form)

  23. #23
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Il proprietario del sito deve ricevere nella sua casella di posta l'avvenuta registrazione dell'utente (naturalmente se è possibile con tutti i dati che l'utente ha inserito nel form)
    Allora è ancora più semplice;

    Codice:
    objMail.From = "[email protected]" ' Ci puoi scrivere anche la mail del destinatario
     objMail.To = "[email protected]" 'Mail del destinatario
    Quindi ipotiziamo che il destinatario si [email protected]

    Codice:
    objMail.From = "[email protected]"
    objMail.To = "[email protected]"
    Per i dati inseriti nel forum direi che puoi aggiustare ciò che ti avevo postato prima

    Ciao

  24. #24
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Citazione Originariamente Scritto da Legolas
    objMail.From = "[email protected]" ' Ci puoi scrivere anche la mail del destinatario
    objMail.To = "[email protected]" 'Mail del destinatario
    Quindi ipotiziamo che il destinatario si [email protected]
    objMail.From = "[email protected]"
    objMail.To = "[email protected]"
    Per i dati inseriti nel forum direi che puoi aggiustare ciò che ti avevo postato prima
    Ciao
    Non ho capito un tubo !!!!
    Come fa ad esempio "tizio" (proprietario del sito e quindi colui che riceve l'email dopo che un utente si è iscritto) a inserire in
    "objMail.To = [email protected]" se non sà chi si iscrive ?
    Ripongo la questione:
    Esiste una pag. web di proprietà di "tizio", ma per visionarla occorre registrarsi (e sino a qui ci siamo) .
    "Caio" vuole visionare la pag. di "tizio" e decide di iscriversi quindi metterà i dati User,Password ecc... , quando l'accesso è avvenuto
    (e quindi la registrazione è andata a buon fine)
    Tizio riceverà nella sua casella email l'avvenuta registrazione di Caio, ma solo allora Tizio può sapere l'email di Caio, perchè Caio l'avrà inserita nel form !
    Spero di essere stato chiaro !!!!

  25. #25
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    ah, te vuoi anche sapere l'email di chi si iscrive:

    bhe nel form ci metti un campo mail
    Codice:
    <input type="text" name="mail" id="mail"/>
    poi
    nel campo from:

    Codice:
     objMail.From = request.form("mail")
    Ovviamente si può migliorare aggiungendo un controllo per la validità della mail, ma comuqnue questo è il codice base

    Ciao

  26. #26
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Quindi tirando le somme il codice dovrebbe essere questo:
    Ma non capisco quale dei due devo utilizzare "objMail.From"
    guarda in fondo alla pagina.

    <%
    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
    %>

    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]" 'Mail del destinatario <----- QUESTO
    objMail.From = request.form("mail") <---- O QUESTO
    objMail.To = "[email protected]" 'Mail del destinatario
    objMail.Subject = "Oggetto mail"

    objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
    objMail.Send()
    Set objMail = Nothing

  27. #27
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Devi usare l'ultimo che ti ho dato.

    La prossima volta che posti il codice per favore racchiudilo tra i tag appropriati. [ CODE ] [/ CODE ]

    Ciao

  28. #28
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Scusami hai ragione, ok lo provo e ti faccio sapere !

  29. #29
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Citazione Originariamente Scritto da Legolas
    <%
    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 = request.form("mail")
    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
    %>
    Scusami Legolas se solo ho provato il codice da te inviatomi, (ho avuto qualche problema di troppo) ma prima di provarlo ho nuovamente controllato e secondo me vi è qualcosa che non và !
    Citazione Originariamente Scritto da Legolas
    objMail.To = "qui ci metti la mail del destinatario" ' Destinatario
    Lo scopo del form con registrazione (oltre naturalmente alla registrazione stessa) è anche quella di sapere chi si è registrato, e questo desidererei saperlo tramite un'email che mi arriva non appena l'utente si è appena registrato !

  30. #30
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    objMail.To = "qui ci metti la mail del destinatario" ' Destinatario
    La mail deve arrivare a te giusto?

    Quindi ci metti la tua email

    Ciao

  31. #31
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Non ho ben capito come vanno legati i due gruppi di codici quello della registrazione utente e quello dell'invio email
    Io li ho scritti così,ho provato la registrazione avviene ma l'email non la manda

    Citazione Originariamente Scritto da Legolas
    <%
    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

    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") = "mio smtp.it"
    .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 = request.form("mail")
    objMail.To = "[email protected]" ' Destinatario
    objMail.Subject = "Oggetto mail"
    objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
    objMail.Send()
    Set objMail = Nothing
    %>

  32. #32
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    gelova prova a ragionare anche da solo... altrimenti tra un po' Legolas emette fattura



    gelova, credo che tu debba fare una query al dastabase per recuperare l'email alla quale inviare la registrazione
    Cerchi un hotel a Ischia? Pronto Ischia.

  33. #33
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Avete ragione....ma è la prima volta che mi cimento in queste cose scusatemi se sono diventato insistente

  34. #34
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Vi prego non odiatemi...........ma ho ancora qualche problema !
    Una volta che la registrazione è andata a buon fine, si aprirà la pagina
    "reg_ok.htm" che dà il benvenuto ecc....
    Ma ho notato che anche se non mi registro posso accedere a quella pagina,
    scrivendo sulla barra di navigazione :
    "http://pagina di inserimento dati/reg_ok.htm"

    Quindi in pratica chiunque conoscendo il nome della pag. potrà accedere saltando la procedura di registrazione

  35. #35
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Puoi benissimo usare le var di sessione così controlli se l'utente è registato.
    Se lo è gli mostri la pagina altrimenti gli mostri altro

    Ciao

  36. #36
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    le var di sessione
    Cosa sarebbero le var di sessione

  37. #37
    User
    Data Registrazione
    Jun 2006
    Messaggi
    142
    Gelova la mia piccola esperienza mi dice di consigliarti questo semplice script che uso pure io

    <%
    if Session("Autenticato")<>"OK" then
    Response.Redirect("index.asp")
    end if
    %>

    dove index.asp è la pagina che gli spunta se non è autenticato....differentemente se lo è glispunta la pagina versola quale ha effettivamente puntato!
    questa stringa la metti all'inizio codice della pagina....nella linea 1 anche!
    LA MIA COLLEZIONE DI MAGLIE DA CALCIO www.la-maglia-rosanero.com

  38. #38
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Grazie 1000 !!!!

  39. #39
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Ho provato il tuo script ma con dispicere devo dirti che non mi funziona
    l'ho modificato in base alla sessione del mio codice così:

    <%
    if Session("registrato")="sicuro" then
    Response.Redirect("index.asp")
    end if
    %>
    Questo è il mio file che fa il check
    <%
    dim user
    dim pwd
    dim url
    user=replace(request.form("form_user"),"'","''")
    pwd=replace(request.form("form_password"),"'","''" )
    url=request.form("form_url")
    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/pass.mdb")
    Set rs = Server.CreateObject("ADODB.Recordset")
    qry = "Select * from pass Where ((user='"
    qry = qry & user & "') AND (pwd='"
    qry = qry & pwd & "'));"
    rs.ActiveConnection = conn
    rs.CursorLocation = 2
    rs.Open qry
    Response.Expires=0
    if rs.EOF then
    response.redirect("check_out.htm")
    else
    session("registrato")="sicuro"
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.redirect(url)
    end if
    %>

  40. #40
    User
    Data Registrazione
    Jun 2006
    Messaggi
    142
    allora ammettiamo che la pagina che non vuoi far vedere è la pagina dopolaregistrazione.asp
    e quella del login è login.asp

    allora
    questo è il codice della pagina dololaregistrazione.asp :
    <%
    .......
    ...........
    %>

    tu il pezzo di codice che ti ho dato devi metterlo nel codice dalla pagina dopolaregistrazione.asp prima del suo codice <% .....................%>
    capito..?
    ovviamente modifica la pagina index.asp con quella del tuo login!
    prova ad andare in questa pagina mia http://www.la-maglia-rosanero.com/fo...iofoto/add.asp come vedi on sei validato e ti rimanda alla pagina di login nel mio caso index.asp!

    tu hai INTEGRATO il pezzodi codice nel tuo codice...invece devi separarli per come te l'h o dato!
    tipo
    Codice:
    <%
    if Session("Autenticato")<>"OK" then
      Response.Redirect("index.asp")
    end if
    %>
    <html>
    <head>
    <title>aggiungi record</title>
    </head>
    <body bgcolor="#FF99CC">
    <div align="center">
    <center>
    <form method="post" action="add-process.asp">
    <p>&nbsp;</p>
    <table width="660" border="0" cellspacing="0" cellpadding="1" height="230" align="center" bgcolor="#000000" id="table1">
        <tr> 
          <td height="66" width="967"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="201" id="table2">
    questo è parte del codice dall pagina che ti ho appena fatto vedere
    LA MIA COLLEZIONE DI MAGLIE DA CALCIO www.la-maglia-rosanero.com

  41. #41
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Ma è proprio quello che ho fatto, il tuo codice e cioè
    <%
    if Session("registrato")="sicuro" then
    Response.Redirect("reicreg.htm")
    end if
    %>
    L' ho inserito in cima alla pagina da nascondere e cioè
    "reg_ok.htm" che sarebbe la pagina che appare dopo l'avvenuta corretta registrazione
    naturalmente l'ho modificata perchè la mia pag "check.asp" in session era diversa (vedi sopra)

  42. #42
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Aspetta.....Aspetta.....!!!!
    Ho provato a rinominare la pag da nascondere (reg_ok.htm)
    da htm ad asp e funziona, ma allora le pag da nascondere devono per forza essere in asp ?

  43. #43
    User
    Data Registrazione
    Jun 2006
    Messaggi
    142
    eh siamo in sezione asp
    si solo per l'asp funziona
    LA MIA COLLEZIONE DI MAGLIE DA CALCIO www.la-maglia-rosanero.com

  44. #44
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Ho provato a lasciare vuoti i campi e cliccare sul tasto registrami e mi appare un schermata bianca con un errore cosa dovrei inserire per obbligare l'utente a riempire tutti i campi ?

    Grazie !!!!!

  45. #45
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    Citazione Originariamente Scritto da gelova
    Ho provato a lasciare vuoti i campi e cliccare sul tasto registrami e mi appare un schermata bianca con un errore cosa dovrei inserire per obbligare l'utente a riempire tutti i campi ?

    Grazie !!!!!
    Ricerca validazione form su google.

    Ad ogni modo ti consiglio di validare il form sia via javascript che, successivamente, via asp. Via asp devi controllare che i valori immessi dall'utente siano validi, ad esempio qualcosa del genere:

    Codice:
    nome = Request("nome")
    dataNascita = Request("dataNascita")
    
    If nome = "" then errore = "Nome &eacute; vuoto<br>"
    If dataNascita = "" or not IsDate(dataNascita) then errore = errore  & "Data di nascita non valida<br>"
    ...
    
    If errore <> "" then
     Response.Write(errore)
     Response.End
    Else
    ...
    End if
    Cerchi un hotel a Ischia? Pronto Ischia.

  46. #46
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Mi da questo errore
    Microsoft VBScript compilation error '800a03f6'
    Expected 'End'
    Il codice è questo
    <%
    theSchema="http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig=server.CreateObject("CDO.Configuration")
    cdoConfig.Fields.Item(theSchema & "sendusing")=2
    cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.soluzionepc.it"
    cdoConfig.Fields.Update

    set cdoMessage=Server.CreateObject("CDO.Message")
    cdoMessage.Configuration=cdoConfig

    cdoMessage.From=Request.Form("email")
    cdoMessage.To="[email protected]"
    cdoMessage.Subject=Request.Form("subject")
    cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") & "<br/>Commenti:" & request.Form("commenti")
    cdoMessage.Send

    Set cdoMessage=Nothing
    Set cdoConfig=Nothing

    nome = Request("nome")
    cognome = Request("cognome")
    citta = Request(citta)
    email = Request(email)
    commenti = Request(commenti)

    If nome = "" then errore = "Nome &eacute; vuoto<br>"
    If cognome = "" then errore = "cognome &eacute; vuoto<br>"
    If citta = "" then errore = "citta &eacute; vuoto<br>"
    If email = "" then errore = "email &eacute; vuoto<br>"
    If cognome = "" then errore = "commenti &eacute; vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    Response.End

  47. #47
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Citazione Originariamente Scritto da gelova
    Mi da questo errore
    Il codice è questo

    Aggiungi end if alla fine

    Ciao

  48. #48
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    L'errore è cambiato
    CDO.Message.1 error '8004020d'
    At least one of the From or Sender fields is required, and neither was found.
    /inviomail.asp, line 15
    il file inviomail.asp è questo
    <%
    theSchema="http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig=server.CreateObject("CDO.Configuration")
    cdoConfig.Fields.Item(theSchema & "sendusing")=2
    cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.soluzionepc.it"
    cdoConfig.Fields.Update

    set cdoMessage=Server.CreateObject("CDO.Message")
    cdoMessage.Configuration=cdoConfig

    cdoMessage.From=Request.Form("email")
    cdoMessage.To="[email protected]"
    cdoMessage.Subject=Request.Form("subject")
    cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") & "<br/>Commenti:" & request.Form("commenti")
    cdoMessage.Send <--------------line 15

    Set cdoMessage=Nothing
    Set cdoConfig=Nothing

    nome = Request("nome")
    cognome = Request("cognome")
    citta = Request(citta)
    email = Request(email)
    commenti = Request(commenti)

    If nome = "" then errore = "Nome &eacute; vuoto<br>"
    If cognome = "" then errore = "cognome &eacute; vuoto<br>"
    If citta = "" then errore = "citta &eacute; vuoto<br>"
    If email = "" then errore = "email &eacute; vuoto<br>"
    If cognome = "" then errore = "commenti &eacute; vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    End if

  49. #49
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    Citazione Originariamente Scritto da gelova
    L'errore è cambiato
    il file inviomail.asp è questo
    At least one of the From or Sender fields is required, and neither was found
    Cerchiamo di capirli i messaggi di errore.
    Almeno un mittente è necessario.
    Quindi cdoMessage.From=Request.Form("email") non contiene l'email

  50. #50
    Utente Premium
    Data Registrazione
    Aug 2006
    Messaggi
    246
    Allora sono due le cose o il form è costruito male o sono io che non ho capito un tubo......
    credo che l'unica cosa necessaria sia l'email del destinatario non quella del mittente,come faccio a sapere l'email del mittente (il mittente è colui che riempie il form) .
    Considera che il form ha questi campi Nome,Cognome,Città,email,Commenti (come si evince dal codice)

+ Rispondi alla Discussione
Pagina 1 di 2 12 UltimaUltima

Tag per Questa Discussione

^ Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB è Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] è Attivato
  • Il codice [VIDEO] è Attivato
  • Il codice HTML è Disattivato
  • Trackbacks Attivato
  • Pingback Attivato
  • Refback Attivato

SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.