<!--
' "Propiedad de ARMECASAN LTDA. Todos los Derechos Reservados."
' All rights reserved. PATENTED.
Function consulta()
variable = window.location
entrada = trim(form1.entrada.value)
entrada = lcase(entrada)
vacio = "                      "

If entrada > vacio And instr(variable, "sexual")>0 and instr(form1.respuesta.value, "SESION CONCLUIDA") = 0 Then
Randomize 
valor = Int((20 * Rnd) + 1)
medico = "Dra. de Escobar": pprimera = "es la primera vez que consulta esto?": pedad = "dígame qué edad tiene?": psexo = "es hombre o mujer?": penfact = "perdón, repítame cuál es el problema que tiene?": penfpre = "Tiene alguna otra enfermedad como diabetes, presión alta," + chr(13) + "  enfermedades del corazón ó respiratorias?": paler = "Tiene alergias a algún medicamento o algún alimento?": pgracias = "A sus órdenes.": pinsulto = "No tengo porqué escuchar sus insultos. La próxima vez tenga algo de educación. "
If valor = 1 Then medico = "Rolando": pprimera = "ya había preguntado sobre esto antes?" : pedad = "bueno, pero que edad tiene?": psexo = "que sexo es?": penfact = "cuál es el problema que tiene?": penfpre = "padece de alguna otra enfermedad del corazón, diabetes, de presión alta?": paler = "tiene alergias a alguna medicina o a algo?": pgracias = "ya sabe.": pinsulto = "aquí estamos para tratar de ayudarle, no para escuchar malcriadesas suyas."
If valor = 2 Then medico = "Melvin": pprimera = "seguro que ya ha consultado esto antes?" : pedad = "edad?": psexo = "sexo?": penfact = "qué es lo que consulta?": penfpre = "ha tenido otras enfermedades como diabetes, presión alta, del corazón, riñones o pulmonares?": paler = "hay algún medicamento que le dé alergia?": pgracias = "bueno, ya sabe.": pinsulto = "aquí no atendemos patanadas!"
If valor = 3 Then medico = "José": pprimera = "primera vez de esto?" : pedad = "cuántos años tiene?": psexo = "hembra o varón?": penfact = "en sí qué es lo que le preocupa?": penfpre = "nunca ha padecido de otras enfermedades como diabetes, de la presión alta, del corazón o de los pulmones?": paler = "hay algo que le dé como alergia (alguna sustancia, el polvo o alguna medicina)?": pgracias = "es un gusto atenderle, recomiéndenos con sus amistades!": pinsulto = "vaya mucho al carajo, aquí no atendemos patanadas!"
If valor = 4 Then medico = "Dr. Rivas": pprimera = "le ha pasado antes?" : pedad = "cuántos años?": psexo = "masculino o femenino?": penfact = "no le entiendo bien cuál es el problema.": penfpre = "ha tenido diabetes, hipertensión, problemas cardíacos o asma?": paler = "ha tenido alguna alergia alguna vez?": pgracias = "con mucho gusto.": pinsulto = "vaya a hacer estupideces a otro lado. Aquí estamos ayudando a personas serias, que de verdad lo necesiten."
If valor = 5 Then medico = "Dr. Rivera": pprimera = "ha tenido algo similar previamente?" : pedad = "cuantos añitos tiene?": psexo = "mujer o hombre?": penfact = "escríbame en forma resumida cuál es el problema?": penfpre = "no padece de alguna otra enfermedad como de la presión, diabetes, del corazón, pulmones?": paler = "alergias que tenga?": pgracias = "ya sabe. Recomiéndenos con sus amistades.": pinsulto = "no sea tan vulgar. No le voy a tolerar eso."
If valor = 6 Then medico = "Geovanny": pprimera = "es primera vez de esto?" : pedad = "la edad?": psexo = "el sexo?": penfact = "en resumen qué es lo que consulta?": penfpre = "tiene enfermedades previas como infarto, arritmias del corazón, soplos, diabetes, presión alta, asma?": paler = "hay alguna cosa que le produzca sarpullido en la piel o alergia?": pgracias = "para eso estamos. Recomiéndenos con sus amistades.": pinsulto = "Eso lo será usted. No sea tan patán."
If valor = 7 Then medico = "Jorge": pprimera = "ha tenido algo similar antes?" : pedad = "sus años?": psexo = "varón o fémina?": penfact = "cuál es el motivo de su consulta?": penfpre = "no recuerda si ha padecido de otras enfermedades como diabetes, de la presión, del corazón o de los pulmones?": paler = "le han dado alergias alguna vez?": pgracias = "O.K. a sus órdenes!": pinsulto = "Aprenda a ser educado, le estamos atendiendo grátis y se ve que no lo aprecia."
If valor = 8 Then medico = "Dimas": pprimera = "consultó esto antes?" : pedad = "cuántos abriles tiene?": psexo = "perdón, que séxo es?": penfact = "porqué consulta?": penfpre = "diabetes, tensión alta, problemas cardíacos?": paler = "alergias que tenga?": pgracias = "de nada, estamos a sus órdenes.": pinsulto = "No sea tonto, le estamos atendiendo grátis y se ve que no lo aprecia."
If valor = 9 Then medico = "Joseph": pprimera = "algo Así le ha pasado anteriormente?" : pedad = "cuántas primaveras tiene?": psexo = "es femenino o masculino?": penfact = "cuál es su duda?": penfpre = "le han diagnosticado diabetes, tensión alta, problemas cardíacos, pulmonares, del hígado o de los riñones alguna vez?": paler = "es alérgico a la penicillina o a alguna otra medicina?": pgracias = "le damos la bienvenida, con gusto le atenderemos.": pinsulto = "usted no se merece que le atienda."
If valor = 10 Then medico = "Dr. Menjívar": pprimera = "primera vez?" : pedad = "O.K. cuál es su edad?": psexo = "género?": penfact = "qué es lo que consulta?": penfpre = "ha padecido de alguna otra enfermedad?": paler = "alergias a medicinas, alimentos, sustancias, polvo?": pgracias = "bienvenido.": pinsulto = "vaya a insultar a otro lado, aquí no atendemos locos como usted. No se merece que le atienda."
If valor = 11 Then medico = "Dr. López": pprimera = "es la primera vez?" : pedad = "pero y su edad?": psexo = "chico o chica?": penfact = "que es lo que le pasa?": penfpre = "sufre de diabetes, o de presión alta, o del corazón, o de los pulmones, o asma?": paler = "tiene alergias de la piel a alguna medicina?": pgracias = "gracias.": pinsulto = "Esta muy enfermo de la mente, o es una persona desocupada que no tiene nada bueno que hacer. Mejor vaya a que lo vea un psiquiatra."
If valor = 12 Then medico = "René": pprimera = "algo Así antes?" : pedad = "sus años?": psexo = "con quién tengo el gusto? hombre o mujer?": penfact = "qué es lo que le aflige?": penfpre = "le ha dado diabetes, o presión alta, o enfermedades del corazón, o de los pulmones antes?": paler = "hay algo que le dé alergia?": pgracias = "bueno, gracias.": pinsulto = "No sea tan estúpido. Ya no le voy a atender."
If valor = 13 Then medico = "Dr. Carpio": pprimera = "verdad que ya le había pasado antes?" : pedad = "por favor diga la edad.": psexo = "hablamos de una mujer o de un hombre?": penfact = "cuál es el problema?": penfpre = "antes le ha dado alguna enfermedad de los riñones, del corazón, de los pulmones, o diabetes?": paler = "alguna otra cosa?": pgracias = "a la orden. Recomiéndenos con alguien.": pinsulto = "Patán. Ya no le voy a atender."
If valor = 14 Then medico = "Dra. de Lazo": pprimera = "ha tenido algo Así antes?" : pedad = "años que tiene?": psexo = "hablamos de una dama o de un caballero?": penfact = "en sí cuál es el problema?": penfpre = "otros padecimientos o enfermedades que tenga o que halla tenido?": paler = "es alérgico a la penicillina?": pgracias = "es un placer. Recomiéndenos con sus familiares.": pinsulto = "Qué malacrianza! Que lo aguante su familia."
If valor = 15 Then medico = "Dr. Escobar": pprimera = "hoy fué esto?" : pedad = "no se le olvide darme la edad, la necesitamos para nuestras estadísticas.": psexo = "es una dama o caballero?": penfact = "cuál es el problema?": penfpre = "le aquejan otros padecimientos como diabetes, presión alta, del corazón, pulmones?": paler = "tiene alérgia a las sulfas o a la penicillina?": pgracias = "es un gusto atenderle. Venga a nuestras instalaciones y le haremos un chequeo grátis.": pinsulto = "Malcriado. Que lo aguante su familia."
If valor = 16 Then medico = "Claudia": pprimera = "cuándo le pasó esto?" : pedad = "recuerde de decir la edad.": psexo = "es una dama o un caballero?": penfact = "qué problema tiene?": penfpre = "le dió diabetes, infarto, derrames, o asma alguna vez?": paler = "tiene alérgias?": pgracias = "Muy amable de su parte.": pinsulto = "Que lo aguante su nana!"
If valor = 17 Then medico = "César": pprimera = "antiguamente le pasó esto?" : pedad = "la edad por favor.": psexo = "caballero o señorita?": penfact = "repítame, qué problema tiene?": penfpre = "Otras enfermedades que halla tenido además de esto?": paler = "ya le han inyectado con penicillina alguna vez?": pgracias = "Qué amable. Gracias a usted.": pinsulto = "Vaya a decir insultos a otra parte!"
If valor = 18 Then medico = "Ricardo": pprimera = "Otro episodio previo?" : pedad = "la edad si es tan amable?": psexo = "señorita o caballero?": penfact = "repítame, cuál es la duda?": penfpre = "le han atacado otras enfermedades?": paler = "alergias que tenga?": pgracias = "Sí dígame.": pinsulto = "Usted no se merece que se le atienda."
If valor = 19 Then medico = "Mauricio": pprimera = "Otros episodios similares?" : pedad = "la edad del paciente?": psexo = "Señor o señorita?": penfact = "dígame en pocas palabras qué problema tiene?": penfpre = "nunca ha tenido diabetes, o problemas del corazón, o de la presión, o de los riñones?": paler = "no padece de alergias?": pgracias = "Bien.": pinsulto = "Ya no le vamos a atender por malcriado. Hasta nunca!"

