Her er koden:
<html>
<head>
<title>ADMINSEKTION!</title>
<link rel="STYLESHEET" type="text/css" href="../stylesheets/main.css">
</head>
<body bgcolor="#FF0000">
<%
' Tjek om username og password er korrekte
If Request.Form("username") = "hornborg.dk" AND Request.Form("password") = "oppus12345" or Session("login") = "JA" Then
' Hvis korrekt sættes session til JA
Session("login") = "JA"
Session.Timeout = 30
%>
<center>
<h2>LOGIN KORREKT!</a><br><hr>
<table border="0">
<tr><td>
<a href="start.asp?mode=opret">Opret nyheder</a> -
<a href="start.asp?mode=change">Ændr. i nyhederne</a> -
<a href="start.asp?mode=del">Slet nyheder</a> -
<a href="start.asp?mode=delall">Slet alle(PAS PÅ)</a>
</td>
</tr>
</table>
<hr>
<br>
</center>
<%
Else
'Hvis ikke sættes sessionen til NEJ
Session("login") = "NEJ"
Session.Timeout = 30
Response.Write "<center>"
Response.Write "<h1>FORKERT BRUGERNAVN ELLER ADGANGSKODE!!</h1>"
Response.Write "<a href=""index.asp"">TRYK HER FOR AT PRØVE IGEN</a>"
Response.Write "</center>"
End If
%>
<% If Request.Querystring("mode") = "opret" Then %>
<center>
<h2>indtast oplysningerne og tryk på opret</h2>
<form action="start.asp?mode=oprettet" method="post">
<a>Overskrift:</a><br>
<input type="text" name="navn"><br><br>
<a>Nyheden:</a><br>
<textarea rows="10" cols="15" name="nyhed"></textarea><br><br>
<a>Dit Navn:</a><br>
<input type="text" name="opretter"><br><br>
<input type="submit" value="Opret">
</form>
</center>
<% End If %>
<% If Request.Querystring("mode") = "del" Then %>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database/nyheder.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<center>
<h1>Nyheder:</h1><br><br>
</center>
<hr><br>
<ul>
<%
' SQL Forespørgsel
strSQL = "Select * from nyheder"
'Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
Do
Response.Write "<li><a href=""del.asp?del=" & rs("ID") & """>" & rs("navn") & "</a></li>"
rs.MoveNext
Loop While Not rs.EOF
else
Response.Write "<a>DER ER IKKE NOGEN NYHEDER AT SLETTE!!</a>"
end if
%>
</ul>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<hr><br>
<a>Tryk på linket for at slette!</a>
<% End If %>
<% If Request.Querystring("mode") = "delall" Then %>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/nyheder.mdb")
Conn.Open DSN
strSQL = "DELETE FROM nyheder"
Conn.execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<center>
<a>ALT ER NU SLETTET FRA DATABASEN!!!!</a>
</center>
<% End If %>
<% If Request.Querystring("mode") = "oprettet" then %>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/nyheder.mdb")
Conn.Open DSN
strSQL = "Insert into nyheder (navn, nyhed, opretter) values ('"
strSQL = strSQL & Request.Form("navn") & "', '"
strSQL = strSQL & Request.Form("nyhed") & "', '"
strSQL = strSQL & Request.Form("opretter") & "')"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<a>Nyheden er nu oprettet!</a><br><br><hr><br>
<% End If %>
<% If Request.Querystring("mode") = "change" Then %>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database/nyheder.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<center>
<h1>Ændr i nyhederne:</h1><br><br>
</center>
<hr><br>
<ul>
<%
' SQL Forespørgsel
strSQL = "Select * from nyheder"
'Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
Do
Response.Write "<li><a href=""start.asp?change=" & rs("ID") & """>" & rs("navn") & "</a></li>"
rs.MoveNext
Loop While Not rs.EOF
else
Response.Write "<a>DER ER IKKE NOGEN NYHEDER AT ÆNDRE!!</a>"
end if
%>
</ul>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<hr><br>
<a>Tryk på linket for at ændre!</a>
<% End If %>
<%
' SÅ KOMMER CHANGE DELEN!
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database/nyheder.mdb")
Conn.Open DSN
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from nyheder WHERE ID =" & Request.QueryString("change")
rs.Open strSQL, Conn, 1, 3
%>
<form action="start.asp?mode=changed" method="post">
Overskrift:<br>
<input type="text" name="navn" value="<%= rs("navn") %>"><br><br>
Nyheden:<br>
<textarea rows="10" cols="15" name="nyhed"><%= rs("nyhed") %></textarea><br><br>
Dit Navn:<br>
<input type="text" name="opretter" value="<%= rs("opretter") %>"><br><br>
<input type="submit" value="Ændr">
</form>
<body>
</body>
</html>
