admin login prob og list sessions prob :(

btw jeg har fået den her kode men den siger mig nada af hvordan jeg skal sætte den ind i mit dokument eller om den kan få det til at virke ham jeg snakkede med smuttede nemlig lige efter han gav mig koden :(

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("../db/konku.mdb;")
IF CONN.STATE <> 1 THEN
ELSE
Set RS = Server.CreateObject("ADODB.Recordset")
"SELECT * FROM admin WHERE User = '" & Request("Username") & "' AND Pass = '" & Request("Password") & "'"
RS.OPEN SQL, Conn, 1, 4
Do While NOT RS.EOF

Checkifok = RS.Fields("ID").Value

RS.MoveNext
Loop
RS.Close
Set RS = Nothing
END IF
Conn.Close
Set Conn = NOTHING
%>
<%
IF Checkifok <> "" then
response.write "yay it worked"
ELSE
response.redirect("error.asp")
END IF
%>

når ja.. hehe selve designet er heller ikke lige det smukkeste det kan komme bagefter :) det er også kun mig der skal se på det :)

Prøv denne her. Den burde virke. Jeg har bare ryddet lidt op i dine if-sætninger.

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")

' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/konku.mdb")

' Åben databaseforbindelsen
Conn.Open DSN
%>

<html>
<head>
<title>Tilmelding til konkurrencer</title>
</head>
<body bgcolor="#adbac6">
<center>
<br>
<br>


<%
If (Request("Login") = True) then

' SQL forespørgsel
strSQL = "SELECT * FROM admin WHERE User = '" & Request("Username") & "' AND Pass = '" & Request("Password") & "'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

If (Rs.EOF) then %>

      <font size="+3"><strong>Du har tasted forkert brugernavn eller password.</strong></font>
      <form action="admin.asp" method="post">
      <table align="center" cellspacing="2" cellpadding="2" border="0">
      <tr>
          <td>Username:</td>
          <td><input type='text' name='Username'></td>
      </tr>
      <tr>
          <td>Password:</td>
          <td><input type='password' name='Password'></td>
      </tr>
      <tr>
          <td colspan="2"><input type='hidden' name='Login' value='True'><input type="submit" value="Login"></td>
      </tr>
      </table>
      </form>
     

<% Else %>

<%
Session("valid") = True
Session("user") = rs("user")
Session("pass") = rs("pass")
'Session("Access") = rs("usrRight")
Session("id") = rs("id")
%>

<center><strong>Hej <%= Session("user") %> du er nu logget ind og kan frit benytte admin systemet :)</strong></center>
<br>
<br>
<table align="center" cellspacing="2" cellpadding="2" border="1" bordercolor="#000080">
<tr>
    <td align="center" width="250" height="30"><b><font size="+1">:: Hold/Team Navn ::</font></b></td>
    <td align="center" width="200"><b><font size="+1">:: Hold/Team Leader ::</font></b></td>
</tr>
</TABLE>
<table align="center" cellspacing="2" cellpadding="2" border="1" bordercolor="#000080">

<%

' SQL forespørgsel
strSQL = "Select * from cs"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF

response.write("<form action='slet.asp' method='get'><tr>")
    response.write("<td align='left' width='250'>" & rs("TeamName") & "</td>")
    response.write("<td align='center' width='200'>" & rs("TeamLeader") & "</td>")
    response.write("<td align='center' width='50'><input type='hidden' name='id'  value=" & rs("ID") & "><input type=submit value='Slet'></td>")
response.write("</tr></form>")

' Gå til næste Record i rs

  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

</table>

<% end if %>

  <% else %>

      <form action="admin.asp" method="post">
      <table align="center" cellspacing="2" cellpadding="2" border="0">
      <tr>
          <td>Username:</td>
          <td><input type='text' name='Username'></td>
      </tr>
      <tr>
          <td>Password:</td>
          <td><input type='password' name='Password'></td>
      </tr>
      <tr>
          <td colspan="2"><input type='hidden' name='Login' value='True'><input type="submit" value="Login"></td>
      </tr>
      </table>
      </form>


  <% end if %>

</center>
</body>
</html>

mm jeg prøvede med din kode .. men nu kan jeg slet ikke logge ind..
den kommer bare med login billedet hele tiden.. og selv om man trykker forkert pass og sådan trigger den ikke fejl besken

den nye source ligger http://80.196.131.152/admin.txt <-- der :)

Måske skal den bare hedde:

If (Request("Login") = "True") then

mm prøver jeg da lige med det samme :)

du er jo genial :) ... hehe nu mangler jeg bare sessions :) .. hehe men prøver lige at se om jeg ikke sel vkan lave dem :)

God fornøjelse.... Ellers må du jo sige til...

mmm larsen .. nu er vores hoved side blevet færdig :) så nu skal jeg jo flytte login delen hen til den. det er også fint nok.. men jeg kan ikke få de dume sessions til at virke ordenligt :(

http://80.196.131.152/index.txt
http://80.196.131.152/login.txt
og her er vores hoved side :)
http://80.196.131.152/
suprising ik :) heheh der er sikker bare mine if sætninger igen.. men jeg kan ikke lige se fejlen
:(

mm jeg opretter altså spm'et igen da det ikke ser ud til du vil hjælpe mere.