pala = ""
For i = 1 To len(entrada)
xs = mid(entrada, i, 1)
If xs = "á" Then xs = "a"
If xs = "é" Then xs = "e"
If xs = "í" Then xs = "i"
If xs = "ó" Then xs = "o"
If xs = "ú" Then xs = "u"
If xs = "ñ" Then xs = "n"
If xs = "à" Then xs = "a"
If xs = "è" Then xs = "e"
If xs = "ì" Then xs = "i"
If xs = "ò" Then xs = "o"
If xs = "ù" Then xs = "u"
If xs = "ü" Then xs = "u"
If xs = chr(13) Then xs = " "
If xs = chr(10) Then xs = " "
pala = pala + xs
If right(pala,2) = "  " Then pala = trim(pala) + " "
Next
entrada = pala
If form1.ini.value <= vacio Then empieza =0 Else empieza =1
If form1.ini.value <= vacio Then form1.ini.value = entrada
inicial = form1.ini.value
edad = form1.edad.value
sexo = form1.sexo.value
enfact = form1.enfact.value
enfpre = form1.enfpre.value
alergias = form1.alergias.value
primera = form1.primera.value
enviar = 0

rem determinar edad
If edad < vacio Then
 For age = 0 To 9
 If instr(entrada, trim(cstr(age)))> 0 Then edad = "adulto": Exit For
 Next
