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!