<% select case session("behorighet") case "user" %>

Du är inloggad som <%=Session("anvandarnamn")%>.

IP: <%=Request.ServerVariables("REMOTE_ADDR")%>

<%Response.Buffer=True Session.Lcid = 1053 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../db/db_ver1.0.mdb")%> <%If Request.QueryString("do") = "" Then%> <%If Request.Querystring("action")= "" Then%> <%Set RecSet = Server.CreateObject("ADODB.Recordset") Const perSida1 = 50 Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 Else sida = Sidan End If With RecSet .CursorLocation = 3 .CacheSize = perSida1 End With SQL = "SELECT * FROM nyhetartikel WHERE skribent = '" & Session("anvandarnamn") & "' ORDER BY DATUM DESC" RecSet.Open SQL, Conn If RecSet.EOF Then%> Här var det tomt..

» Lägg till ett projekt <%Else%> <%With RecSet .MoveFirst .PageSize = perSida1 .AbsolutePage = sida End With Sidor = RecSet.PageCount Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize%>

<%=FormatDateTime(RecSet("Datum"),2)%>

<%=RecSet("typ")%>

<%If Len(RecSet("rubrik")) > 50 Then%> <%=Left(RecSet("rubrik"),50)%>... <%Else%> <%=RecSet("rubrik")%> <%End If%>

" title="Ändra">Ä " title="Ta bort" onClick="return confirm('Radera <%=RecSet("rubrik")%> ur databasen?');">R

<%Count = Count + 1 RecSet.MoveNext Loop If Sidor > 1 Then%>
Sida: <%If Sidor <> 1 Then For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%> <%=Sid%> <%Else%> <%=Sid%> <%End If%> <%Next%> <%End If End If%> <%If Session("mess") <> "" Then%> <% Response.Write Session("mess") Session("mess") = "" %> <%End If%>

» Lägg till ett projekt <%RecSet.Close Set RecSet = Nothing End If End If If Request.Querystring("action") = "add" Then%>

Projektets namn:

Användarnamn:

Typ:

Text: (Bilder som infogas i texten får vara MAX 590 pixlar bred)

<%End If If Request.Querystring("action")= "change" Then Set RecSet = Conn.Execute("SELECT * FROM nyhetartikel WHERE id="& Request.Querystring("id"))%> " name="texten">

Projektets namn:
" size="50">

<% Function IsSelected(strUno, strDos) strUno = LCase(trim(strUno)) strDos = LCase(trim(strDos)) If strUno = strDos Then IsSelected = " selected=""selected""" End Function %> Typ:

Datum: (Datumet måste skrivas enligt följande format: "2003-12-08 16:58:00")
">

Text: (Bilder som infogas i texten får vara MAX 590 pixlar bred)

<%RecSet.Close Set RecSet = Nothing End If If Request.Querystring("action")= "spara" Then Skribent = Replace(Request.Form("skribent"), "'", "''") Rubrik = Replace(Request.Form("rubrik"), "'", "''") Typ = Replace(Request.Form("typ"), "'", "''") Texten = Replace(Request.Form("texten"), "'", "''") Conn.Execute("INSERT INTO nyhetartikel(skribent,rubrik,typ,texten) VALUES('" & skribent & "','" & rubrik & "','" & typ & "','" & texten & "')") Response.Redirect "admin_ny_art_akt_projekt.asp" End If If Request.Querystring("action") = "andrat" Then Rubrik = Replace(Request.Form("rubrik"), "'", "''") Typ = Replace(Request.Form("typ"), "'", "''") Texten = Replace(Request.Form("texten"), "'", "''") Datum = Replace(Request.Form("datum"), "'", "''") Conn.execute("Update nyhetartikel Set Rubrik='" & rubrik & "', Typ='" & typ & "', Texten='" & texten & "', Datum='" & datum & "' Where id = "& Request.Querystring("id")) Response.Redirect "admin_ny_art_akt_projekt.asp" End If If Request.Querystring("action") = "delete" Then Conn.Execute("Delete From nyhetartikel Where id="& Request.Querystring("id")) Response.Redirect "admin_ny_art_akt_projekt.asp" End If End If Conn.Close Set Conn = Nothing%>

<% case "admin" %>

Du är inloggad som <%=Session("anvandarnamn")%>.

IP: <%=Request.ServerVariables("REMOTE_ADDR")%>

<%Response.Buffer=True Session.Lcid = 1053 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../db/db_ver1.0.mdb")%> <%If Request.QueryString("do") = "" Then%> <%If Request.Querystring("action")= "" Then%> <%Set RecSet = Server.CreateObject("ADODB.Recordset") Const perSida1 = 50 Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 Else sida = Sidan End If With RecSet .CursorLocation = 3 .CacheSize = perSida1 End With SQL = "SELECT * FROM nyhetartikel WHERE typ = 'projekt' ORDER BY DATUM DESC" RecSet.Open SQL, Conn If RecSet.EOF Then%> Här var det tomt..

» Lägg till ett projekt <%Else%> <%With RecSet .MoveFirst .PageSize = perSida1 .AbsolutePage = sida End With Sidor = RecSet.PageCount Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize%>

<%=FormatDateTime(RecSet("Datum"),2)%>

<%=RecSet("typ")%>

<%If Len(RecSet("rubrik")) > 50 Then%> <%=Left(RecSet("rubrik"),50)%>... <%Else%> <%=RecSet("rubrik")%> <%End If%>

" title="Ändra">Ä " title="Ta bort" onClick="return confirm('Radera <%=RecSet("rubrik")%> ur databasen?');">R

Projektets namn:

Användarnamn:

Typ:

Text: (Bilder som infogas i texten får vara MAX 590 pixlar bred)

<%End If If Request.Querystring("action")= "change" Then Set RecSet = Conn.Execute("SELECT * FROM nyhetartikel WHERE id="& Request.Querystring("id"))%> " name="texten">

Projektets namn:
" size="50">

<% Function IsSelected(strUno, strDos) strUno = LCase(trim(strUno)) strDos = LCase(trim(strDos)) If strUno = strDos Then IsSelected = " selected=""selected""" End Function %> Typ:

Datum: (Datumet måste skrivas enligt följande format: "2003-12-08 16:58:00")
">

Text: (Bilder som infogas i texten får vara MAX 590 pixlar bred)