---
title: "Uppdatera meny utan login-check"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108100-uppdatera-meny-utan-login-check"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "zlakker"
published: "2004-07-28T14:39:01.000Z"
updated: "2004-07-28T20:52:12.000Z"
replies: 3
views: 310
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/108100-uppdatera-meny-utan-login-check"
---
# Uppdatera meny utan login-check
## #1 — zlakker, 2004-07-28T14:39Z
Jag har gjort en sida med login mm.
På sidan finns en meny(hittat färdigt script). Jag har plockat bort lite kod eftersom det är så mkt.
Själva prolemet är att när jag klickar på en menylänk laddar den om sidan men då får jag att det är fel användarnamn.
Är det loginscriptet som är dåligt eller kan man ändra på något i menyn eller lägga det på något annat sätt.
Just nu ligger menyn på sidan via en #include.
Tack på förhand
```
<% IF Request.Querystring("link") = "fakta" THEN %>
<%
fakta = REPLACE(Request.Servervariables("QUERY_STRING"),"link=fakta","link=fakta")
telefoner = REPLACE(Request.Servervariables("QUERY_STRING"),"link=fakta","link=telefoner")
tjanster = REPLACE(Request.Servervariables("QUERY_STRING"),"link=fakta","link=tjanster")
ovrigt = REPLACE(Request.Servervariables("QUERY_STRING"),"link=fakta","link=ovrigt")
%>
<%ELSE%>
<% IF Request.Querystring("link") = "telefoner" THEN %>
<%
fakta = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=fakta")
telefoner = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=telefoner")
tjanster = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=tjanster")
ovrigt = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=ovrigt")
%>
<%ELSE%>
<%
fakta = "link=fakta&" & Request.Servervariables("QUERY_STRING")
telefoner = "link=telefoner&" & Request.Servervariables("QUERY_STRING")
tjanster = "link=tjanster&" & Request.Servervariables("QUERY_STRING")
ovrigt = "link=ovrigt&" & Request.Servervariables("QUERY_STRING")
%>
<%END IF%>
<%END IF%>
<%END IF%>
<%END IF%>
<% IF Request.Querystring("link") = "fakta" THEN %>
?<%=request.servervariables("QUERY_STRING")%>">Fakta
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %>
?link=fakta">Fakta
<% ELSE %>
?<%=fakta%>">Fakta
<% END IF %>
<% END IF %>
<% IF Request.Querystring("link") = "fakta" THEN %>
- Nyheter
- Bildarkivet
- Operatörer
- Priser
- Strålning
- WAP
<% END IF %>
<% IF Request.Querystring("link") = "telefoner" THEN %>
?<%=request.servervariables("QUERY_STRING")%>">Telefoner
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %>
?link=telefoner">Telefoner
<% ELSE %>
?<%=telefoner%>">Telefoner
<% END IF %>
<% END IF %>
<% IF Request.Querystring("link") = "telefoner" THEN %>
- Hetast just nu
- Nostalgi tripp
- Telefonarkivet
<% END IF %>
```
Sälva koden på sidan ser ut som följande:
```
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/dbse.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>
<% '==================================================== %>
<% ' Kontrollera användarnamn, lösenord och behörighet %>
<% '==================================================== %>
<% Visa = "SELECT * FROM tblAccess"
RecSet.Open Visa, Connect, 3, 3
X = FALSE
Do Until X = TRUE OR RecSet.EOF
If RecSet("Username") = Request.Form("Username") Then
X = TRUE
Exit Do
End If
RecSet.MoveNext
Loop
If X = TRUE Then
Y = FALSE
Do Until Y = TRUE OR RecSet.EOF
If RecSet("Password") = Request.Form("password") Then
Y = TRUE
Exit Do
End If
RecSet.MoveNext
Loop
End If
If X = FALSE Then
Response.Write "Du har anget ett felaktigt användarnamn!"
ElseIf Y = FALSE Then
Response.Write "Du har anget ett felaktigt lösenord!"
End If
If X = TRUE AND Y = TRUE Then
Session("username") = Request.Form("username")
Session("password") = Request.Form("password") %>
<% '==================================================== %>
<% ' Script för inloggade med A-access %>
<% '==================================================== %>
<% If RecSet("Access") = "A" Then
Session("access") = "A" %>
<% End If %>
<% '==================================================== %>
<% ' Script för inloggade med D-access %>
<% '==================================================== %>
<% If RecSet("Access") = "D" Then
Session("access") = "D" %>
<% Response.Redirect "d-normal.asp" %>
<% '=Session("Password") %>
<% '=Session("Username") %>
Du är nu inloggad med D-access!
<% Else %><% End If
End If
RecSet.Close
Connect.Close %>
```
Permalänk: https://www.webforum.nu/p/108100
## #2 — Compusa, 2004-07-28T16:08Z
Skickar du med användarnamn & lösenord via sessioner? Som jag kan se det beror felet på att Request.form("username") och password inte innehåller något värde. Om du kör en logincheck så är sessioner att rekomendera. Det verkar som att du kör rutinen med Request.Form
Permalänk: https://www.webforum.nu/p/1395400
## #3 — @nders, 2004-07-28T18:20Z
Det första du ska göra, är att byta bort IDGs hemska inloggningsscript. Det är så hemskt, så hemskt, så hemskt! Det är snudd på lika osäkert som att inte ha något överhuvudtaget.
Permalänk: https://www.webforum.nu/p/1395450
## #4 — zlakker, 2004-07-28T20:52Z
Hehe ok ska fixa ett annat isället :)
Permalänk: https://www.webforum.nu/p/1395505
---
Tråden på webben: https://www.webforum.nu/amne/asp/108100-uppdatera-meny-utan-login-check