Acabo de hacer lo que me dijiste, y sigue sin andarmee
mira, el codigo quedo asi.. lo hize bien?
Código:
<%
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = strSubject
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing
%>
Gracias por haberme ayudado DEMACIADO, sinceramente te lo agradezco.
Ahora mismo me tengo que ir y vuelvo en 4 horas y seguire intentando y si no funciona, buscare otro metodo para hacer un formulario...
gracias nuevamente, vuelvfo en 4 horitas
