hente login = ok

???nej jeg forstår det ikke.....

ok, i toppen af sidden tjekkes det om login er ok, hvis den er det har jeg sat den til at lave disse.

dim login
login = ok
   
dim id
id = rs("id")

det er så meningen at længere ned på siden skal jeg bruke dem til at tjekke om der skal skrives det ene eller det andet...

hvordan gør jeg det ?

Det er rigtigt det du gør lige nu....

nej for den siger hvergang man loader siden at man ikke er logget ind, der hvor jeg udskriver...

Så lav det til en session i stedet for!
Session("login") = "ok"

og så der hvor du vil bruge den...

If Session("login") = "ok" Then
Response.Redirect("www.webcorner.dk")
End If

//>Rune

questis.....

der er intet i vejen med det du skriver.....der må være noget andet....Hvad skriver den ?

den skriver ikke noget, den gå bare ned i else hvergang trods man er logget ind

haloo.. hvis du bruge Sessions så kan du enda skifte side ... (det er somregel oxo det man bruger til loginscripts!)

//>Rune

ja det er normalt at bruge sessions....

Post hele siden....

medions>>
ja, men det tærer vel også på ens serverkraft.... og det er der jo ingen grund til hvis det kunne gøres uden....

den er jo møjlang.....

ja men det er den eneste måde vi kan hjælpe på...

well, Sessions tærer ikke på ens serverkraft! -det er jo overhovedet ikke noget der kan mærkes!

//>Rune

her er den så:

<head>
<title>Studiekrogen.dk</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<%
response.write "<center><table width='760px' cellpadding='0' cellspacing='0' style='border-top: 1 solid #000000; border-left: 1 solid #000000; border-right: 1 solid #000000;'>"
response.write "<tr><td colspan='3' height='75px' background='logo.gif'>"
response.write "<table width='100%' cellpadding='0' cellspacing='0' border='0'>"
response.write "<tr><td width='250px'></td><td align='left'></td></tr></table></td></tr>"
response.write "</table>"
response.write "<table width='760px' cellpadding='0' cellspacing='0' style='border: 1 solid #000000'>"
response.write "<tr><td width='120px' height='340px' style='border-right: 1 solid #000000;' valign='top' bgcolor='#314A5F'>"

response.write "<table width='100%' cellpadding='0' cellspacing='0'>"
response.write "<tr><td height='16px' bgcolor='#667788' style='padding-left: 20px ;border-bottom: 1 solid #000000;'><h1>Status</h1></td></tr>"

strNavn = Request.Cookies("questis")("navn")   
strpass = Request.Cookies("questis")("pass") 


    if strNavn = "" then
    response.write "<tr><td style='padding-left: 5px;'><h2>Log ind</h2></td></tr>"
    response.write "<tr><td style='padding-left: 5px;'><h2>Opret bruger</h2></td></tr>"
    else

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("skole.mdb")
    strSQL = "SELECT * FROM bruger WHERE navn = '" & strNavn & "' AND pass = '" & strpass & "'"
    set rs = conn.execute(strSQL)
    dim login
    login = ok
   
    dim id
    id = rs("id")
    response.write "<tr><td style='padding-left: 5px;'><h2>" & strNavn & "</h2></td></tr>"
    response.write "<tr><td><table cellpadding='0' cellspacing='0' border='0' width='100%'>"
    response.write "<tr><td style='padding-left: 5px;' width='50%'><h2>Point</h2></td><td style='padding-right: 2px;' align='right'><h2>" & rs("point") & "</h2></td></tr>"
    response.write "<tr><td style='padding-left: 5px;' width='50%'><h2>Point ude</h2></td><td style='padding-right: 2px;' align='right'><h2>" & rs("point_ude") & "</h2></td></tr>"

    response.write "</table></td></tr>"
    end if

response.write "<tr><td style='padding-left: 5px;' height='5px'></td></tr>"
response.write "<tr><td height='16px' bgcolor='#667788' style='padding-left: 20px ;border-bottom: 1 solid #000000; border-top: 1 solid #000000;'><h1>Fag</h1></td></tr>"

If Request.QueryString("mode") = "dansk" Then

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"

response.write "<tr><td style='padding-left: 15px;'><h2>- Analysemodeler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Analyser</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Perioder</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"

elseIf Request.QueryString("mode") = "engelsk" Then

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"

response.write "<tr><td style='padding-left: 15px;'><h2>- Artikler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Gramatik</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Forum</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"

elseIf Request.QueryString("mode") = "historie" Then

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"

response.write "<tr><td style='padding-left: 15px;'><h2>- Artikler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Perioder</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Forum</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"

elseIf Request.QueryString("mode") = "matematik" Then

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"

response.write "<tr><td style='padding-left: 15px;'><h2>- Artikler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Formler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Gennemgang</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Forum</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"

elseIf Request.QueryString("mode") = "tysk" Then

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"

response.write "<tr><td style='padding-left: 15px;'><h2>- Artikler</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Gramatik</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;'><h2>- Forum</h2></td></tr>"
response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"

else

response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=dansk&id=" & Request.Querystring("id") & "'><h2>- Dansk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=engelsk&id=" & Request.Querystring("id") & "'><h2>- Engelsk</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=historie&id=" & Request.Querystring("id") & "'><h2>- Historie</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=matematik&id=" & Request.Querystring("id") & "'><h2>- Matematik</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='" & request.servervariables("SCRIPT_NAME") & "?mode=tysk&id=" & Request.Querystring("id") & "'><h2>- Tysk</h2></a></td></tr>"
response.write ""

