www.HighRiseTimes.dk

<% strFarve = "FFFFFF" %>

| baggrunde: |

<% response.write "

" %>

<% MyDay = Day(Now) MyMonth = Month(Now) MyHour = Hour(Now) MyMinute = Minute(Now) MySecond = Second(Now) If len(MyDay) < 2 then strD = "0" else strD = "" end if If len(MyMonth) < 2 then strM = "0" else strM = "" end if If len(MyHour) < 2 then strH = "0" else strH = "" end if If len(MyMinute) < 2 then strMi = "0" else strMi = "" end if If len(MySecond) < 2 then strS = "0" else strS = "" end if strLigeNu = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now) & " " & strH & Hour(Now) & ":" & strMi & Minute(Now) & ":" & strS & Second(Now) ImageDir = "images/" Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir)) Set objFiles = objFolder.Files intPage = Request.Querystring("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If intPageSize = 10 intImgCount = objFiles.Count intPageCount = -Int(-(intImgCount/intPageSize)) Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../../database/falske.mdb") Conn.Open DSN For Each Image In objFiles intFile = intFile +1 If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then strSQL = "Select * From falske Where pic = '" & Image.Name & "'" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Response.Write "

| " & rs("navn") & " Baggrunden er designet af " & rs("forfatter") & ". Baggrunden blev tilføjet den " & rs("dato") & "

" Else Response.Write "

| Ukendt Der blev ikke fundet nogen information om billedet.

" End if End if Next Conn.Close Set Conn = Nothing %> <% Response.Write "
" & intImgCount & " billeder i alt, viser side " & intPage & " af " & intPageCount & "..
" strScriptName = Request.Servervariables("ScriptName") If intPage > 1 Then Response.Write " " Else End if For i = 1 To intPageCount If i < 10 Then Response.Write "" & i & " " Else Response.Write "" & i & " " End if Next Response.Write " " Set objFS = Nothing Response.write "
" %>