If instr(entrada, "nino") > 0 Or instr(entrada, "nina") > 0 Then edad = "niño"
If instr(entrada, "joven") > 0 Or instr(entrada, "muchach") > 0 Then edad = "joven"
If instr(entrada, "ancian") > 0 Or instr(entrada, "viej") > 0 Then edad = "anciano"
posicion = instr(entrada, "mes") 
 If posicion > 0 Then edad = "bebe"
posicion = instr(entrada, "anos")
 If posicion > 0 Then
   inicio = posicion -3: If inicio < 1 Then inicio = 1
   edadnum = mid(entrada, inicio, 2)
   If instr(edadnum, "a") > 0 Then edadnum = 31
   If instr(edadnum, "e") > 0 Then edadnum = 31
   If instr(edadnum, "o") > 0 Then edadnum = 31
   If instr(edadnum, "s") > 0 Then edadnum = 31
   If instr(edadnum, "z") > 0 Then edadnum = 31
   
   edad = "anciano"
   If edadnum < 70 Then edad = "adulto"
   If edadnum < 30 Then edad = "joven"
   If edadnum < 10 Then edad = "niño"
   End If
   form1.edad.value = edad
   End If

rem determinar sexo
If sexo < vacio Then
If instr(entrada, "nino") > 0 Or instr(entrada, "hijo")>0 Or instr(entrada, "papa")>0 Or instr(entrada, "padre")>0 Or instr(entrada, "chico")>0 Or instr(entrada, "caballero")>0 Then sexo = "masculino"
If instr(entrada, "nina") > 0 Or instr(entrada, "hija")>0 Or instr(entrada, "mama")>0 Or instr(entrada, "madre")>0 Or instr(entrada, "chica")>0 Or instr(entrada, "dama")>0 Or instr(entrada, "senorita")>0 Then sexo = "femenino"
If instr(entrada, "hombre") > 0 Or instr(entrada, "varon")>0 Or instr(entrada, "senor")>0 Or instr(entrada, "muchacho")>0 Or instr(entrada, "macho")>0 Or instr(entrada, "masculino")>0 Then sexo = "masculino"
If instr(entrada, "mujer") > 0 Or instr(entrada, "femina")>0 Or instr(entrada, "hembra")>0 Or instr(entrada, "senora")>0 Or instr(entrada, "muchacha")>0 Or instr(entrada, "femenino")>0 Then sexo = "femenino"
   form1.sexo.value = sexo
   End If
   
