www.HighRiseTimes.dk

<% strFarve = "FFFFFF" %>

| galleri: |

<% Response.Write "

Vores galleri består nu af mange dele.
Først en oversigt, hvor der vises 10 billeder på hver side. Så er der en informations-side, hvor der kan læses mere om enkelte billeder. Til sidst har vi lavet en side, hvor det er muligt at skrive forslag eller kritik til de enkelte billeder.
Rul helt ned i bunden af siden for at skifte side.

" if request.QueryString("side") = "adminlist" then response.write "

admin | søg | vis alle nyheder | start

" elseif request.QueryString("side") = "info" or request.QueryString("side") = "forslag" then response.write "

" else response.write "

" end if %>

<% 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) strMode = Request.QueryString("side") Select Case strMode Case "info" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/galleri.mdb") Conn.Open DSN strSQL = "Select * From gb Where id = " & Request.QueryString("id") Set rs = Conn.Execute(strSQL) pic = rs("pic") besked = rs("besked") Response.Write "Billede-information
Du har valgt at læse mere om " & pic & ". Hvis du mener, at idt indeholder ukorrekt eller for lidt information, er du velkommen til at komme med forslag.

| " & rs("navn") & ":

" Response.Write "

| " & besked & "

" Response.Write "
Billede-kilde: http://highrisetimes.dk/galleri/images/" & pic & "
Sidst opdateret: " & rs("dato") & "
Informationen til billedett er på " & len(besked) & " tegn!" Conn.Close Set Conn = Nothing %> <% Case "send" if len(session("com")) = 0 then response.redirect "../unlogged.asp" else if len(Server.HTMLEncode(Request.Form("email"))) > 0 AND InStr(1, Server.HTMLEncode(Request.Form("email")), "@", 1) = 0 Then Response.Write "OBS: Din email er ugyldig." elseif len(Server.HTMLEncode(Request.Form("email"))) > 0 AND InStr(1, Server.HTMLEncode(Request.Form("email")), ".", 1) = 0 Then Response.Write "OBS: Din email er ugyldig." elseif len(Server.HTMLEncode(Request.Form("email"))) > 0 AND len(Server.HTMLEncode(Request.Form("email"))) < 6 Then Response.Write "OBS: Din email er ugyldig." elseif Server.HTMLEncode(Request.Form("email")) = "" then Response.Write "OBS: Du skal indtaste din email." elseif Server.HTMLEncode(Request.Form("besked")) = "" then Response.Write "OBS: Du skal skrive dit forslag eller kritik." else Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/system.mdb") Conn.Open DSN strSQL = "Select * From nyheder Where id = " & session("com") Set rs = Conn.Execute(strSQL) strSkriveNavn = rs("hhnavn") set jmail = server.createobject("JMAIL.SMTPMail") jMail.ServerAddress = "mail5.wannafind.dk" jMail.sender = strSkriveNavn jMail.sender = Request.Form("email") jMail.AddRecipient "raz@highrisetimes.dk" jMail.Subject = "GALLERI NUMMER " & Request.QueryString("id") jMail.Body = Server.HTMLEncode(Request.Form("besked")) & "....
afsender: " & strSkriveNavn & "
email: " & Request.Form("email") jMail.Priority = 3 jMail.execute Conn.Close Set Conn = Nothing Response.Redirect "index.asp" end if end if %> <% Case "forslag" %> Billede-information
Hvis du mener, at billedet indeholder ukorrekt eller for lidt information, er du velkommen til at komme med forslag.
Bemærk: Du skal være logget ind for at skrive forslag.
Din email:
Forslag eller kritik:

| ok |

<% Case "gallerisoeg" %> Søg på en
som
:

| søg |

<% Case "gallerisog" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/galleri.mdb") Conn.Open DSN If Request.Form("navn") = "" Then Response.Redirect "index.asp?side=gallerisoeg" Else Response.Write "Du søgte på " & Server.HTMLEncode(Request.Form("navn")) & ", som gav følgende resultat:
" if request.form("select") = "ligmed" then strSQL = "Select * From gb Where " & Server.HTMLEncode(request.form("slags"))& " = '" & request.form("navn") & "' Order by id desc" elseif request.form("select") = "startermed" then strSQL = "SELECT * FROM gb WHERE (" & Server.HTMLEncode(request.form("slags"))& " LIKE '" & request.form("navn") & "%') Order by id desc" elseif request.form("select") = "indeholder" then strSQL = "Select * From gb where (" & Server.HTMLEncode(request.form("slags")) & " like '%" & request.form("navn") & "%') Order by id desc" end if Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do pic = rs("pic") Response.Write "

" & rs("navn") & "
"& left(rs("besked"),100) & ".....

| læs mere |

" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing End if %> <% Case Else 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/galleri.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 gb Where pic = '" & Image.Name & "'" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Response.Write "

" & rs("navn") & "
"& left(rs("besked"),100) & ".....

| læs mere |

" Else Response.Write "

| Ukendt Der blev ikke fundet nogen billed-information til det pågældende billede!

" 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 Response.Write "" 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 "
" %> <% End Select %>