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