rem determinar enfermedad actual
If form1.enfact.value = "preguntar" Then
form1.enfact.value = entrada
End If
If enfact < vacio And edad > vacio And sexo > vacio Then
form1.enfact.value = "preguntar"
End If

rem determinar enfermedades previas
If form1.enfpre.value = "preguntar" Then
form1.enfpre.value = entrada
End If
If enfpre < vacio And edad > vacio And sexo > vacio And enfact > vacio Then
form1.enfpre.value = "preguntar"
End If

rem determinar alergias
If form1.alergias.value = "preguntar" Then
form1.alergias.value = entrada
End If
If alergias < vacio And edad > vacio And sexo > vacio And enfact > vacio And enfpre >vacio Then
form1.alergias.value = "preguntar"
End If

rem determinar si es primera vez del cuadro
If form1.primera.value = "preguntar" Then
form1.primera.value = entrada
End If
If primera < vacio And edad > vacio And sexo > vacio And enfact > vacio And enfpre > vacio And alergias > vacio Then
form1.primera.value = "preguntar"
End If

If form1.primera.value = "preguntar" Then respuesta = pprimera
If form1.alergias.value = "preguntar" Then respuesta = paler
If form1.enfpre.value = "preguntar" Then 
 respuesta = penfpre + chr(13)
 End If
