<%@ Language=VBScript %> <% Response.Expires=0 %> <% hei=365 wid=550 %> <% afiliadox=Request.QueryString("idafiliado") if afiliadox="" then afiliadox=254 end if%> <%opci=request.querystring("sopcion")%> <% nombre_seleccionado=Request.QueryString("stexto") opcion_seleccionada=Request.QueryString("sopcion") nlogo=Request.QueryString("nombre_logo") email=Request.QueryString("temailusuario") bc=Request.QueryString("bn") %> <% conexion.Open error=0 desc_error="" pass = Request.QueryString("tpass") login = Request.QueryString("tlogin") ac=Request.QueryString("tac") ' if ac=1 then if bc=2 then 'Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = "mail.genexies.com" 'Mail.Port = 25 'Mail.From = "peticiones@genexies.com" 'Mail.FromName = "peticiones" 'Mail.AddAddress "peticiones@genexies.com" 'Mail.Subject = "Petición de nombre para logos" 'Mail.Body="Nombre del Logo: " & nlogo 'Mail.Body=Mail.Body & CHR(13) & CHR(10) & "e-mail: " & email 'On Error Resume Next 'Mail.Send slqpide="INSERT INTO PIDELOGONOMBRE(fecha,nombre,mail)VALUES ('"&now()&"','"&nlogo&"','"&email&"')" conexion.execute slqpide response.write ("") If Err <> 0 Then resultado=Err.Description end if end if if bc=1 then Set resultado_buscar_nombre = Server.CreateObject("ADODB.Recordset") if opcion_seleccionada=0 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=10", conexion encon=1 end if if opcion_seleccionada=1 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=11", conexion encon=1 end if if opcion_seleccionada=2 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=12", conexion encon=1 end if if opcion_seleccionada=3 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=13", conexion encon=1 end if if opcion_seleccionada=4 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=14", conexion encon=1 end if if opcion_seleccionada=5 then resultado_buscar_nombre.Open "SELECT * FROM LOGOS_NOMBRES WHERE NOMBRE_PERSONA='" & nombre_seleccionado & "' AND ESCENARIO=15", conexion encon=1 end if end if if encon<>1 then bc=0 end if %>

Tu Nombre <%if bc=1 then%><%if not resultado_buscar_nombre.eof then%>" width="72" height="15"><%else%><%end if%><%else%><%end if%> <%if bc<>1 then%> Cómo conseguir tu logo? 1. Escribe 40 seguido de un espacio y la referencia ej: 2. Envia el mensaje al 5558 Coste del mensaje 150 pts. (0,9 Euros), Válido para Amena,Movistar y Vodafone <%end if%> <%if bc=1 then%> <%if not resultado_buscar_nombre.eof then%> Cómo conseguir tu logo? 1. Escribe 40 seguido de un espacio y la referencia ej:<%=resultado_buscar_nombre("COD_LOGO")%>" class="menutomas2"> 2. Envia el mensaje al 5558 Coste del mensaje 150 pts. (0,9 Euros), Válido para Amena,Movistar y Vodafone <%end if%><%end if%> <%if bc=1 then%> <%if resultado_buscar_nombre.eof then%> Lo sentimos pero el nombre solicitado no esta disponible. Comprueba que lo has escrito bien. <%end if%> <%end if%> Elije el Dibujo > Amor > Ying-Yang > Fashion > Muro > Trival > Terror Introduce tu Nombre: Si tu nombre no está disponible pídenoslo: Nombre: Email:

<%conexion.close%>