Problemmer med min beskyttelse af mit nyhedssystem login /sessio
hej jeg har et problem med min beskyttelse ved mit nyhedsystem.Problemt besåtr i at jeg har en kode øverst på siden som skal beskytte siden så det kun er admin der kan komme ind. Men hver gang jeg er logget ind som admin og prøver at oprette en nyhed og jeg trykker på opret i min formular (submit) ryger jeg ud af admin border og ender på forsiden og nyheden er ikke blevet oprettet...
Scriptet i toppen af siden ::
<%
if isEmpty (session("id")) Then
Session.Timeout = 20
Session.Contents.RemoveAll()
Response.Redirect("Default.asp")
End if
%>
Scriptet til min admin login ::
<!--#include file="../includes/inc_forbindelse.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="../Layout/design.css" rel="stylesheet" type="text/css">
</head>
<%
If Request.QueryString("action") = "login" Then
strUID = Trim(Replace(Request.Form("Brugernavn"),"'","''"))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'","''"))
If (Len(strUID) > 0) And (Len(strPWD) > 0) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM protect WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')", database
If (Not rs.BOF) And (Not rs.EOF) Then
intUID = rs("id")
intTRAN = rs("transfer")
Else
strERR = "Access Denied"
End If
If Len(intUID) > 0 Then
Session("id") = intUID
Response.Redirect intTRAN
End If
Else
strErr = "Access Denied"
End If
If Len(strErr) > 0 Then
strErr = "<p><font color=""red"">" & strErr & "</font></p>"
End If
End If
%>
<!-------------------------------------------------------- Login formularen ------------------------------------------------------------>
<form method="post" action="default.asp?action=login">
<table class="Text" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" class="Overskrift">Login ::</td>
</tr>
<tr>
<td>
<a href="reg.asp"><img style="margin-top:2px;" src="../layout/register.gif" border="0"></a>
</td>
<td>
<a href="#"><img style="margin-top:2px;" src="../layout/password.gif" border="0"></a>
</td>
</tr>
<tr>
<td width="50%">ID:</td>
<td width="50%"><input class="logFelt" type="text" name="Brugernavn"></td>
</tr>
<tr>
<td width="50%">Pass:</td>
<td width="50%"><input class="logFelt" type="password" name="Adgangskode"></td>
</tr>
<tr>
<td colspan="2" align="right"><input class="logGo" type="submit" value="Login" name="Action"></td>
</tr>
<tr>
<td colspan="2">
<%=strErr%>
</td>
</tr>
</table>
</form>
</body>
</html>
Nyheds system script ::
<table class="matchesText" border="0" width="487" style="float: center; margin-top:6px;" cellpadding="0" cellspacing="1">
<tr>
<td>
<% If Request("action") = "" then %>
<Form method="post" action="am_news.asp?action=skriv">
</td>
<tr>
<td>Overskrift:</td>
<td><input class="logFelt" type="text" name="overskrift"></td>
</tr>
<tr>
<td>Name:</td>
<td><input class="logFelt" type="text" name="Navn"></td>
</tr>
<tr>
<td>Tekst:</td>
<td><textarea class="textArea" cols="40" rows="10" name="text"></textarea></td>
</tr>
<tr>
<td>Billedefilnavn:</td>
<td><input class="logFelt" type="text" name="billede"></td>
</tr>
<tr>
<td><input class="skrivGo" type="submit" name="Submit" value="Opdater">
</form>
</td>
</tr>
<tr>
<!-- her bliver slet includet -->
<td colspan="2">
<!--#include file="../includes/inc_slet.asp" -->
</td>
<% End if %>
<!----------------------- Start på script til indskrivning i database ---------------------->
<%
If Request("action") = "skriv" then
%>
<!--#include file="../includes/inc_forbindelse.asp" -->
<%
Set news = Server.CreateObject("ADODB.Recordset")
news.Open "news", database, 2, 2
News.AddNew
news("overskrift") = Request.Form("overskrift")
news("Navn") = Request.Form("Navn")
news("text") = Request.Form("text")
news("billede") = Request.Form("billede")
news("dato") = Date()
news.Update
Response.Redirect("am_news.asp")
%>
<% End If %>
</tr>
</table>
Håber at der er nogle af jer der vil prøve at se om i kan finde problemmet med scriptet så jeg kan få det til at virke. Det er meget vigtig da det er et eksamens projekt...
