---
title: "Behöver hjälp."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/85472-behöver-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Biasse"
published: "2003-09-07T17:08:03.000Z"
updated: "2003-09-07T20:00:11.000Z"
replies: 4
views: 248
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/85472-behöver-hjälp"
---

# Behöver hjälp.

## #1 — Biasse, 2003-09-07T17:08Z

Har fått hjälp med ett kontroll script för min inloggning men har lite till kvar att göra. Den här delen bestämmer en vis sida åt mig men hur gör jag för att få den att godkänna fler urler samtidigt?
index2.asp + några till??
\____________________________\_-
If RecSet("Info")="adm" Then
            strPage="indexAdmin.asp"
        Else
            strPage="index2.asp"
        End If
\____________________________\_

Hela scriptet:
\<%
Session.TimeOut=120
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/admin.mdb")&";pwd=12345678"
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select losenord, info From admin where anvnamn='" & Request.Form("anvnamn") & "'"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If not RecSet.EOF Then

    If RecSet("losenord") = Request.Form("losenord") Then

        Session("check") = "111okerd"
        Session("passw") = "YtSQ12gyt"

        If RecSet("Info")="adm" Then
            strPage="indexAdmin.asp"
        Else
            strPage="index2.asp"
        End If

        RecSet.Close
        Connect.Close
        Set RecSet = nothing
        Set Connect = nothing

        Response.Redirect strPage

    End If

End If

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Session("mess") = "fel användarnamn eller lösenord"
Response.Redirect "index.asp"
%\>
\______________________________________________\_

Sen är problemet hur jag ska skriva skyddet på sidorna till olika nivåer??   Idag ser det ut så här: 

\<% IF NOT Session("check") = "111okerd" AND NOT Session("passw") = "YtSQ12gyt" THEN
Session("mess") = "Du måste logga in först!"
Response.Redirect "index.asp" 
ELSE %\>

Den här klarar inte att kolla i kolumen "Info" och checka där.
\______________________________________________\_

Snälla hjäp mig med detta.      mvh  Biasse

Permalänk: https://www.webforum.nu/p/85472

## #2 — Biasse, 2003-09-07T18:00Z

indexAdmin.asp + 2 till menade jag.  Jag klarar inte att få ihop det + skyddet som skrivs överst på de sidor som ska visas.

Permalänk: https://www.webforum.nu/p/1149714

## #3 — Melea, 2003-09-07T18:22Z

Använd \[ kod \] \<%=RS("hej")%\> \[ /kod \] taggarna så man kan läsa koden

Permalänk: https://www.webforum.nu/p/1149725

## #4 — Biasse, 2003-09-07T18:32Z

Nu är jag inte riktigt med?? Det här:

If RecSet("losenord") = Request.Form("losenord") Then 

Session("check") = "111okerd" 
Session("passw") = "YtSQ12gyt" 

If RecSet("Info")="adm" Then 
strPage="indexAdmin.asp" 
Else 
strPage="index2.asp" 
End If 

Kollar lösen och namn och värdet i kolumen "Info" och skickar mig till "indexAdmin.asp" om det stämmer men problemet är att jag vill att den ska godkänna ytterligare sidor om jag lägger till fler nivåer.   tex:

If RecSet("Info")="adm" Then 
strPage="indexAdmin.asp" 
Else 
strPage="index2.asp" 
End If 

If RecSet("Info")="member" Then 
strPage="indexAdmin.asp" 
Else 
strPage="index3.asp" 
End If 

If RecSet("Info")="vip" Then 
strPage="indexAdmin.asp" 
Else 
strPage="index4.asp" 
End If 

I detta läget ska ju adm kunna se även index3 mm.

Sen är det själva skyddet man skriver överst på tex index2 så att det kollar så att jag har behörighet dit som måste ändras??

Jag klarar inte att läsa mig till detta???

mvh   Biasse

Permalänk: https://www.webforum.nu/p/1149731

## #5 — Biasse, 2003-09-07T20:00Z

????     snyft

Permalänk: https://www.webforum.nu/p/1149811

---

Tråden på webben: https://www.webforum.nu/amne/asp/85472-behöver-hjälp