Si quieres seguir haciendolo así a pesar de lo que te dije, la solución está en poner la instrucción On Error Resume Next antes de con.Execute(sql). Sería así:
On Error Resume Next
con.Execute(sql)
If Err Then
Response.write "Inserción incorrecta"
Else
Response.write "Inserción correcta"
End If
Si hubieras leido la respuesta que te puse te tendrías q haber dado cuenta :P
<center><font face=Verdana size=2>
Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>