este es lo que uso para mandar el correo
<%
dim Destino, servidor, titulo, Origen, Mail, strBody
Destino = "
[email protected]"
servidor = "mail.sitio.com"
titulo = "Pedido"
Set Mail = Server.CreateObject("Persits.MailSender")
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & FName & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Email & "</b><br><br>"
strBody = strBody & "Trabajo en la Empresa: "
strBody = strBody & "<b>" & LName & "</b><br><br>"
strBody = strBody & "Mi Telefono es: "
strBody = strBody & "<b>" & Tel & "</b><br><br>"
strBody = strBody & "Mi Direccion es: "
strBody = strBody & "<b>" & Dir & "</b><br><br>"
strBody = strBody & "En la ciudad de: "
strBody = strBody & "<b>" & Ciudad & "</b><br><br>"
Call buscar()
rs.MoveFirst
while not rs.EOF
strBody = strBody & "Mi Pedido es: "
strBody = strBody & "<b>" & Name & "</b><br><hr><br>"
strBody = strBody & "Cantidad: <br>"
strBody = strBody & "<b>" & quantity & "</b><br><hr><br>"
rs.MoveNext
wend
strBody = strBody & "Tiempo de Entrega Requerido: <br>"
strBody = strBody & Tiempo & chr(10)
strBody = strBody & "</font>"
Mail.Host = servidor
Mail.Port = 25
Mail.From = Origen
Mail.FromName = Email
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
Set Mail = Nothing
%>
la funcion que mando llamar contien esto
Function buscar()
OrderID = request.querystring("qryID")
path = Server.MapPath(".")
databaseName = "plane.mdb"
'connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
' "DBQ=" & path & "\" & databaseName & ";"
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& path & "\" & databaseName
'Set sql string
sqlString = "select * from OrderDetails, PlaneInventory " & _
" where OrderDetails.ProductID=PlaneInventory.ProductID " & _
" AND OrderID=" & OrderID
sqlString = sqlString & " Order By ProductName"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlString, connectionString
End Function