www.HighRiseTimes.dk

<% strFarve = "FFFFFF" %>

| crew: |

<% 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 "opret" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If %>
Tilføj en
til crewet:
HH Navn: (a-å, 0-9)
Kode: (max 20 tegn)

| tilføj til crew |

<% Case "adminlist" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If %>

| Opretning af crew-medlemmer, her!

| Sletning af crew-medlemmer, her!

<% Case "opretcrew" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Insert into nyheder (" strSQL = strSQL & "alder, " strSQL = strSQL & "hhnavn, " strSQL = strSQL & "andersen, " strSQL = strSQL & "klasse, " strSQL = strSQL & "dato, " strSQL = strSQL & "sl) " strSQL = strSQL & "values( " strSQL = strSQL & "'0', " strSQL = strSQL & "'" & Server.HTMLEncode(Request.Form("hhnavn")) & "', " strSQL = strSQL & "'" & Request.Form("kode") & "', " strSQL = strSQL & "'" & Request.Form("klasse") & "', " strSQL = strSQL & "'" & strLigeNu & "', " strSQL = strSQL & "'" & strLigeNu & "')" Conn.Execute(strSQL) Response.Write "
" & Request.Form("hhnavn") & " (" & Request.Form("klasse") & ") blev tilføjet til crewet med koden " & Request.Form("kode") & "." Conn.Close Set Conn = Nothing %> <% Case "slet" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Delete * From nyheder Where Id = " & Request.Querystring("id") Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect "crew.asp?side=sletliste" %> <% Case "sletliste" Response.Write "

Stilling: | Navn: |  |
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder" Set rs = Conn.Execute(strSQL) Do hhnavn = rs("hhnavn") Response.Write "

" & rs("klasse") & "

" & hhnavn & "

| se profil |

| slet |

" rs.MoveNext Loop While Not rs.EOF Response.Write "

" Conn.Close Set Conn = Nothing %> <% Case Else Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where klasse = 'Redaktør'" Set rs = Conn.Execute(strSQL) Response.Write "

Redaktøre: | " Do Response.Write "" & rs("hhnavn") & " " rs.MoveNext Loop While Not rs.EOF Response.Write "

" strSQL = "Select * from nyheder Where klasse = 'Grafiker'" Set rs = Conn.Execute(strSQL) Response.Write "

Grafikere: | " Do Response.Write "" & rs("hhnavn") & " " rs.MoveNext Loop While Not rs.EOF Response.Write "

" strSQL = "Select * from nyheder Where klasse = 'Chef-reporter'" Set rs = Conn.Execute(strSQL) Response.Write "

Chef-reporter: | " Do Response.Write "" & rs("hhnavn") & " " rs.MoveNext Loop While Not rs.EOF Response.Write "

" strSQL = "Select * from nyheder Where klasse = 'Reporter'" Set rs = Conn.Execute(strSQL) Response.Write "

Reportere: | " Do Response.Write "" & rs("hhnavn") & " " rs.MoveNext Loop While Not rs.EOF Response.Write "

" strSQL = "Select * from nyheder Where klasse = 'Programmør'" Set rs = Conn.Execute(strSQL) if not (rs.EOF or rs.BOF) then Response.Write "

Ejere: | " Do Response.Write "" & rs("hhnavn") & " " rs.MoveNext Loop While Not rs.EOF Response.Write "

" Else End if Conn.Close Set Conn = Nothing End Select %>