FEJL?

læst = NO

...Prøv at undgå æ

/Dr_Scoop

Et skud i tågen. Jeg går ud fra du får username fra en database ?

\"SELECT COUNT(*) AS Antal FROM users WHERE (læst = \'NO\') AND Username = \" & Request(\"username\")

Stig

dr scoop >> Kan det ikke passe at hvis man ikke sætter \'\' omkrimk læses det som et tal ??

Stig

Kan jeg sætte Æ,Å,Ø osv.?

fuck det nu laver jeg det bare om!

nå nu har jeg lavet koden helt om (det vil sige at jeg havde et pr. stavefejl) men de skulle være rettet nu!

hvad er fejlen?

<% @LANGUAGE = VBSCRIPT %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
SQL = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)

Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader \"cache-control\", \"private\"
Response.AddHeader \"pragma\", \"no-cache\"
%>
<%
if request(\"Mode\") = \"logaf\" then

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic
      rs.Update
      rs(\"SidstPå\") = Now
      rs.Update

session.Abandon
Response.Redirect(\"login.asp?logud=TRUE\")
end if

%>

<%
Response.Buffer = True


IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp?mode=fejllogin\")
end if
%>

<head>
<title></title>
</head>

<body bgcolor=\"#a0a0a0\" text=\"#000000\" link=\"red\" vlink=\"red\" alink=\"red\">

<table border=\"0\" width=\"100%\" cellspacing=\"0\">
  <tr>
    <td width=\"42%\"><font face=\"Verdana\" size=\"-2\">Velkommen <b><% = rs(\"Username\") %> </b><br>Du har&nbsp;<b><%= RS(\"points\")%></b>&nbsp;points.</font> </td>
    <td width=\"48%\">
<%
SQL2 = \"SELECT COUNT(*) AS Antal FROM post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
set breve = rs.Execute(SQL2)
%>

<%
If cint(breve(\"antal\")) = 0 Then
Reponse.Write(\"du har ingen ulæste breve.\")
Else
Response.Write(\"Du har\" & breve(\"antal\") & \"ulæste breve\")
End If
%>


</td>
    <td width=\"10%\">
<a href=\"beskyttet.asp?mode=logaf\"><font face=\"Verdana\" size=\"-2\">Log af</font></a>
    </td>
  </tr>
</table>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" height=\"151\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\" height=\"147\" valign=\"top\"><font face=\"verdana\" size=\"-2\">Du var her sidst d. <%= rs(\"sidstpå\") %></font></td>
  </tr>
<%
If Rs(\"BrugerStatus\") = \"Admin\" Then
Response.write(\"<p><table bgcolor=black bordercolor=gray border=1><tr><td bgcolor=gray border=0><center>Admin funktioner</center></td></tr><tr><td><center><a href=show.asp target=_SELF>Se brugere her</a></p></td></tr></table>\")
End If
%>
</table>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"13%\"></td>
    <td width=\"61%\"></td>
    <td width=\"26%\"></td>
  </tr>
</table>
<%
    Conn.Close
    Set Conn = Nothing
    rs.Close
    Set rs = Nothing
%>

Det er vel ikke fordi du mangler en
Set rs = Server.CreateObject(...... ?

</hkramer>

det er det forkerte objekt du executer, sådan skal det være:

SQL = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = Conn.Execute(SQL)