% @language="VBSCRIPT" %>
<%
'get variables
nombre = Request("nombre")
empresa = Request("empresa")
email = Request("email")
telefono = Request("telefono")
ciudad = Request("ciudad")
estado = Request("estado")
comentarios = Request("comentarios")
If empresa = "" Then empresa = "-" End If
If telefono = "" Then telefono = "-" End If
If ciudad = "" Then ciudad = "-" End If
If estado = "" Then estado = "-" End If
'send mail
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Correo enviado desde www.pyxcom.com"
myMail.From="contacto@pyxcom.com"
myMail.To="contacto@pyxcom.com"
myMail.HTMLBody = "E-mail enviado desde el sitio web www.pyxcom.com
Nombre: " & nombre &" / Empresa: " & empresa & "
Teléfono: " & tel & " / E-mail: " & email & "
Ciudad: " & ciudad & ", Estado: " & estado & "
Comentarios:
" & comentarios & "
PYXCOM
http://www.pyxcom.com
"
myMail.Send
set myMail=nothing
Response.Write("sendresult=send_ok")
%>