%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = True %> <% ''On error resume next if Request("ope")="E" then cMsg = "" + vbcrlf cMsg= cMsg + "Nombre :" + chr(9) + Request("TXT_NOMBRE") + vbcrlf cMsg= cMsg + "Apellido :" + chr(9) + Request("TXT_APELLIDO") + vbcrlf cMsg= cMsg + "Empresa :" + chr(9) + Request("TXT_EMPRESA") + vbcrlf cMsg= cMsg + "Email :" + chr(9) + Request("TXT_EMAIL") + vbcrlf cMsg= cMsg + "Telefono :" + chr(9) + Request("TXT_TELEFONO") + vbcrlf cMsg= cMsg + "Direccion :" + chr(9) + Request("TXT_DIRECCION") + vbcrlf cMsg= cMsg + "Pais :" + chr(9) + Request("cod_pais") + vbcrlf cMsg= cMsg + "Provincia :" + chr(9) + Request("TXT_PROVINCIA") + vbcrlf cMsg= cMsg + "Ciudad :" + chr(9) + Request("TXT_CIUDAD") + vbcrlf cMsg= cMsg + "Comentarios :" + chr(9) + Request("comenta") + vbcrlf '"emp@e-infonor.com" ok= MandarEmail("emp@zonapda.com", "Infonor Web", "emp@e-infonor.com", "Empresas", "emp@zonapda.com", "[Informacion Infonor Sales]", cMsg) if ok = "" then response.Redirect("infosales_respemail.asp?Ok=0") else response.Redirect("infosales_respemail.asp?Ok=2") end if end if %>
|
Copyright 2005 Infonor S.R.L. Todos los derechos reservados. |