<% Session("auth") = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
if request("songid")<>"" then
set rs=server.createobject("adodb.recordset")
set Nrs=server.createobject("adodb.recordset")
id=request("songid")
sql="select * from Musiclist where id in (" & id & ")"
rs.open sql,conn,1,3
while not rs.eof
ListenUrl=rs("ListenUrl")
LS_ID=rs("LS_ID")
rs("Hits")=rs("Hits")+4
source=ListenUrl
if LS_ID<>"" then
sql="select ListenServerUrl from DJServer where LServerID="&LS_ID
Nrs.open sql,conn,1,1
ListenServerUrl=Nrs("ListenServerUrl")
source=ListenServerUrl+ListenUrl
Nrs.close
end if%>
<%
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing
%>
