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
%>