formulario

[carena]

hola a todos, tengo un formulario el cual deberia, inserta registros en una base de datos y esos datos mandarlos al correo del que rellena los datos, todo esto se hacerlo por separado, uno insertar registros en la base de datos y otro enviarlo por correo, pero ¿se puede hacer todo en la misma pagina? si es un si ¿como?

gracias por todo

[Fabu_dina]

los dos procesos los puedes poner en la misma pagina uno seguido del otro independiente del orden los dos se van a ejecutar

Si te puedo ayudar en algo me avisas

[carena]

pero necesito dos action en el formulario y eso no se puede ¿no?

[Fabu_dina]

una forma de hacerlo podria ser asi

:::::::: inserta registro ::::::::::::
<%
set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "itemsOrdered", Conn, adOpenStatic, adLockOptimistic, adCmdTable

for each item in Request.form("strOrderItem")

strOrderItem = cstr(item)
itemInfo = split(strOrderItem, ",")

rsItem.addNew
rsItem("orderID") = intOrderID
rsItem("productID") = itemInfo(0)
rsItem("quantity") = itemInfo(1)
rsItem.Update

next

rsItem.Close
set rsItem = Nothing

Session.abandon
%>

:::::::::::::. codigo para mandar email :::::::::::::

<%
strSubject = "Titulo"
strFromName = Trim(Request.Form("BillFirst"))
'strFromEmpresa= Trim(Request.form("empresa"))
strFromEmail = "[email protected]"
strToEmail = email a donde se manda
'strBody = Trim(Request.Form("comentarios"))

Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = " Titulo del mensaje <" & strFromEmail & ">"
objCDONTS.To = strFromName & " <" & strToEmail & ">"
objCDONTS.Subject = strSubject
objCDONTS.BodyFormat=0
objCDONTS.MailFormat = 0
objCDONTS.Body = strBody


objCDONTS.Send
Set objCDONTS = Nothing
%>