<%

On error Resume Next 
	
vrsion_des = Request.QueryString("v")
permiso = ""
permiso = request.form("enviar")
nombre = request.form("Nombre")
'rpd 20091012 ocupacion = request.form("Ocupacion")
ocupacion = ""
mail = request.form("Email")
pais = request.form("Pais")
'rpd 20091012 seentero = request.form("slcentero")
seentero = ""
'rpd 20091012 edad = request.form("Edad")
edad = ""
vrsion = request.form("version")
'rpd 20091012 comprar = request.form("optcomprar")
comprar = ""
'rpd 20091012 comentario = request.form("Comentarios")
comentario = ""
autoriza = request.form("optautorizo")
'rpd 20091012 comunicarse = request.form("optcomunicarse")
comunicarse = ""

'rpd 20091012 actualizaciones = request.form("optactualizaciones")
actualizaciones = ""
'rpd 20091012 estudiantes = request.form("optestudiantes")
estudiantes = ""
'rpd 20091012 mail2 = request.form("Email2")
mail2 = ""

'razon = request.form("motivo")
'sexo = request.form("Sexo")
'call msg(vrsion)
'call msg(comprar)

'====rpd 2010/01/27 Se contabiliza minutos por IP
	strIP = request.servervariables("REMOTE_ADDR")
	Set ConIP = Server.CreateObject("ADODB.Connection")
	ConIP.Open ("DRIVER={Microsoft Access Driver (*.mdb)};UID=;PWD=MEDYGS2016;DBQ=" & Server.MapPath("\dirdb2\librovisitas.mdb")) '& ";pwd=MEDYGS2016")
	set RIP=createobject("ADODB.Recordset")
'rpd 2010.03.25 se quita IDPAGINA	IPsql = "select HORA, IDPAGINA, URL, FECHA from tdseguimiento where IDPAGINA = 'EQUILIBRA' and IP = '"& strIP & "' order by FECHA "
	IPsql = "select HORA, IDPAGINA, URL, FECHA from tdseguimiento where IP = '"& strIP & "' order by FECHA "
	RIP.Open IPsql,ConIP
	  dim lwsurl
	  dim lwsfecha
	  dim descarga
	  dim compra
	  dim lwsfecham
	  dim wwfechan
	  dim wwfechau
	  dim vecurlo 
	  dim lwsurl_u
	  lwsfecham = ""
	  lwsurl = ""
	  lwsfecha = ""
	  compra = 0
	  descarga = 0
      wwfechau = "99999999"
	 Do while not RIP.EOF
	  dim accesos
	  if trim(RIP("IDPAGINA")) = "EQUILIBRA" then
		  if not isDate(RIP("HORA")) then
			dim Sumador
			dim seg
			dim contador
			dim verif
			seg = cint(RIP("HORA"))
			Sumador = Sumador +  seg
		  end if
	  end if

	 if trim(lwsfecha) <> trim(RIP("FECHA")) then
		lwsfecha = trim(RIP("FECHA"))
		accesos = accesos + 1
	 end if
//	 if trim(lwsfecham) = "" then
//		lwsfecham = trim(RIP("FECHA"))
//		lwsurl = trim(RIP("URL"))
//	 end if
     wwfechan = mid(RIP("FECHA"),1,4) + mid(RIP("FECHA"),6,2) + mid(RIP("FECHA"),9,2)
	 if cdbl(wwfechan) < cdbl(wwfechau) then
	    wwfechau = wwfechan
		lwsfecham = trim(RIP("FECHA"))
		lwsurl = trim(RIP("URL"))
	 end if	
//     if RIP("FECHA") < lwsfecham then
//		lwsfecham = trim(RIP("FECHA"))
//		lwsurl = trim(RIP("URL"))
//	 end if

	  verif = instr(RIP("URL"),"compra")
	  if verif <> 0 then
	  	compra = compra + 1
	  end if
	  verif = instr(RIP("URL"),"COMPRA")
	  if verif <> 0 then
	  	compra = compra + 1
	  end if

	  verif = instr(RIP("URL"),"descarga")
	  if verif <> 0 then
	  	descarga = descarga + 1
	  end if
	  verif = instr(RIP("URL"),"DESCARGA")
	  if verif <> 0 then
	  	descarga = descarga + 1
	  end if
	  
	  RIP.movenext
	 loop
	set ConIP = nothing
