codice:
'pagina di lettura dati da FORM
<%
'funzione per eliminare l'apice
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
%>
<%
FUNCTION fixQuotes2( theString )
fixQuotes2 = REPLACE( theString, ".", "," )
END FUNCTION
%>
<%
'legge i dati dal FORM della pg precedente
data = TRIM( Request.form( "data" ) )
titolo = TRIM( Request.form( "titolo" ) )
sotto_titolo = TRIM( Request.form( "sotto_titolo" ) )
testo = TRIM( Request.form( "testo" ) )
testo = Replace(testo,vbCrLf,"
")
categoria = TRIM( Request.form( "categoria" ) )
' effettua la insert
sqlString = "INSERT INTO rivista ( titolo, sotto_titolo, testo, data, categoria ) VALUES ( '" & fixquotes( titolo ) & "', '" & fixquotes( sotto_titolo ) & "', '" & fixquotes( testo ) & "', '" & fixquotes( data ) & "', '" & fixquotes( categoria ) & "' )"
Con.Execute sqlString
response.redirect "grazie.asp"
%>
<%
'chiude la connessione
con.close
Set con = nothing
%>
scusa ma dubito parecchio che non si trovi niente in giro! cmq. questa è la pagina che raccoglie i dati dal form della pagina precedente, e dopo la INSERT richiama la pagina di ringraziamento!