ret din login.asp til:
<%
if request.form("send") <> "" then
If Request.Form("login") = "user" AND Request.Form("password") = "1234" Then
Session("login") = "JA"
Session.Timeout = 30
response.redirect("tilfojnyhed.asp")
Else
Response.redirect("login.asp?msg=Der skete en fejl ved login<br>Prøv igen<br><br>")
end if
end if
%>
<b>Login til nyhed - © Nicolaj Buch 2003</b>
<form method="post" action="login.asp">
<br><br><% Response.Write Request.Querystring("msg") %>
Brugernavn:
<br>
<input type="text" name="login">
<br><br>
Password:
<br>
<input type="text" name="password">
<br><br>
<input type="submit" value=" login " name="send">
</form>
<b>Dette loginsystem er lavet af Nicolaj Buch © 2003</b>
derefter retter du din tilfoejnyhed.asp til:
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head>
<body>
<FORM METHOD="POST" ACTION="tilfojnyhed.asp?mode=opret" name="form">
<% if Request.Querystring("mode") = "opret" then
if len(request.form("titel")) < 1 then
Response.Redirect("tilfojnyhed.asp?titel=Titel mangler!")
end if
if len(request.form("navn")) < 1 then
Response.Redirect("tilfojnyhed.asp?navn=`Skrevet af´ er ikke blevet udfyldt!")
end if
if len(request.form("text")) < 1 then
Response.Redirect("tilfojnyhed.asp?text=Der er ingen tekst!")
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From tabel"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs("titel") = Server.HTMLEncode(Request("titel"))
rs("navn") = Server.HTMLEncode(Request("navn"))
rs("text") = Server.HTMLEncode(Request("text"))
rs("dato") = Now()
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Response.Redirect("tilfojnyhed.asp?msg=Nyhed oprettet korrekt!<br><br>")
end if %>
<b>Opret nyhed med beskyttelse af password<br>© Nicolaj Buch 2003</b>
<br>
<br>
<% Response.Write Request.Querystring("msg") %>
Titel: <% Response.Write Request.Querystring("titel") %>
<br>
<input type="text" name="titel" size="20" tabindex="2" maxlength="50" autocomplete="off">
<br>
<br>
Skrevet af: <% Response.Write Request.Querystring("navn") %>
<br>
<input type="text" name="navn" size="20" tabindex="2" maxlength="50" autocomplete="off">
<br>
<br>
Tekst: <% Response.Write Request.Querystring("text") %>
<br>
<textarea class=forms name="text" cols="50" rows="30"></textarea>
<br>
<br>
<input type="Submit" value=" Opret Nyhed " name="Submit" tabindex="3">
</form>
<br><br>
Gå til nyhedsside ved at trykke <a target="_blank" href="news.asp">HER</a>
<br>
<%
Response.Write "Log ud af system ved at trykke <a href='tilfojnyhed.asp?action=logout'>HER</a>"
If Request.Querystring("action") = "logout" Then
Session.Abandon
Response.Redirect("login.asp?msg=Du er nu logget af systemet!<br><br>")
End If
%>
</body>
</html>
Dette virker hos mig...
Har ikke haft mulighed for at teste databasen da du ikke lagde den med i zip filen...
Slettet bruger
Slettet bruger
Opret
Preview