'rpd 2010/01/27 no se permite a partir de esta fecha las descargas directas todos con solicitud para alimentar base de datos de clientes
'	if clng(Sumador) >= 1200 then
'		seenvio = ""
'	end if
''fin rpd	
''	if clng(Sumador) >= 1200 then
''		seenvio = "D"
''	end if
'	'seenvio = "D"
''====EMH 2008/02/19 Se permite la descarga directa del software si tiene 20 minutos por IP

validacorreo = validarEmail(mail)
strconfirmamail = ""
  if trim(mail) <> "" then
'rpd 20091012	if trim(mail) = trim(mail2) then
		strconfirmamail = "S"
'rpd 20091012	end if
  end if
'call msg(validacorreo)

'rpd 2010/03/15 se valida tiempo de visitas para exigir al cliente que conozca más de EQL antes de solicitud de descarga
'seenvio = ""
	if clng(Sumador) > 120 then
		seenvio = ""
	else
'		call msg("Por favor revisar el contenido del producto, y su descripción antes de solicitar una demostración.")
		seenvio = "R"
	end if
'fin rpd	
	if seenvio = "Y" then
		seenvio = "S"
	end if
'response.write("autoriza = " & autoriza & " permiso = " & permiso)

if autoriza = "SI" then
'rpd 20091012		if  permiso <> "" and strconfirmamail = "S" and validacorreo = "True" and vrsion <> "" and nombre <> "" and pais <> "" and ocupacion <> "" and vrsion <> "" then
		if  permiso <> "" and strconfirmamail = "S" and validacorreo = "True" and vrsion <> "" and nombre <> "" then
		
			mes = month(date)
			dia = day(date)
			if len(trim(mes))=1 then mes = "0" & mes
			if len(trim(dia))=1 then dia = "0"  & dia
			FCH = year(date) &  "/" & mes	& "/" & dia
			HRO = TIME
			fecha_ing = FCH & " " & HRO

			Set ConnS = Server.CreateObject("ADODB.Connection")
			ConnS.Open ("DRIVER={Microsoft Access Driver (*.mdb)};UID=;PWD=;DBQ=" & Server.MapPath("\registrarse\contactenos.mdb")) '& ";pwd=MEDYGS2016")

				set RsIR=createobject("ADODB.Recordset")
				strsql = "Select * from SOLICITUD where IP ='" & Request.ServerVariables("REMOTE_ADDR") & "' OR EMAIL ='" & mail & "' order by secsolicitud, AUX3 desc "
				RsIR.Open strsql,ConnS
				wconsd = 0
				wconsa = 0
				w_conta = 0
				w_con = 0
				if not RsIR.EOF then
					vecR = RsIR.GetRows(RsIR.RecordCount)
					w_con = UBound(vecR, 2)
					redim w_consd(w_con + 1)
					redim w_consa(w_con + 1)
					i=0
					for i = 0 to w_con + 1
						w_consd(i) = 0
						w_consa(i) = 0
					next
					i=0
					for i = 0 to w_con
						if TRIM(vecR(10,i))= "DD" or TRIM(vecR(10,i))= "DA" then
							w_conta = w_conta + 1
						end if
						if trim(vecR(10,i))= "SD" then
							if i < w_con then
								if trim(vecR(17,i)) <> trim(vecR(17,i+1)) or trim(vecR(10,i+1)) <> "DD" then
									wconsd = wconsd + 1
									w_consd(wconsd) = vecR(17,i)
								end if
							else
								wconsd = wconsd + 1
								w_consd(wconsd) = vecR(17,i)
							end if
						end if
						if trim(vecR(10,i))= "SA" then
							if i < w_con then
								if trim(vecR(17,i)) <> trim(vecR(17,i+1)) or trim(vecR(10,i+1)) <> "DA" then
									wconsa = wconsa + 1
									w_consa(wconsa) = vecR(17,i)
								end if
							else
								wconsa = wconsa + 1
								w_consa(wconsa) = vecR(17,i)
							end if
						end if
					next
				end if
				SET RsIR = nothing
				if w_conta > 2 then
					seenvio = "N"
				end if
				if seenvio <> "N" then
					set RsIS=createobject("ADODB.Recordset")
					strsql = "Select max(secsolicitud) from SOLICITUD"
		
					RsIS.Open strsql,ConnS
					dim ultimosec
					dim cadenaAux
					dim nombrezip
					dim codversion
					dim digito
					ultimosec = 0
					ultimosec = RsIS(0)
					if ultimosec <> "" then
					ultimosec = ultimosec + 1
					else
					ultimosec = 101100001
					end if			
		
					vecurlo = split(mail,"@")
					digito = ""
					cadenaAux = vecurlo(0) & "@" & ultimosec & vecurlo(1)
					digito = LeeDigitoVerificador(Trim(cadenaAux))
					
					cadenaAux = ultimosec & digito
					
					if vrsion = "profesional" then
						nombrezip = "InstalDemo"
						codversion = "P"
					end if		
					if vrsion = "profesional_estudiante" then
						codversion = "S"
						nombrezip = "InstalDemoEstudiante"
					end if		
					if vrsion = "familiar" then
						nombrezip = "installdemo(familiar)"
						codversion = "F"
					end if		
					SET RsIS = nothing
		
					set RsI=createobject("ADODB.Recordset")
					for i = 1 to wconsd
						set RsU=createobject("ADODB.Recordset")
						if w_consd(i) > 0 then
							strsql = "UPDATE SOLICITUD SET comentario='anuladad' WHERE secsolicitud=" & w_consd(i) & ""
							'response.write("strsql -> " & strsql)
							RsU.Open strsql,ConnS
							SET RsU = nothing
						end if
					next 						
					for i = 1 to wconsa
						set RsU=createobject("ADODB.Recordset")
						if w_consa(i) > 0 then
							strsql = "UPDATE SOLICITUD SET comentario='anuladaa' WHERE secsolicitud=" & w_consa(i) & ""
							RsU.Open strsql,ConnS
							SET RsU = nothing
						end if
					next 						


					strsql = "INSERT INTO SOLICITUD  VALUES( '" & Request.ServerVariables("REMOTE_ADDR")& "','" & nombre & "','ocupacion','" & mail  & "','" & pais  & "','solicitad','" & FCH  & "','" & HRO  & "','D','" & vrsion  & "','SD','seentero','comprar'"
					'rpd 2010.08.27 se aumenta campos a contactenos			
		
					vecurlo = split(lwsurl,"-////-")
					lwsurl_u = vecurlo(1)
					lwsurl_u = replace(lwsurl_u, "-////-", "")
					if  trim(lwsurl_u) = "" then
						lwsurl_u = lwsurl
					end if
					
					strsql = strsql & "," & clng(sumador) & ",'" & trim(lwsurl_u) & "','" & trim(lwsfecham) & "'," & clng(accesos) & "," & ultimosec & "," & digito & ")"
					'response.write(strsql)
					RsI.Open strsql,ConnS
					SET RsI = nothing
					
					
					'========Correo========
						'if yyy="shgdfds" then
						dim oMail, el_mensaje, para, de, asunto, mensaje, comentario, cdoConfig
						
						Set cdoConfig = Server.CreateObject("CDO.Configuration")
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
						'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 0
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.enlinea.ec"
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@enlinea.ec"
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "info"
						cdoConfig.fields.update
						Set oMail = Server.CreateObject("CDO.Message")
						Set oMail.Configuration = cdoConfig
						
						'reemplazar aqui las variables principales
						para = ""
						de = ""
						asunto = ""
						para = "informacion@generalsoftec.com, softwaredenutricion@gmail.com"
						de = mail
						asunto = "Solicitud EquiLibra " & vrsion &  " - " & nombre & " - " & fecha_ing 
						
						
						oMail.From = de
						oMail.to = para
						'oMail.cc = copia
						'oMail.Bcc = "softwaredenutricion@hotmail.com"
						oMail.Subject= asunto
						
						
						mensaje="<html><head>"
						mensaje=mensaje & "<title>EquiLibra</title>"&vbcrlf
						mensaje=mensaje & "</head><body>"&vbcrlf
						mensaje=mensaje & "<font face= verdana size=2>Nombre: " & nombre & "<br>" &vbcrlf
		'rpd 20091012				mensaje=mensaje & "Edad: " & edad & "<br>" &vbcrlf
						mensaje=mensaje & "País: " & pais & "<br>" &vbcrlf
		'rpd 20091012				mensaje=mensaje & "Ocupación: " & ocupacion & "<br>" &vbcrlf
						mensaje=mensaje & "Correo: " & mail & "<br>" &vbcrlf
						mensaje=mensaje & "Versión: " & vrsion & "<br>" &vbcrlf
		'rpd 20091012				mensaje=mensaje & "Como se entero de Nuestro sitio: " & seentero & "<br>" &vbcrlf
		'rpd 20091012				mensaje=mensaje & "Desea comprar: " & comprar & "<br>" &vbcrlf
		'rpd 20091012				mensaje=mensaje & "Uso del software: " & comentario & "<br>" &vbcrlf
						mensaje=mensaje & "IP: " & Request.ServerVariables("REMOTE_ADDR") & "<br>" &vbcrlf
		'rpd 20100127				
						mensaje=mensaje & "Tiempo visita: " & clng(Sumador) & " segundos. <br>" &vbcrlf
		'rpd 20100317
						mensaje=mensaje & "Primer URL: " & trim(lwsurl) & " <br>" &vbcrlf
						mensaje=mensaje & "Fecha antigua: " & trim(lwsfecham) & " <br>" &vbcrlf
						mensaje=mensaje & "Nro. días: " & clng(accesos) & " <br>" &vbcrlf
						mensaje=mensaje & "Reg. compra: " & clng(compra) & " <br>" &vbcrlf
						mensaje=mensaje & "Reg. descarga: " & clng(descarga) & " <br>" &vbcrlf
						
						mensaje=mensaje & "</font>" &vbcrlf
						mensaje=mensaje & "</body></html>"&vbcrlf
						'response.write("mensaje = " & mensaje)
						
						oMail.HTMLBody = mensaje
						oMail.Send()
						Set oMail = Nothing
						Set cdoConfig = Nothing
						seenvio = "S"
						'========Correo========
					
					
					'========Correo para cliente ========
						'if yyy="shgdfds" then
						'dim oMail, el_mensaje, para, de, asunto, mensaje, comentario, cdoConfig
						
						Set cdoConfig = Server.CreateObject("CDO.Configuration")
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
						'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 0
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.enlinea.ec"
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@enlinea.ec"
						cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "info"
						cdoConfig.fields.update
						Set oMail = Server.CreateObject("CDO.Message")
						Set oMail.Configuration = cdoConfig
						
						'reemplazar aqui las variables principales
						para = ""
						de = ""
						asunto = "Software Nutricional EquiLibra"
						para = mail
						de = "informacion@generalsoftec.com"
						asunto = "Solicitud de Demo " & vrsion
						
						
						oMail.From = de
						oMail.to = para
						'oMail.cc = copia
						oMail.Bcc = " "
						oMail.Subject= asunto
						
								mensaje=""
								mensaje=mensaje & " <html><head>"
								mensaje=mensaje & " <title>Software Nutricional EquiLibra</title>"&vbcrlf
		
								mensaje=mensaje & " </head>"&vbcrlf
								mensaje=mensaje & " <body bgcolor=#FFFFFF>"&vbcrlf
								mensaje=mensaje & " <font face=Arial size=2>Apreciamos mucho su inter&eacute;s en <b><font color=#3366CC>Equi</font><font color=#339966>Libra,</font></b></font> <font face=Arial size=2> por lo que ponemos a su consideración nuestros productos.  </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2>Ud. Puede accesar a descargar equilibra versi&oacute;n <b>" & Ucase(vrsion) & " demo, con el Nro. de SOLICITUD " & cadenaAux & " que será su clave de descarga. </b>"&vbcrlf 
								mensaje=mensaje & "  en la siguiente direcci&oacute;n: <a href=http://www.equilibra.enlinea.ec/registrarse/solicitud_acep_new.asp?v=" & vrsion & ">http://www.equilibra.enlinea.ec/registrarse/solicitud_acep_new.asp?v=" & vrsion & "</a></font></p>"&vbcrlf
								if vrsion = "profesional" then
								mensaje=mensaje & " <p><font face=Arial size=2>Con la versi&oacute;n profesional UD. Tendr&aacute;"&vbcrlf 
								mensaje=mensaje & "   una ayuda directa para el control nutricional de sus pacientes y podr&aacute;"&vbcrlf 
								mensaje=mensaje & "   entregar a cada uno de ellos los programas nutricionales y de actividad f&iacute;sica"&vbcrlf 
								mensaje=mensaje & "   personalizados. </font></p>"&vbcrlf
								
		'rpd 20091012						mensaje=mensaje & " <p><font face=Arial size=2>Si Ud. necesita instalar el software Equilibra versión profesional en demostración, en un sistema operativo Windows Vista, favor revisar el instructivo de instalación: "&vbcrlf 
		'rpd 20091012						mensaje=mensaje & " <a href=http://www.generalsoftec.com/producto/instructivowv.asp>Instructivo para Windows Vista pre-Instalación Equilibra</a></font></p>"&vbcrlf
								
								end if
								if vrsion = "profesional_estudiante" then
								mensaje=mensaje & " <p><font face=Arial size=2>Con la versi&oacute;n profesional para estudientes UD. Tendr&aacute;"&vbcrlf 
								mensaje=mensaje & "   una ayuda directa para sus estudios y para elaboraci&oacute;n de dietas y "&vbcrlf 
								mensaje=mensaje & "   tener programas nutricionales y de actividad f&iacute;sica"&vbcrlf 
								mensaje=mensaje & "   personalizados. </font></p>"&vbcrlf
								end if
								if vrsion = "familiar" then
								mensaje=mensaje & " <p><font face=Arial size=2>Con la versi&oacute;n Familiar dispondr&aacute; "&vbcrlf
								mensaje=mensaje & "   de una ayuda interactiva nutricional para Ud. Y cada uno de sus familiares."&vbcrlf 
								mensaje=mensaje & "   Descubrir&aacute; los secretos de la nutrici&oacute;n y vera los resultados"&vbcrlf 
								mensaje=mensaje & "   en su salud y en su peso. </font></p>"&vbcrlf
								end if
								mensaje=mensaje & " <p><font face=Arial size=2>Le sugerimos que antes de usar Equilibra revise "&vbcrlf
								mensaje=mensaje & "   la presentaci&oacute;n grafica desde la direcci&oacute;n <a href=http://www.equilibra.ec/index.asp>http://www.equilibra.ec/index.asp</a>"&vbcrlf 
								mensaje=mensaje & "   que le permitir&aacute; disponer de una visi&oacute;n general del producto y"&vbcrlf 
								mensaje=mensaje & "   usarlo de la forma apropiada. </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2>Para instalar el producto todo lo que tiene que"&vbcrlf 
								mensaje=mensaje & "   hacer es: </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2><b>1.-</b> Descargar la version demo <br>"&vbcrlf
								mensaje=mensaje & "   <b>2.-</b> Descomprimir el archivo ZIP <br>"&vbcrlf
								mensaje=mensaje & "   <b>3.-</b> Ejecutar el archivo Setup.exe </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2>La versi&oacute;n de DEMO 2011 no tiene costo y"&vbcrlf 
								mensaje=mensaje & "   puede usarla en calidad de demostraci&oacute;n sin premuras de tiempo y a su ritmo,"&vbcrlf 
								mensaje=mensaje & "   de tal manera que pueda observar y comparar con otros productos las bondades de <b><font color=#3366CC>Equi</font><font color=#339966>Libra,</font></b></font> <font face=Arial size=2>"&vbcrlf 
								mensaje=mensaje & "   Cuando concluya la demostraci&oacute;n UD. puede comprar la licencia de uso definitiva en  <a href=http://www.equilibra.ec>http://www.equilibra.ec</a>"&vbcrlf
								mensaje=mensaje & "   y continuar usando todos los datos ingresados en EquiLibra mientras estuvo en demostraci&oacute;n.</font></p>"&vbcrlf 
								mensaje=mensaje & " <p><font face=Arial size=2>Si necesita mayor informaci&oacute;n estamos a"&vbcrlf 
								mensaje=mensaje & "   sus ordenes en: </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2>* <b>Email:</b> <a href=mailto:informacion@generalsoftec.com><font color=#3365CE>informacion@generalsoftec.com</font></a>"&vbcrlf 
								mensaje=mensaje & "   </font><font color=#3365CE face=Arial size=2><b><font color=#FF0000>-</font></b></font>"&vbcrlf 
								mensaje=mensaje & "   * <b>Tel&eacute;fono:</b> (593-2) 2-416-160</font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2><br>"&vbcrlf
								mensaje=mensaje & "   Atentamente </font></p>"&vbcrlf
								mensaje=mensaje & " <p><font face=Arial size=2><br>"&vbcrlf
								mensaje=mensaje & "   Generalsoft S.A.</font></p>"&vbcrlf
								mensaje=mensaje & "   </font> </p>"&vbcrlf
								mensaje=mensaje & " </body></html>"&vbcrlf
						
						'response.write("mensaje = " & mensaje)
						
						oMail.HTMLBody = mensaje
						
						'on error resume next
						oMail.Send()
						'if err <> 0 then
						 ' response.write "Tipo de errores:"&" "&err.description
						'else
						  'response.redirect "gracias.htm"
						Set oMail = Nothing
						Set cdoConfig = Nothing
						'end if
						'end if
						seenvio = "S"
						'========Correo========
			