If form1.enfact.value = "preguntar" Then respuesta = penfact
If sexo < vacio Then respuesta = psexo
If edad < vacio Then respuesta = pedad
If left(entrada,25) = "Haga clíck aquí y escriba" Then respuesta = "bienvenido."
If instr(form1.correo.value, "@") = 0 Or len(form1.pais.value) < 2 Then respuesta = "Debe escribir su pais y su dirección de correo electrónico por favor"

rem conección a conect
If primera > vacio Then
mayor = 0
comandos.recordset.MoveFirst
Do While comandos.recordset.eof = 0
tema = comandos.recordset.fields("tema")
umbral = comandos.recordset.fields("umbral")
umbral = trim(umbral)
If umbral = "1" Then umbint = 1
If umbral = "2" Then umbint = 2
If umbral = "3" Then umbint = 3
If umbral = "4" Then umbint = 4
If umbint <0 Then umbint =1
clave = comandos.recordset.fields("clave")
clave = trim(clave)
mipos = 0
ant = 1
veces = 0
For vo = 1 To len(clave)
mipos = Instr(vo, clave, "|")
If mipos = 0 Then mipos = len(clave) +1
vo = mipos
subclave = mid(clave, ant, vo - ant)
subclave = trim(subclave)
If left(subclave,1)= "|" Then subclave = mid(subclave,2)
ant = vo 
If subclave > vacio Then 
 If instr(enfact, subclave) > 0 Then veces = veces + 1
 End If
Next
If mayor < veces And veces => umbint Then
   mayor = veces
   respuesta = comandos.recordset.fields("respuesta"): conocer = 1
   End If
comandos.recordset.moveNext  
Loop
If mayor < 1 Then
comandos.recordset.MoveFirst
Do While comandos.recordset.eof = 0
tema = comandos.recordset.fields("tema")
umbral = comandos.recordset.fields("umbral")
umbral = trim(umbral)
If umbral = "1" Then umbint = 1
If umbral = "2" Then umbint = 2
If umbral = "3" Then umbint = 3
If umbral = "4" Then umbint = 4
If umbint <0 Then umbint =1
clave = comandos.recordset.fields("clave")
clave = trim(clave)
mipos = 0
ant = 1
veces = 0
For vo = 1 To len(clave)
mipos = Instr(vo, clave, "|")
If mipos = 0 Then mipos = len(clave) +1
vo = mipos
subclave = mid(clave, ant, vo - ant)
subclave = trim(subclave)
If left(subclave,1)= "|" Then subclave = mid(subclave,2)
ant = vo 
If subclave > vacio Then 
 If instr(inicial, subclave) > 0 Then veces = veces + 1
 End If
Next
If mayor < veces And veces => umbint Then
   mayor = veces
   respuesta = comandos.recordset.fields("respuesta"): conocer = 1
   End If
comandos.recordset.moveNext  
Loop
End If

pais = trim(lcase(form1.pais.value))
rem If instr(pais, "salva") > 0 Or pais = "sv" Or instr(pais, "hondu") > 0 Then nocontes = 1
If mayor < 1 Or nocontes = 1 Then
  respuesta = "Voy a responderle a su correo electronico."
  enviar = 1
  conocer = 1
  End If
End If


