El error aparentemente es este:
Set RS = conn.Execute(insertar)
cambia esa linea por
conn.Execute(insertar)
<div align="center"><a href="http://www.amigosdeloeste.com/SITIO/index/index.asp" target="_blank"><img src="http://www.amigosdeloeste.com/SITIO/imagenes/logotipo1.gif" width="268" height="63" border="0"></a>
</div>