'			else 'si menos de 3 solicitudes
'				call msg("Ha sobrepasado el limite de solicitudes.")
 				end if 'end envio <> "N"
		else
			if  permiso <> "" then
					call msg("Completar todos los datos")
			end if
			if strconfirmamail = "" then
				call msg("Verifica tu E-mail, la verificación del email no coincide con el E-mail ingresado.")
			end if
		end if
end if

function validarEmail(email) 
    dim partes, parte, i, c 
    'rompo el email en dos partes, antes y después de la arroba 
    partes = Split(email, "@") 
    if UBound(partes) <> 1 then 
       'si el mayor indice del array es distinto de 1 es que no he obtenido las dos partes 
       validarEmail = false 
       exit function 

    end if 
    'para cada parte, compruebo varias cosas 
    for each parte in partes 
       'Compruebo que tiene algún caracter 
       if Len(parte) <= 0 then 
          validarEmail = false 
          exit function 
       end if 
       'para cada caracter de la parte 
       for i = 1 to Len(parte) 
          'tomo el caracter actual 
          c = Lcase(Mid(parte, i, 1)) 
          'miro a ver si ese caracter es uno de los permitidos 
          if InStr("._-abcdefghijklmnopqrstuvwxyz", c) <= 0 and not IsNumeric(c) then 
             validarEmail = false 
             exit function 
          end if 
       next 
       'si la parte actual acaba o empieza en punto la dirección no es válida 
       if Left(parte, 1) = "." or Right(parte, 1) = "." then 
          validarEmail = false 
          exit function 
       end if 
    next 
    'si en la segunda parte del email no tenemos un punto es que va mal 
    if InStr(partes(1), ".") <= 0 then 
       validarEmail = false 
       exit function 
    end if 
    'calculo cuantos caracteres hay después del último punto de la segunda parte del mail 
    i = Len(partes(1)) - InStrRev(partes(1), ".") 
    'si el número de caracteres es distinto de 2 y 3 
    if not (i = 2 or i = 3) then 
       validarEmail = false 
       exit function 
    end if 
    'si encuentro dos puntos seguidos tampoco va bien 
    if InStr(email, "..") > 0 then 
       validarEmail=false 
       exit function 
    end if 
    validarEmail = true 
