Beh prova così:
codice:
 
 
<% 

compilato = Request.Form("compilato") 
sezione = Request.QueryString("sezione") 
menu = Request.QueryString("menu") 
titolo = Request.Form("titolo") 
testo = Request.Form("testo")
 
if compilato <> "" then 

Dim compilato 
Dim sezione 
Dim menu 
Dim titolo 
Dim testo 



Sql = "INSERT into tab_testi (sezione, menu, titolo, testo) VALUES ('"&sezione&"', '"&menu&"', '"&titolo&"', '"&testo&"')" 
Rs.open Sql, Conn, 3, 3 

Response.Write ("inserimento ok") 

else 
%> 

vario codice html...
Non l'ho provato ma dovrebbe funzionare.