end if

response.write "<tr><td style='padding-left: 15px;' height='5px'></td></tr>"
response.write "<tr><td height='16px' bgcolor='#667788' style='padding-left: 20px ;border-bottom: 1 solid #000000; border-top: 1 solid #000000;'><h1>Forum</h1></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href=''><h2>- Kategorier</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href='oversigt.asp'><h2>- Oversigt</h2></a></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><a href=''><h2>- Opret Spørgsmål</h2></a></td></tr>"



response.write "</table>"
response.write "</td>"
response.write "<td width='520px' valign='top'>"
response.write "<center><table width='100%' cellpadding='0' cellspacing='0'>"
response.write "<tr><td height='16px' bgcolor='#667788' style='padding-left: 5px; border-bottom: 1 solid #000000;'><h1>Index</h1></td></tr>"
response.write "<tr><td><table width='100%' cellpadding='5' cellspacing='0'>"
response.write "<tr><td>"
%>
<%

Session.LCID = 1030

function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a class='link' href='$1$2' target='_blank'>$1$2</a> ", _
        " <a class='link' href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("skole.mdb")

strSQL = "Select * From spm Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

response.write "<table width='100%' cellpadding='0' cellspacing='0'>"
response.write "<tr><td bgcolor='#314A5F'><h2>" & rs("kategori") & "&nbsp;&nbsp;"
dim titel
titel = rs("titel")
titel = Server.HTMLEncode(titel)
response.write(titel)
response.write "</h2></td></tr>"
response.write "<tr><td bgcolor='#667788'><h3><b>Bruger:</b>&nbsp;"
dim spmnavn
spmnavn = rs("bruger_navn")
spmnavn = Server.HTMLEncode(spmnavn)
response.write(spmnavn)
response.write "&nbsp;<b>Dato:</b>&nbsp;" & rs("dato") & "&nbsp;<b>Point</b>&nbsp;" & rs("point") & "&nbsp;<b>Status:</b>&nbsp;"

dim accepteret
accepteret = rs("accepteret")

if accepteret = "nej" then
response.write "Åben"
else
response.write "Lukket"
end if
response.write "</h3></td></tr>"
response.write "<tr><td height='5px'><h3></h3></td></tr>"
response.write "<tr><td><h3>"

dim spm
spm = rs("spm")
spm = Server.HTMLEncode(spm)
spm = Replace(spm,chr(13),"<br>")
spm = LinkString(spm)
response.write(spm)

response.write "</h3></td></tr>"
response.write "<tr><td height='5px'><h3></h3></td></tr>"

strSQL = "Select * From svar Where svar_Id = " & Request.Querystring("id")
Set rs2 = Conn.Execute(strSQL)

if not rs2.eof then
do

dim typ
typ = rs2("svar_type")
if typ = "s" then
response.write "<tr><td bgcolor='#314A5F'><h2>Svar</h2></td></tr>"
else
response.write "<tr><td bgcolor='#314A5F'><h2>Kommentar</h2></td></tr>"
end if

response.write "<tr><td bgcolor='#667788'><h3><b>Bruger:</b>&nbsp;"
dim navn
navn = rs2("bruger_navn")
navn = Server.HTMLEncode(navn)
response.write(navn)
response.write "&nbsp;<b>Dato:</b>&nbsp;" & rs2("dato") & "</h3></td></tr>"
response.write "<tr><td height='5px'><h3></h3></td></tr>"
response.write "<tr><td><h3>"
dim svar
svar = rs2("svar")
svar = Server.HTMLEncode(svar)
svar = Replace(svar,chr(13),"<br>")
svar = LinkString(svar)
response.write(svar)
response.write "</h3></td></tr>"
response.write "<tr><td height='5px'><h3></h3></td></tr>"

rs2.movenext
loop while not rs2.eof

end if

if (login = "ok") then
response.write "hej"
else
response.write "skrid"
end if

response.write "</table>"

conn.close
set Conn = nothing
%>
<%
response.write "</td></tr>"
response.write "</table></td></tr></table>"
response.write "</td>"
response.write "<td width='120px' style='border-left: 1 solid #000000;' valign='top' bgcolor='#314A5F'>"

response.write "<center><table width='100%' cellpadding='0' cellspacing='0'>"
response.write "<tr><td height='16px' bgcolor='#667788' style='padding-left: 20px ;border-bottom: 1 solid #000000;'><h1>Fag</h1></td></tr>"
response.write "<tr><td style='padding-left: 5px;'><h2>Dansk</h2></td></tr>"

response.write "</table>"
response.write "</td></tr>"
response.write "</table></center>"
%>

medions>> mente jeg bare jeg var blevet fortalt at man ikke skulle bruge mere end højst nødvendigt

men det er nok bare mig der har hørt forkert &:-D

questis> :-D tror du har hørt forkert!

//>Rune

ok, det kunne tænkes &:-D men det må da tage noget hvis de ikke bliver afsluttede og man har mange besøgende eks. i et login system eller ?

Well, nej! -Så snart du ikke vil ha' brugeren mere kan du jo evt. skrive Session.Abandon! Her på eksperten kører du oxo med sessions, og jeg syntes da i hvertfald ikke at deres site kører langsomt! ;-)

//>Rune

nå men har fået det til at virke med de sessions, så jeg lukke dette nu, og stoler på dit ord medions....

takker for jeres hjælp og tid

:-)
Thx 4 Poinz
//>Rune