<%@ Language=VBScript %> <% Response.Expires=0 %> <%Response.Buffer = True%> <% afiliadox=Request.QueryString("idafiliado") if afiliadox="" then afiliadox=272 end if%> <% codigo_cancion = Request.QueryString("cod_cancion") codigo_movil = Request.QueryString("tcodigo_movil") modelo_movil = Request.QueryString("tmodelo_movil") tipo_musica=Request.QueryString("tipo_musica") clase_musica=Request.QueryString("clase_musica") %> <% set cancion=Server.CreateObject("ADODB.Recordset") set titulo=Server.CreateObject("ADODB.Recordset") set buscar_instrucciones=Server.CreateObject("ADODB.Recordset") conexion.Open titulo.Open "SELECT * FROM TITULOS_CANCIONES WHERE COD_TIPO_MUSICA=" & tipo_musica & " AND COD_CLASE_MUSICA=" & clase_musica & " AND COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable if CInt(codigo_movil)=1 then cancion.Open "SELECT * FROM CANCIONES_PHILIPS WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_PHILIPS_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=2 then cancion.Open "SELECT * FROM CANCIONES_ERICSSON WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_ERICSSON_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=3 then if CInt(modelo_movil)=1 then cancion.Open "SELECT * FROM CANCIONES_SIEMENS WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable else cancion.Open "SELECT * FROM CANCIONES_SIEMENS_C35 WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable end if buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_SIEMENS_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=4 then cancion.Open "SELECT * FROM CANCIONES_ALCATEL WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_ALCATEL_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=5 then cancion.Open "SELECT * FROM CANCIONES_PANASONIC WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_PANASONIC_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=6 then cancion.Open "SELECT * FROM CANCIONES_NOKIA WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=7 then cancion.Open "SELECT * FROM CANCIONES_MOTOROLA WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=8 then cancion.Open "SELECT * FROM CANCIONES_SANSUNG WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_SANSUNG_SIMPLES",conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=9 then cancion.Open "SELECT * FROM CANCIONES_SAGEM WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable end if if CInt(codigo_movil)=10 then cancion.Open "SELECT * FROM CANCIONES_MAXON WHERE COD_CANCION=" & codigo_cancion,conexion,adOpenStatic,adCmdTable buscar_instrucciones.Open "SELECT * FROM INSTRUCCIONES_MAXON_SIMPLES",conexion,adOpenStatic,adCmdTable end if %>

Melodias

Tu melodía elegida es ... <%=titulo("TITULO")%> Sigue estas instrucciones para introducir esta melodía en tu teléfono móvil <%=cancion("CANCION")%> <%do while not buscar_instrucciones.eof%> <% buscar_instrucciones.movenext loop %> <%=buscar_instrucciones("num_instruccion")%><%=buscar_instrucciones("instruccion")%>

<%conexion.close%>