If instr(entrada, "gracia") > 0 Or instr(entrada, "amable") > 0 Or instr(entrada, "adios") > 0 Then respuesta = pgracias + " " + respuesta
rem If instr(entrada, "imbeci") > 0 Or instr(entrada, "idiot") > 0 Or instr(entrada, "estafa") > 0 Or instr(entrada, "pendej") > 0 Or instr(entrada, "cabron") > 0 Or instr(entrada, "tu madre") > 0 Or instr(entrada, "cerote") > 0 Or instr(entrada, "falso") > 0 Or instr(entrada, "mentira") > 0 Or instr(entrada, "farsa") > 0 Or instr(entrada, "mierda") > 0 Or instr(entrada, " puto") > 0 Or instr(entrada, " puta") > 0 Or instr(entrada, "culero") > 0 Or instr(entrada, "chinga") > 0 Or instr(entrada, "loco") > 0 Or instr(entrada, "loca") > 0 Or instr(entrada, "tonto") > 0 Or instr(entrada, "tonta") > 0 Then respuesta = pinsulto + chr(13) + " SESION TERMINADA.": conocer=1: form1.respuesta.value = ""
rem if instr(entrada, "mi polla") >0 or instr(entrada, "la polla") > 0 or instr(entrada, "su polla") >0 or instr(entrada, "verga")>0 or instr(entrada, "el culo") >0 or instr(entrada, "mi culo") >0 or instr(entrada, "su culo") >0  Then respuesta = pinsulto + chr(13) + " SESION TERMINADA.": conocer=1: form1.respuesta.value = ""
rem If instr(entrada, "mi nino") > 0 Or instr(entrada, "mi nina") >0 Or instr(entrada, "una nina")>0 Or instr(entrada, "un nino") > 0 Or instr(entrada, "mi bebe")> 0 Or instr(entrada, "mi beba")>0 Or instr(entrada, "mi nena")>0 Or instr(entrada, "mi bebito")>0 Or instr(entrada, "mi bebita")>0 Or instr(entrada, "mi nene")>0 Or instr(entrada, "mi nenita")>0 Or instr(entrada, "mi nenito") Or instr(entrada, "sobrinit")>0 Then respuesta = "Perdon que no le pueda atender esta consulta pero tenemos una politica de no atender consultas para ninos ya que hemos tenido malas experiencias al hacerlo. Es mejor que consulte a uno de nuestros pediatras en el DIRECTORIO MEDICO." : conocer=1: form1.respuesta.value = ""
If instr(entrada, "donde estudio") > 0 or instr(entrada, "especialista?") > 0 or instr(entrada, "es especialista") > 0 or instr(entrada, "es usted especialista") > 0 or instr(entrada, "medico?") > 0 or instr(entrada, "es usted medico") > 0 or instr(entrada, "es medico") > 0 Then respuesta = "Soy sexologo. Estudie en la Universidad de Vigo"

If empieza = 0 Then respuesta = "hola. Le atiende " + medico + ". "  + respuesta : form1.respuesta.value = ""
form1.respuesta.value = form1.respuesta.value + chr(13) + "- " + respuesta 

beep()

For m = 1 To len(form1.respuesta.value)
 uu = mid(form1.respuesta.value, m, 1)
 If uu = chr(13) Then renglones = renglones +1
 If renglones > 3 Or len(form1.respuesta.value) > 300 Then form1.respuesta.value = "- " + respuesta: Exit For
Next
If left(form1.entrada.value, 25)<> "Haga clíck aquí y escriba" Then form1.entrada.value = ""
End If

