antal poster

Jeg mener at Rs.RecordCount kan udskrive det.

Eller skal du lave en COUNT(*) i dit SQL

Altså, hvis din recordsæt reference hedder \"Rs\"

hej igen :)

Kan du give mig en kode?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db.mdb\")
SQL = \"SELECT COUNT(*) AS Antal FROM users WHERE Username = username AND læst = \'NO\'\"
Set rs = Conn.execute(rs)
%>
<%=rs(\"antal\")%>

UPS
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db.mdb\")
SQL = \"SELECT COUNT(*) AS Antal FROM users WHERE Username = username AND læst = \'NO\'\"
Set rs = Conn.execute(SQL)
%>
<%=rs(\"antal\")%>

tpiil:> hey dude... hvaøø .. hvordan er det så LIIIGE at alizweb skulle kunne trække sine data ud, med mindre han/hun skulle lave et SQL query mere ?

tjaa det tror jeg ikke jeg har lært endnu, jeg plejer bare at lave flere :)

tpiil:> *S*

æhm

når man så udskriver
<%= rs(\"antal\")%>
Hvordan fanden er det jeg gør hvis jeg vil have den i asp (Reponse.Write(\"...

(jeg er en han)
=) det er jo ikke AliceWeeb jeg hedder :))))

alizweb:> når man skriver:

<%=Rs(\"antal\")%>

opfatter \"ASP\" det som en \"genvej\" til at skrive:

<%Response.Write Rs(\"antal\")%>

<%
Response.Write \"Der er fundet \" & rs(\"antal\") & \"\"
%>

alizweb:> (*GG* you never know ...)

tpiil:> hvad faen skal & \"\" gøre godt for ?

<%=\"Der er fundet \" & rs(\"antal\")%>

ser da bedre ud ..

tpiil:> hvad faen skal & \"\" gøre godt for ?

<%=\"Der er fundet \" & rs(\"antal\")%>

ser da bedre ud ..

ok

det vil sige at jeg godt kan skrive dette:
SQL2 = \"SELECT COUNT(*) AS Antal FROM users WHERE Username = RS(\'username\') AND læst = \'NO\'\"

-----------^

det kan jo være han skal skrive mere!

Nej ... for Rs(\'username\') er garanteret et andet recordset, ikke ?

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

sådan.

?
HUH?
?

Regn ikke med pilen :)
Jeg mente: RS(\'username\')

Jo!
Jeg har mange recordset åben!

*G* det var også den jeg mente der var fejl i :o)

Min samlede kode blir så:

<%
SQL2 = \"SELECT COUNT(*) AS Antal FROM users WHERE Username = \'\" & RS(\"username\") & \"\' AND læst = \'NO\'\"
set breve = rs.Execute(SQL2)
%>

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

Det burde du ikk?

Ikke helt ;-)

<%
SQL2 = \"SELECT COUNT(*) AS Antal FROM users WHERE Username = \'\" & RS(\"username\") & \"\' AND læst = \'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
%>

Ups .. du mangler en \" på

Reponse.Write(\"du har ingen ulæste breve.)

Reponse.Write(\"du har ingen ulæste breve.\")

sådan skal den være.

Du må lige vente med pointene til en anden dag!
Skal loge have testet det først ok?

Jeg har lige lavet lidt rettelser i db... så nu er koden så:

<%
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
%>

MEN nu kommer den med fejlen:

Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'Execute\'

/ftk/beskyttet.asp, line 55


hvorfor nu det?

Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
Sql = \"SELECT * FROM Post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
rs1.Open Sql, ObjConn, 3, 3
If rs1.RecordCount > 0 Then
  Response.Write \"Du har ingen ulæste breve.\"
Else
  Response.Write \"Du har \" & rs1.RecordCount & \" ulæste breve\"
End If

Hmm... jeg har en bruger hvor der er 1 ulæst brev men den siger DU HAR 0 ulæste breve...
Og på de andre er den god nok: Du har ingen ulæstebreve


Site: Beskyttet.asp
Hele KOde:


<% @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(\"default.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%\">
<%
Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
Sql2 = \"SELECT * FROM Post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
rs1.Open Sql2, Conn, 3, 3
If rs1.RecordCount > 0 Then
  Response.Write \"Du har ingen ulæste breve.\"
Else
  Response.Write \"Du har \" & rs1.RecordCount & \" 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>
<%

    rs1.Close
    Set rs1 = Nothing
    Set sql2 = Nothing
%>

jeg gider sku ikke læse hele spørgsmålet skriv hvad der sakl laves!

<%
Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
Sql2 = \"SELECT COUNT(*) AS Antal FROM Post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
rs1.Open Sql2, Conn, 3, 3
If rs(\"antal\") > 0 Then
  Response.Write \"Du har ingen ulæste breve.\"
Else
  Response.Write \"Du har \" & rs(\"antal\") & \" ulæste breve\"
End If 
%>

<%
Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
Sql2 = \"SELECT COUNT(*) AS Antal FROM Post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
rs1.Open Sql2, Conn, 3, 3
If rs1(\"antal\") > 0 Then
  Response.Write \"Du har ingen ulæste breve.\"
Else
  Response.Write \"Du har \" & rs1(\"antal\") & \" ulæste breve\"
End If 
%>