I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
theMax
theMax
il 22 maggio 2001 alle 22:39
89 messaggi dal 27 aprile 2001
Nei moduli di registrazione a volte viene chiesta la password 2 volte per verifica, come posso fare per far si che vi sia un controllo fra 2 box ?
Grazie ancora.

RispondiQuoting
befffalo
befffalo
il 22 maggio 2001 alle 22:55
49 messaggi dal 06 settembre 2002
Cerchi qualcosa tipo

if request("pw") <> request("pw2") then
response.write ("Conferma password errata")
end if

Se ho capito male correggimi pure.

Ciao.
RispondiQuoting
theMax
theMax
il 22 maggio 2001 alle 23:57
89 messaggi dal 27 aprile 2001
grazie mille !!!
ma non mi funziona su una pagina asp creata con Front Page 2000.
E' corretto scrivere cosi il codice che mi hai dato ???

<%
If Request("pw") <> request("pw2") then
response.write("Password Errata")
end if
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nuova pagina 1</title>
</head>

<body>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" U-ASP-Include-Url="_fpclass/fpdbform.inc" S-DataConnection="nuova_pagina_1" S-RecordSource="Risultati" U-Database-URL="fpdb/nuova_pagina_1.mdb" S-Form-Fields="pw pw2" S-Form-DBFields="pw pw2" -->
<p><input type="text" name="pw" size="20"></p>
<p><!--webbot bot="Validation" B-Value-Required="TRUE" --><input type="text" name="pw2" size="20"></p>
<p><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
</form>
</body>

</html>
<%


' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare.

On Error Resume Next

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Impossibile creare la connessione."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Impossibile creare il set di record."

fp_conn.Open Application("Nuova_pagina_1_ConnectionString")
FP_DumpError strErrorUrl, "Impossibile aprire il database."

fp_rs.Open "note_contratto", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Impossibile aprire il set di record."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database."
Dim arFormFields0(2)
Dim arFormDBFields0(2)

arFormFields0(0) = "pw"
arFormDBFields0(0) = "D1"
arFormFields0(1) = "pw2"
arFormDBFields0(1) = "NOTE"

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto"
End If
FP_SaveFieldToDB fp_rs, Now, "Data_e_ora"
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Impossibile aggiornare il database."

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Conferma modulo",_
"Grazie per averci inviato le seguenti informazioni:",_
"nuova_pagina_1.asp",_
"Torna al modulo"

End If
End If


%>

RispondiQuoting
befffalo
befffalo
il 23 maggio 2001 alle 00:08
49 messaggi dal 06 settembre 2002
Mettiamo che tu hai due campi per scrivere la password (che naturalmente dovranno essere identici) il primo di chiama pw ed il secondo pw2.
Prima di tutto devi salvare nel DB uno solo dei due campi e non entrambi.
Poi per verificare che siano uguali inserisci l'if che ho postato subito dopo queste istruzioni:

<b>If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then</b>

Mi raccomando nell'else della if devi mettere tutto il resto dell'aggiornamento del DB altrimenti, anche se ti restituisce il messaggio di errore, esegue comunque l'aggiornamento.
RispondiQuoting
theMax
theMax
il 23 maggio 2001 alle 15:43
89 messaggi dal 27 aprile 2001
Ora mi manderai a fan...o !!! Ma cosa devo scrivere nell'else (meglio ancora cosa devo scrivere per c9mpletare la pagina ???.
Confido nella tua immane generosita' !!!

&lt;%
' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare.
On Error Resume Next

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
If Request("pw") &lt;&gt; request("pw2") then
response.write ("Conferma password errata")

end if
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Impossibile creare la connessione."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Impossibile creare il set di record."

fp_conn.Open Application("Nuova_pagina_11_ConnectionString")
FP_DumpError strErrorUrl, "Impossibile aprire il database."

fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Impossibile aprire il set di record."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database."
Dim arFormFields0(2)
Dim arFormDBFields0(2)

arFormFields0(0) = "pw"
arFormDBFields0(0) = "pw"
arFormFields0(1) = "pw2"
arFormDBFields0(1) = "pw2"

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_USER") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente"
End If
If Request.ServerVariables("REMOTE_HOST") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto"
End If
FP_SaveFieldToDB fp_rs, Now, "Data_e_ora"
If Request.ServerVariables("HTTP_USER_AGENT") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Impossibile aggiornare il database."

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Conferma modulo",_
"Grazie per averci inviato le seguenti informazioni:",_
"nuova_pagina_2.asp",_
"Torna al modulo"

End If
End If

%&gt;


RispondiQuoting
befffalo
befffalo
il 23 maggio 2001 alle 15:57
49 messaggi dal 06 settembre 2002
Prova cosi:

<code>
&lt;%
' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare.
On Error Resume Next

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
<b>If Request("pw") &lt;&gt; request("pw2") then
response.write ("Conferma password errata")

else</b>
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Impossibile creare la connessione."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Impossibile creare il set di record."

fp_conn.Open Application("Nuova_pagina_11_ConnectionString")
FP_DumpError strErrorUrl, "Impossibile aprire il database."

fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Impossibile aprire il set di record."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database."
Dim arFormFields0(2)
Dim arFormDBFields0(2)

arFormFields0(0) = "pw"
arFormDBFields0(0) = "pw"
arFormFields0(1) = "pw2"
arFormDBFields0(1) = "pw2"

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_USER") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente"
End If
If Request.ServerVariables("REMOTE_HOST") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto"
End If
FP_SaveFieldToDB fp_rs, Now, "Data_e_ora"
If Request.ServerVariables("HTTP_USER_AGENT") &lt;&gt; "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Impossibile aggiornare il database."

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Conferma modulo",_
"Grazie per averci inviato le seguenti informazioni:",_
"nuova_pagina_2.asp",_
"Torna al modulo"

End If
End If
<b>End If</b>

%&gt;
</code>


Ciao.

RispondiQuoting
theMax
theMax
il 23 maggio 2001 alle 18:44
89 messaggi dal 27 aprile 2001
Maledetto FP2000 !!!
Grazie per la pazienza e la tempestivita' ma il "Maledetto" sembra fregarsene alla grande e procede all'invio del dato.
Ho provato a registrare i dati non in database ma sul file di testo...impostato in questo modo funziona, altrimenti no.
Grazie comunque.
Ciao.

RispondiQuoting
befffalo
befffalo
il 23 maggio 2001 alle 20:53
49 messaggi dal 06 settembre 2002
Spero che molte altre persone si rendano conto che questi tool non sono per niente dei fantastici prodotti, funzionano perfettamente finche ti sta bene quello che loro decidono.

Un invito a tutti:

<b>---BUTTATE FRONTPAGE</b>
<b>---BUTTATE INTERDEV</b>

<b>---RIVALUTATE IL FANTASTICO NOTEPAD!!!</b>
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.