If conocer = 1 Then
form1.method="POST"
form1.action="consulta.php"
c = form1.respuesta.value
form1.resumen.value= chr(13) + "=============================" + chr(13) + chr(13) + "Correo del que consulta: " + form1.correo.value + chr(13) + chr(13) + "Pais: " + form1.pais.value + chr(13) + chr(13) + "Inicio de la sesión: " + form1.ini.value + chr(13) + chr(13) + "Edad: " + form1.edad.value + chr(13) + chr(13) + "Sexo: " + form1.sexo.value + chr(13) + chr(13) + "Motivo por el cual consulta: " + form1.enfact.value + chr(13) + chr(13) + "Enf. previas: " + form1.enfpre.value + chr(13) + chr(13) + "Alergias: " + form1.alergias.value + chr(13) + chr(13) + "Es primera vez?: " + form1.primera.value + chr(13) + chr(13) + "Respuesta dada: " + left(c,140) + chr(13) + chr(13) + "=============================" + chr(13)
If enviar = 1 Then c="Le enviar&eacute; la respuesta de su consulta a su correo <big>" + form1.correo.value +"</big><br>Por favor verifique que su servicio anti-spam no elimine la respuesta que le enviaremos."
form1.entrada.value="SESION CONCLUIDA. Debe cerrar esta ventana para poder hacer una nueva consulta."
form1.respuesta.value="SESION CONCLUIDA. Debe cerrar esta ventana para poder hacer una nueva consulta."
document.form1.submit
MiVo = MsgBox ("En un momento le responderan a su consulta", 0, "MENSAJE")
document.write "<html><head><title>Consulta en línea </title></head>"
document.write " <BODY bgcolor=white style=" + chr(34) + "text-align:justify; font-size:14;" + chr(34) + ">"
document.write "<blockquote><blockquote><br><br><Font color=blue><B><strong>Servicio de consulta en internet <br><big><i>www.atencionhispana.com</i></big></strong></font><br><br>"
document.write "<iframe name='google_ads_frame' width='728' height='90' frameborder='0' src='http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-2986659292136877&dt=1184804534399&lmt=1184804534&alt_color=FFFFFF&format=728x90_as&output=html&correlator=1184804534399&channel=7430388024&url=http%3A%2F%2Fwww.atencionhispana.com%2Fconsulta.php&color_bg=FFFFFF&color_text=000000&color_link=0000FF&color_url=000000&color_border=FFFFFF&ad_type=text&cc=841&flash=9&u_h=768&u_w=1024&u_ah=738&u_aw=1024&u_cd=16&u_tz=-360&u_his=2&u_java=true' marginwidth='0' marginheight='0' vspace='0' hspace='0' allowtransparency='true' scrolling='no'></iframe>"
document.write "<Br><br>Nota: Le escribimos los nombres genericos (la composicion) de los medicamentos para que pueda encontrarlos con mas facilidad en las farmacias de su pais.<br>Le recomendamos que imprima esta pagina <input type=button value=IMPRIMIR onclick='VBScript:window.print()'><br><br><Br><big>La respuesta del sex&oacute;logo fu&eacute; la siguiente:</big></b><Br><Blockquote>"
'document.write "<table border=0 align=left><tr><td><iframe name='google_ads_frame' width='336' height='280' frameborder='0' src='http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-2986659292136877&dt=1184804534441&lmt=1184804534&alt_color=FFFFFF&prev_fmts=728x90_as&format=336x280_as&output=html&correlator=1184804534399&channel=9734487340&url=http%3A%2F%2Fwww.atencionhispana.com%2Fconsulta.php&color_bg=FFFFFF&color_text=000000&color_link=0000FF&color_url=000000&color_border=FFFFFF&ad_type=text&cc=196&flash=9&u_h=768&u_w=1024&u_ah=738&u_aw=1024&u_cd=16&u_tz=-360&u_his=2&u_java=true' marginwidth='0' marginheight='0' vspace='0' hspace='0' allowtransparency='true' scrolling='no'></iframe></table>"
document.write "<B><i> " + c + "</i><br><br>"
document.write "<Br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Atentamente: <i>Equipo de atencionhispana.com<Br clear=all></blockquote><hr></b><br>"
document.write "<table border=0 width=200 align=right bgcolor=yellow><tr><th><a href=../buzon.php?Consulta-Sexologia>Sus Sugerencias AQUI</a></table>"
document.write "Nota: la consulta por este medio nos exime de cualquier responsabilidad derivada de un malentendido."
document.write "<Br><Br>"
document.write "<center><a href=../directorio.html target=dire><b>Consulte a un especialista de su pa&iacute;s<br>en nuestro DIRECTORIO MEDICO</b></A><BR><BR><table border=0 bgcolor=yellow width=80%><tr><th><b><Font color=blue><Br>Si desea colaborar para mantener este servicio<Br>por favor <a href=../avisar.php?http://www.atencionhispana.com target=otrorar>recomi&eacute;ndenos "
document.write "con un familiar o amigo</a></font><Br><Br><Big>www.atencionhispana.com<Br>"
document.write "</table></center><Br><Br>"
document.write "</BODY></HTML>"
history.go(0)
end if
form1.boton1.disabled = false

End Function
rem -->