Distat. Tips på juste politisk musik.

<% Option Explicit %> <% Dim Connect Dim execTimeout, execCount execTimeout=60 execCount=1 Server.ScriptTimeout=execCount*execTimeout+5 Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=g:\home\socialist.nu\html\data\musikdata.mdb") Dim language language="0" language=request.querystring("lang") language=cInt(language) %> Distat. Tips på juste politisk musik.

<% If language=1 then response.write ("SVENSKA - ENGELSKA - ÖVRIGA SPRÅK") elseif language=2 then response.write ("SVENSKA - ENGELSKA - ÖVRIGA SPRÅK") elseif language>2 then response.write ("SVENSKA - ENGELSKA - ÖVRIGA SPRÅK") else response.write ("Nu blev det nåt fel.") end if %>

<% Dim strQuery 'Dim rsInfo strQuery = "SELECT * FROM Tracks WHERE Lang=" & language & " AND Inskickad='Micke' ORDER BY Artist" 'Set rsInfo = Connect.Execute(strQuery) If language>=1 then Dim rowcolor rowcolor=1 ' START NYA Dim mypage, mypagesize, mySQL, Sida mypage=request("sid") If mypage="" then mypage="1" end if Sida=mypage 'mypagesize=request("pagesize") 'If mypagesize="" then mypagesize=15 'end if 'mySQL=request("SQLquery") 'IF mySQL="" THEN mySQL=strQuery 'END IF Dim rstemp, tempSQL, badquery set rstemp=Server.CreateObject("ADODB.Recordset") rstemp.cursorlocation=aduseclient rstemp.cachesize=5 tempSQL=lcase(mySQL) badquery=false IF instr(tempSQL,"delete")>0 THEN badquery=true END IF IF instr(tempSQL,"insert")>0 THEN badquery=true END IF IF instr(tempSQL,"update")>0 THEN badquery=true END IF If badquery=true THEN response.write "Not a SELECT Statement
" response.end END IF Dim maxpages, maxrecs, howmanyfields, howmanyrecs rstemp.open mySQL,Connect rstemp.movefirst rstemp.pagesize=mypagesize maxpages=cint(rstemp.pagecount) maxrecs=cint(rstemp.pagesize) rstemp.absolutepage=mypage howmanyrecs=0 howmanyfields=rstemp.fields.count -1 'response.write "Page " & mypage & " of " & maxpages & "
" 'Put Headings On The Table of Field Names %> <% ' Now loop through the data DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs %> ', 'blafart')" onMouseOut="changeImages('ruta_<% =rstemp("ID") %>', 'stopp')"<% if rowcolor=1 then response.write ("BGCOLOR='DEE5EB'>") rowcolor=0 else response.write (">") rowcolor=1 end if %> <% rstemp.movenext howmanyrecs=howmanyrecs+1 LOOP response.write "

	Titel	Artist	Kom.	Från

" SRC="bilder/tom.gif" WIDTH=18 HEIGHT=7 BORDER=0 ALT="" HSPACE=0 VSPACE=3>	" onMouseOver="changeImages('ruta_<% =rstemp("ID") %>', 'gronfart')" onMouseOut="changeImages('ruta_<% =rstemp("ID") %>', 'stopp')"> <% =rstemp("Titel") %>	<% =rstemp("Artist") %>	<% if rstemp("Antalk")=0 then response.write ("Inga") else response.write (rstemp("Antalk")) end if %>	<% =rstemp("Inskickad") %>

" ' Now make the page _ of _ hyperlinks Call PageNavBar sub PageNavBar() ' Thanks to Jeff Emrich %> <% Dim pad, scriptname, counterstart, counterend, ref, counter pad="" scriptname=request.servervariables("script_name") response.write "" response.write "" response.write "

" response.write "" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref="First : " Response.Write ref ref="Previous " Response.Write ref end if Response.Write "[" for counter=counterstart to counterend If counter>=10 then pad="" end if if cstr(counter) <> Sida then ref="" & pad & counter & "" else ref="" & pad & counter & "" end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" if counterend <> maxpages then ref=" Next" Response.Write ref ref=" : Last" Response.Write ref end if ' Mickes extra Sida=Int(Sida) if Sida

Nästa" Response.Write ref end if response.write "
" response.write "

" end sub %>

<% Connect.Close Set Connect = Nothing %>