Bueno, ya no se como hacer para que ande... el codigo procesa bien los datos. Pero en ves de mandarmelos al mail, los muestra en la pagina...
Mirenlo por sus propios ojos
http://www.ipse-saludmental.com.ar/m...ntacto_kad.asp
el codigo que quedo es este:
Código:
<%
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & "<br>"
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & "<br>"
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & "<br>"
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & "<br>"
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & "<br><br>"
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")
response.write strbody
response.end
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
%>
PD.: trasgukabi, ya debeser un castigo para vos.. me ayudaste un monton. Solo te lo pido por ultima vez. Gracias.
