<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[an error occurred while processing this directive]
<%
strSQL = "Select Max(idNoticia) From tblNoticias where chrEstado = 'A'"
vNoticia = ObtenerDatos(strSQL)
If IsArray(vNoticia) Then
strSQL = "Select idNoticia, strNoticia, strTextoNoticia from tblNoticias Where idNoticia = " & vNoticia(0,0)
vNoticia = ObtenerDatos(strSQL)
End If
%>
<%
if request.Form("nombres") <> "" then
nombres = Replace(Replace(Request.Form("nombres"),chr(34),"'"), ";", "_")
apellidos = Replace(Replace(Request.Form("apellidos"),chr(34),"'"), ";", "_")
email = Replace(Replace(Request.Form("email"),chr(34),"'"), ";", "_")
empresa = Replace(Replace(Request.Form("empresa"),chr(34),"'"), ";", "_")
direccion = Replace(Replace(Request.Form("direccion"),chr(34),"'"), ";", "_")
ciudad = Replace(Replace(Request.Form("ciudad"),chr(34),"'"), ";", "_")
pais = Replace(Replace(Request.Form("pais"),chr(34),"'"), ";", "_")
telefono = Replace(Replace(Request.Form("telefono"),chr(34),"'"), ";", "_")
info = Replace(Replace(Request.Form("info"),chr(34),"'"), ";", "_")
medio = Replace(Replace(Request.Form("medio"),chr(34),"'"), ";", "_")
strFechaActual = Year(Date) & "/" & Right("0" & Month(Date),2) & "/" & Right("0" & Day(Date),2)
strSQL = "INSERT INTO tblContactos (strNombres, strApellidos, strEmail, strTelefono, strDireccion, strCiudad, strPais, strMedioContacto, strComentarios, dtFechaRegistro) values ('" & nombres & "', '" & apellidos & "', '" & email & "', '" & telefono & "', '" & direccion & "', '" & ciudad & "', '" & pais & "', '" & medio & "', '" & info & "', '" & strFechaActual & "')"
'response.Write(strSQL)
EjecutarInstruccion strSQL
SMTPServer = "127.0.0.1"
SMTPServer = "mail.neust.com.co"
SMTPPort = 25
'SMTPPort = 2025
ToName = "Juan Neustadtel y Cía S.A."
ToAddress = "info@neust.com.co"
Subject = "Contacto neust.com.co"
MsgBody = "Contacto desde su sitio web
"
MsgBody = MsgBody & "Nombres: " & nombres &"
"
MsgBody = MsgBody & "Apellidos: " & apellidos &"
"
MsgBody = MsgBody & "E-mail: " & email &"
"
MsgBody = MsgBody & "Empresa: " & empresa &"
"
MsgBody = MsgBody & "Dirección: " & direccion &"
"
MsgBody = MsgBody & "Ciudad: " & ciudad &"
"
MsgBody = MsgBody & "País: " & pais &"
"
MsgBody = MsgBody & "Teléfono: " & telefono &"
"
MsgBody = MsgBody & "Información requerida: " & info &"
"
MsgBody = MsgBody & "Medio preferido de contacto: " & medio &"