<%@ Language=VBScript CodePage=65001%>
<%Session.CodePage = 65001%>
Contacto Helados Nutrisa
<%Response.Buffer = true
Response.Expires = 0%>
<%
Call OpenConn
If Request.Form("IDPais") <> "" Then IDPais = Request.Form("IDPais")
If Request.Form("Nombre") <> "" Then Nombre = Request.Form("Nombre")
If Request.Form("ApellidoPaterno") <> "" Then ApellidoPaterno = Request.Form("ApellidoPaterno")
If Request.Form("ApellidoMaterno") <> "" Then ApellidoMaterno = Request.Form("ApellidoMaterno")
If Request.Form("Dia") <> "" Then Dia = Request.Form("Dia")
If Request.Form("Mes") <> "" Then Mes = Request.Form("Mes")
If Request.Form("Ano") <> "" Then Ano = Request.Form("Ano")
If Request.Form("email") <> "" Then email = Request.Form("email")
If Request.Form("txtEmailConfir") <> "" Then txtEmailConfir = Request.Form("txtEmailConfir")
If Request.Form("Estado") <> "" Then Estado = Request.Form("Estado")
If Request.Form("IDEstado") <> "" Then IDEstado = Request.Form("IDEstado")
If Request.Form("Municipio") <> "" Then Municipio = Request.Form("Municipio")
If Request.Form("IDMunicipio") <> "" Then IDMunicipio = Request.Form("IDMunicipio")
If Request.Form("Colonia") <> "" Then Colonia = Request.Form("Colonia")
If Request.Form("IDColonia") <> "" Then IDColonia = Request.Form("IDColonia")
If Request.Form("Calle") <> "" Then Calle = Request.Form("Calle")
If Request.Form("CodigoPostal") <> "" Then CodigoPostal = Request.Form("CodigoPostal")
If Request.Form("Lada") <> "" Then Lada = Request.Form("Lada")
If Request.Form("Telefono") <> "" Then Telefono = Request.Form("Telefono")
If Request.Form("Mensaje") <> "" Then Mensaje = Request.Form("Mensaje")
If Request.Form("MedioContacto") <> "" Then MedioContacto = Request.Form("MedioContacto")
If Request.Form("Enviar") <> "" Then Enviar = Request.Form("Enviar")
set dllpauta = Server.CreateObject("Pauta.utilidades")
if IDPais = "" then
OtroPais = 1
else
OtroPais = IDPais
end if
if IDColonia <> "" or IDColonia <> 0 then
Set rsColonia = CreateObject("ADODB.Recordset")
rsColonia.open "SELECT catalogs.dbo.SepomexIDColonia.IDColonia, catalogs.dbo.SepomexIDColonia.CP, catalogs.dbo.SepomexIDMunicipio.Lada " & _
"FROM catalogs.dbo.SepomexIDColonia INNER JOIN " & _
"catalogs.dbo.SepomexIDMunicipio ON catalogs.dbo.SepomexIDColonia.IDMunicipio = catalogs.dbo.SepomexIDMunicipio.IDMunicipio " & _
"WHERE (catalogs.dbo.SepomexIDColonia.IDColonia = N'" & IDColonia & "')", adoConn, 1,3
If not rsColonia.eof then
'CodigoPostal = rsColonia("CP")
if rsColonia("Lada") = 0 then
'Lada = ""
else
'Lada = rsColonia("Lada")
end if
else
'CodigoPostal = ""
'Lada = ""
end if
rsColonia.close
set rsColonia = nothing
end if
if Enviar = "Yes" then
EnviarContacto = 1
Fecha_de_Nacimiento = dllpauta.Formato(Dia & "/" & Mes & "/" & Ano, "dd/mm/yyyy")
If isdate(Fecha_de_Nacimiento) = false then
EnviarContacto = 0
dllpauta.Mensaje("La Fecha de nacimiento no es valida")
else
PFN = dllpauta.Formato(Fecha_de_Nacimiento,"yyyyddmm")
PFA = dllpauta.Formato(Now(),"yyyyddmm")
if PFN > PFA then
EnviarContacto = 0
dllpauta.Mensaje("La Fecha de nacimiento no es valida")
end if
end if
if dllpauta.validarEmail(email) = 0 then
EnviarContacto = 0
dllpauta.Mensaje("El email no es valido")
end if
if EnviarContacto = 1 then
Enviar = "Ok"
evc
end if
end if
sub evc()
if IDPais = 1 then
Set rsEstado = Server.CreateObject ("ADODB.Recordset")
strSql = "Select distinct * From Catalogs.dbo.SepomexIDEstado Where IDEstado = '"&IDEstado&"' "
rsEstado.Open strSql, adoConn, 1, 3
Estado = rsEstado("Estado")
Abrev = rsEstado("Abrev")
rsEstado.close()
set rsEstado = Nothing
Set rsCiudad = Server.CreateObject ("ADODB.Recordset")
strSql = "Select IDMunicipio, Municipio From Catalogs.dbo.SepomexIDMunicipio Where IDMunicipio = '" & IDMunicipio & "' "
rsCiudad.Open strSql, adoConn, 1, 3
Municipio = rsCiudad("Municipio")
rsCiudad.close()
set rsCiudad = Nothing
end if
Set rsContacto = CreateObject("ADODB.Recordset")
with rsContacto
.Open "SELECT * FROM IDContacto WHERE (IDContacto = - 1)",adoConn,1,3
.AddNew
.Fields("Name") = ucase(Nombre)
.fields("ApellidoPaterno") = ucase(ApellidoPaterno)
.fields("ApellidoMaterno") = ucase(ApellidoMaterno)
.Fields("EMail") = email
.Fields("MedioContacto") = MedioContacto
.Fields("IDPais") = IDPais
.Fields("Colonia") =Colonia
.Fields("Municipio") =Municipio
.Fields("Estado") = Estado
.Fields("CP") = CodigoPostal
.Fields("Calle") = Calle
.Fields("Lada") = Lada
.Fields("Telefono1") = Telefono
.Fields("Fecha_de_Nacimiento") = Fecha_de_Nacimiento
.Fields("Message") = Mensaje
.Fields("RegDate") = now()
.fields("Age") = dllpauta.edad(cdate(Fecha_de_Nacimiento))
.Update
.Close
end with
set rsContacto = nothing
end sub
function Pais(NumPais)
Set rsPais = CreateObject("ADODB.Recordset")
rsPais.open "Select * from catalogs.dbo.IDPais where IDPais = " & NumPais, adoConn, 1,3
Pais = rsPais("Pais")
rsPais.close
set rsPais = nothing
end function
%>
Helados Nutrisa, ¡Vive Ligero!
