indexAdmin.asp + 2 till menade jag. Jag klarar inte att få ihop det + skyddet som skrivs överst på de sidor som ska visas.
Frågan#1
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