<%Response.Buffer = True%> <% afiliadox=Request.QueryString("idafiliado") if afiliadox="" then afiliadox=272 end if%> <% pass=Request.QueryString("fpass") num_telefono=Request.QueryString("cod_tel") num_telefono=Request.QueryString("fcod_tel") 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") ac=Request.QueryString("tac") producto=tipo_musica&clase_musica&codigo_cancion %> <% set acceso=Server.CreateObject("ADODB.Recordset") set afilia=Server.CreateObject("ADODB.Recordset") set entrada=Server.CreateObject("ADODB.Recordset") SET intro=Server.CreateObject("ADODB.Recordset") conexion.Open afilia.Open "SELECT * from afiliacion WHERE id_afil="& afiliadox,conexion,adOpenStatic,adCmdTable if ac=2 then codigo_producto=tipo_musica & clase_musica & codigo_cancion cod_cli=mid(codigo_producto,1,3) %> <% acceso.Open "SELECT * FROM ACCESO_MELODIA_PROVS WHERE telefono='" & num_telefono & "' AND ACTIVADO=1",conexion,adOpenStatic,adCmdTable if not acceso.Eof then DI=acceso("id_amp") entrada.CursorType = 1 entrada.LockType = 3 'SQL="UPDATE ACCESO_MELODIA_PROVS SET activado = 0 WHERE telefono = '" & num_telefono & "' AND ID_AMP="&DI&"" sql="SELECT * FROM ACCESO_MELODIA_PROVS WHERE id_amp="&DI&"" entrada.open sql,conexion afil=entrada("afiliado") entrada("activado")=0 entrada.update 'set entrada=Nothing sqlin="INSERT INTO CANCIONES_VISTAS(NUM_TEL,FECHA,COD_PRODUCTO,AFILIADO)VALUES ('" & num_telefono & "','"&now()&"','" & producto & "','" & afil & "')" conexion.execute sqlin Response.redirect "pop_melodias3.asp?idafiliado="&afiliadox&"&tcodigo_movil=" & codigo_movil & "&tmodelo_movil=" & modelo_movil & "&cod_cancion=" & codigo_cancion & "&tipo_musica=" & tipo_musica & "&clase_musica=" & clase_musica & "&tac=" & ac else Response.redirect "pop_melodias4.asp?idafiliado="&afiliadox&"&fcod_tel=" & cod_tel & "&tcodigo_movil=" & codigo_movil & "&tmodelo_movil=" & modelo_movil & "&cod_cancion=" & codigo_cancion & "&tipo_musica=" & tipo_musica & "&clase_musica=" & clase_musica end if end if %>

Melodias

Para grabarte la melodía que has elegido, sigue estas sencillas instrucciones: Envia un SMS con las letras 40 seguidas de un espacio y la palabra ACTIVAR al número 5558. Acto seguido recibirás en tu móvil la confirmación de que tu número de teléfono ha sido activado para la recepción de tu melodía. (Sin esta previa activación, no podrás acceder a este servicio) Introduce tu número de telefono y haz click en continuar. !En un instante te habrás grabado tu canción favorita! Número de teléfono   <%conexion.close%>