end function

function msg (mensaje)
	vScript = "<SCRIPT>"
	vScript = vScript & "alert ('" & mensaje & "');"
	vScript = vScript & "</SCRIPT>"
	Response.Write(vScript)
end function

Function LeeDigitoVerificador(cadena) 
LeeDigitoVerificador = ""
cadLetras = "abcdefghijklmnñopqrstuvwxyz"
ReDim vector(Len(cadLetras) - 1)
For i = 0 To Len(cadLetras) - 1
   vector(i) = Trim(Mid(cadLetras, i + 1, 1))
Next 

cadAux = ""
For i = 1 To Len(cadena)
   If IsNumeric(Mid(cadena, i, 1)) Then
      cadAux = cadAux & Mid(cadena, i, 1)
   Else
      For j = 0 To Len(cadLetras) - 1
         If UCase(vector(j)) = UCase(Mid(cadena, i, 1)) Then
            If Len(Trim(j + 1)) = 1 Then
               cadAux = cadAux & Trim(j + 1)
            Else
               cadAux = cadAux & Trim(cint(Mid(j + 1, 1, 1)) + cint(Mid(j + 1, 2, 1)))
            End If
            Exit For
         End If
      Next 
   End If
    
Next 
digi = 0
For i = 1 To Len(cadAux)
   digi = cint(digi) + cint(Mid(cadAux, i, 1))
