<%dim video video=request.querystring("file") %> <% Dim adoCon 'Database Connection Variable Dim rsConfiguration 'Holds the configuartion recordset Dim strCon 'Holds the Database driver and the path and name of the database Dim strSQLvideo, strSQLaudio, strSQLNoticia , strSQLaudio2 'Holds the SQL query for the database dim rsvideo, rsaudio, rsaudio2, rsnoticia dim whtConn 'Create a connection odject Set adoCon = Server.CreateObject("ADODB.Connection") '------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below -------------- strCon = conexion '********************************************************************** Set rsaudio = Server.CreateObject("ADODB.Recordset") 'Clean up 4 straudio = "SELECT * FROM videos WHERE priority='2' ORDER BY file DESC LIMIT 10" rsaudio.Open straudio, strCon, 3,3 if request.QueryString("file")>"" then Set rsaudio2 = Server.CreateObject("ADODB.Recordset") 'Clean up straudio2 = "SELECT file,foto FROM videos WHERE file='"&request.QueryString("file")&"'" rsaudio2.Open straudio2, strCon, 3,3 end if %> <%if request.QueryString("file")>"" then%>

" width="162" height="85" > <%=rsaudio2("Description")%> <%else%>	" width="162" height="85"> <%=rsaudio("Description")%> <%end if%>
<%if request.QueryString("file")>"" then%> <%else%> <%end if%>
<%dim contador contador = 0 If NOT rsaudio.EOF Then rsaudio.movefirst while not rsaudio.eof contador=contador+1%> <%=contador%> &fecha=<%=rsaudio("fecha")%>" id='audio<%=contador%>'><%=rsaudio("Description")%> <%rsaudio.movenext wend End If %>