Buonasera,
ho creato una pagina prendendo vari esempi in rete, per inserire i dati in un db, funziona tutto clicco sul pulsante salva i dati vengono memorizzati nel db, però se faccio un refresh della pagina mi salva gli stessi dati di prima senza averli inseriti. Come posso azzerare i request form e impedire il salvataggio in caso di refresh.
GRazie
la pagina del form è la stessa che invia i dati?
fai vedere lo script.
Si unica pagina, mi è stata suggerito per poter evidenziare i campi del form in caso di errori.
<% response.buffer = true
Nome=request.form("Nome")
Cognome=request.form("Cognome")
Citta=request.form("Citta")
Nome=replace(Nome,"'","''")
Cognome=replace(Cognome,"'","''")
Citta=replace(Citta,"'","''")
%>
<!--#include file="strconndb.asp"--><%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open(strDB)
strSQL = "INSERT INTO Dati (Nome, Cognome, Citta) VALUES ('"
strSQL = strSQL & Nome & "','" & Cognome & "','" & Citta & "')"
cn.Execute(strSQL)
cn.Close
set cn =nothing
response.redirect("default.asp")
%>
<html>
<head>
<title> Aggiungi Dati </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body{margin:0px}
</style>
</head>
<body bgcolor="#FFFFFF">
<br>
<div align="center"><font face="Arial" size="5"><b>Aggiungi Dati</b></font></div>
<br>
<form method="post" action="insert.asp">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="5">
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Nome</b></font></td>
<td bgcolor="#FFCC33" width="70%"><input type="text" name="Nome" size="40" maxlength="15"></td>
</tr>
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Cognome</b></font></td>
<td bgcolor="#FFCC33" width="70%"><input type="text" name="Cognome" size="40" maxlength="15"></td>
</tr>
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Città</b></font></td>
<td bgcolor="#FFCC33" width="70%"><!--#include file="province.asp" --></td>
</tr>
<tr align="center">
<td bgcolor="#FFCC33" colspan="2">
<input type="submit" value=" Invia ">
<input type="reset" value="Cancella">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<br>
</body>
</html>
Ultima modifica di Vincenzo2743; 09-07-2015 a 01:34
prima dell'istruzione
response.redirect("default.asp")
metti
Session("salvato")=1
all'inizio della pagina, prima di
Nome=request.form("Nome")
metti
IF Session("salvato")=1 THEN response.redirect("default.asp")
all'inizio di default.asp ricordati di mettere
Session("salvato")=0
Scusatemi ho errato il codice il comando "response.redirect("default.asp")" non c'è piu, mi serve che il form mi ritorni
per evidenziare eventuali errori, volevo sistemare l'inserimento prima di procedere con la parte di controllo.
Volevo anche chiedere c'è differenza mettere il codice asp prima o dopo il codice html ?
Ultima modifica di Vincenzo2743; 09-07-2015 a 10:28
si, dipende dalla procedura che adotti.Originariamente inviata da Vincenzo2743
dovresti riproporre il codice aggiornato
Quest il codice corretto
<% response.buffer = true
Nome=request.form("Nome")
Cognome=request.form("Cognome")
Citta=request.form("Citta")
Nome=replace(Nome,"'","''")
Cognome=replace(Cognome,"'","''")
Citta=replace(Citta,"'","''")
%>
< !--#include file="strconndb.asp"--><%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open(strDB)
strSQL = "INSERT INTO Dati (Nome, Cognome, Citta) VALUES ('"
strSQL = strSQL & Nome & "','" & Cognome & "','" & Citta & "')"
cn.Execute(strSQL)
cn.Close
set cn =nothing
%>
< html>
< head>
< title> Aggiungi Dati </title>
< meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
< style>
body{margin:0px}
< /style>
< /head>
< body bgcolor="#FFFFFF">
< br>
< div align="center"><font face="Arial" size="5"><b>Aggiungi Dati</b></font></div>
< br>
< form method="post" action="insert.asp">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="5">
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Nome</b></font></td>
<td bgcolor="#FFCC33" width="70%"><input type="text" name="Nome" size="40" maxlength="15"></td>
</tr>
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Cognome</b></font></td>
<td bgcolor="#FFCC33" width="70%"><input type="text" name="Cognome" size="40" maxlength="15"></td>
</tr>
<tr>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><b>Città</b></font></td>
<td bgcolor="#FFCC33" width="70%"><!--#include file="province.asp" --></td>
</tr>
<tr align="center">
<td bgcolor="#FFCC33" colspan="2">
<input type="submit" value=" Invia ">
<input type="reset" value="Cancella">
</td>
</tr>
</table>
</td>
</tr>
< /table>
< /form>
< br>
< /body>
< /html>
Scusami Vicent mi dici la differenza tra scrivere il codice prima o dopo html.
GRazie
di per se nessuna, dipende dalla procedura che devi adottare.
stiamo lavorando nel file insert.asp?
modifica la parte asp così:
codice:<% response.buffer = true Nome=request.form("Nome") Cognome=request.form("Cognome") Citta=request.form("Citta") Nome=replace(Nome,"'","''") Cognome=replace(Cognome,"'","''") Citta=replace(Citta,"'","''") %> <!--#include file="strconndb.asp"--> <% if nome <> "" and cognome <> "" and citta <> "" then Set cn = Server.CreateObject("ADODB.Connection") cn.Open(strDB) strSQL = "INSERT INTO Dati (Nome, Cognome, Citta) VALUES ('" strSQL = strSQL & Nome & "','" & Cognome & "','" & Citta & "')" cn.Execute(strSQL) cn.Close set cn =nothing response.redirect "insert.asp" end if %>
Ottimo, funziona
Grazie
Permessi di invio
Rispondi quotando