Next 
If digi >= 47 Then
   residuo = digi Mod 47
   digi = residuo Mod 11
   If digi = 10 Then
      digi = 0
   End If
Else
   residuo = digi
   digi = residuo Mod 11
   If digi = 10 Then
      digi = 0
   End If
End If
LeeDigitoVerificador = digi
End Function

'====rpd 2010/01/28 Se revisa si realizo solicitud desde IP
//	strIPr = request.servervariables("REMOTE_ADDR")
//	Set ConIPr = Server.CreateObject("ADODB.Connection")
//	ConIPr.Open ("DRIVER={Microsoft Access Driver (*.mdb)};UID=;PWD=;DBQ=" & Server.MapPath("\registrarse\contactenos.mdb")) '& ";pwd=MEDYGS2016")
//	set RIPr=createobject("ADODB.Recordset")
//	IPsqlr = "select IP,NOMBRE from SOLICITUD where IP = '"& Request.ServerVariables("REMOTE_ADDR") & "' and AUX3 = 'SD'"
//	RIPr.Open IPsqlr,ConIPr
//	 if not RIPr.EOF and seenvio <> "R" then
//'	 	if trim(strIPr) <> "201.217.102.210" then
//'			seenvio = "D"
//'		else
//			seenvio = "S"
//'		end if
//	 end if
//	set ConIPr = nothing
'====fin rpd

