Yo haría esto:
<%
Set cons=Server.CreateObject("ADODB.connection")
Cons.open "miservidor.mibasededatos"
Set Rss=Server.CreateObject("ADODB.RecordSet")
'se recogen los datos del formulario, declarando las diferentes variables
de=request.form("de")
para=request.form("para")
ssqls="select * from tabla"
Rss.Open Ssqls,Cons,1,2
%>
<%
if de="" or paran="" then
error = "Debe completar todos los datos"
Response.write error
end if
if not de="" or not para="" then
Rss.AddNew
Rss("de")=de
Rss("para")=para
rss.update
'luego sigo con el correo
espero haberte ayudado con mis pocos conocimiento.