if Err<>0 then 
  msg("error: " & Err.Description)
end if

%>
<html>
<head>
<title>Dietas.ec: Descargar EquiLibra Familiar (Demo)</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function favoritos()
{
var url="http://www.Dietas.ec" 
var titulo="Dietas.ec"
window.external.AddFavorite(url,titulo)
}
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" topmargin="5">
<table width="700" border="1" cellspacing="0" cellpadding="5" align="center" bordercolor="#A3B8D3" height="477">
  <tr>
    <td height="856">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><a href="index.html"><img src="imagenes/cabecera-new.jpg" width="650" height="80" border="0"></a> 
          </td>
        </tr>
        <tr align="center"> 
          <td> 
            <hr color="#A3B8D3">
          </td>
        </tr>
        <tr align="center"> 
          <td height="10"></td>
        </tr>
        <tr align="left"   > 
          <td background="imagenes/filo_azul.jpg"><font face="Arial" size="2" color="#FFFFFF"><b>&nbsp;SOLICITAR 
            EQUILIBRA VERSI&Oacute;N FAMILIAR (DEMO)</b></font></td>
        </tr>
        <tr bgcolor="#FFFFFF" bordercolor="#FFCC66"> 
          <td valign="middle" align="center" height="800"> <iframe border="0" frameborder="0" framespacing="0" height="100%" marginheight="0" marginwidth="0"  name="frame" id = "frame"   scroll="no" src="http://www.equilibra.enlinea.ec/registrarse/solicitud_demo_new.asp" width="100%" align="absmiddle" ></iframe> 
          </td>
        </tr>
        <tr align="center" > 
          <td height="5"></td>
        </tr>
        <tr align="center"> 
          <td height="10"><font color="#cccccc" face="Arial" size="2"><b><font color="#669999">-------------------------------------------------------------------------------------------------------------------------------------------------------------------</font></b></font></td>
        </tr>
        <tr align="left"> 
          <td height="5"></td>
        </tr>
        <tr align="center"> 
          <td></td>
        </tr>
        <tr align="center"> 
          <td><font face="Arial" size="1">&copy; 2010 Dietas.ec</font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!-- inicio estadísticas eweb -->
		<script language="javascript" src="ini/send.js"></script>
		<script language="javascript" src="ini/get.js"></script>
<!-- fin estadísticas eweb -->
</body>
</html>