Count

strSQL2 = \"SELECT count(ID) FROM Newstab AS antal\"

skal være:

strSQL2 = \"SELECT count(ID) AS antal FROM Newstab\"

Så skulle det gerne virke.

Prøv med

Select count(*) as antal from Newstab

Det virker stadig ikke.
Kan i se hvor jeg har klokket i det?

<%
Set DBConn = Server.CreateObject(\"ADODB.Connection\")
DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"news.mdb\")
%>

<%
Dim antal
strSQL = \"SELECT * FROM Newstab\"
strSQL2 = \"SELECT count(ID) AS antal FROM Newstab\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = DBConn.Execute(strSQL)
set rs2 = DBConn.Execute(strSQL2)

Response.Write(\"<table border=\'0\' cellpadding=\'0\' cellspacing=\'0\' width=\'800\'>\")
Response.Write(\"<tr>\")
do until rs.EOF
Response.Write(\"<td width=\'25\' valign=\'top\' align=\'right\'><img src=\'images/newspil.gif\'></td>\")
Response.Write(\"<td width=\'160\' valign=\'top\' class=\'news\'><a href=\'news/popup.asp?news=\" & rs(\"ID\") & \"\' target=\'_blank\'><div class=\'news_header\'>\" & rs(\"Header\") & \"</div>\" & rs(\"Text\") & \"</a></td>\")
rs.movenext
loop
Response.Write(\"</tr>\")
Response.Write(\"</table>\")
Response.Write(antal)
%>

Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = DBConn.Execute(strSQL)
set rs2 = DBConn.Execute(strSQL2)


Du sætter to ting til at hedde \'rs\' - er det rigtigt ?

yup

Men skal der så ikke også være en CreateObject til rs2 ??

uhm... i dunno... jeg er blot en newbie..

Nope.. hjælper ikke

Du udskriver ikke noget fra rs2 op noget tidspunkt gør du ??

Jo.. SELECT count(ID) AS antal FROM Newstab gemmer antallet af rækker i variablen \"antal\".
Den skriver jeg ud i sidste linie

OK, du skal udskrive den som rs2(\"antal\")

I sidste linie skriver du Response.Write(antal) jeg kan dog ikke se at variablen antal bliver sat nogen steder.
Hvis jeg forstår hvor du vil hen skal der stå Response.Write(rs2(\"antal\")) da det er jo recordet antal i rs2 du vil udskrive.

Desuden ville jeg fjerne linien Set rs = Server.CreateObject(\"ADODB.Recordset\") da du i næste linie sletter dette nye recordset og opretter et nyt med Set rs = DBConn.Execute(...)

Jeg håber det det funker.

Troels Aká WinKill

Suk.. ja..
Tak skal du ha, du er en guttermand.

Jeg troede at den blev gemt som en ganske normal variabel.. men åbenbart ikke ;o)

Sådan går det når folk ikke forklarer sig ordenligt... Troels.. ;o)

Gid den gjorde, men så skal du bruge noget ala antal = rs2.GetString(og en masse stads som jeg ikke helt har styr på) eller evt. antal = Conn.Execute(\"SELECT COUNT.......\").GetString() men jeg er ikke helt sikker på hvordan det lige fungerer...

I øvrigt ville jeg indsætte følgende linier til sidst i koden:

rs.close
rs2.close
dbconn.close
set rs = Nothing
set rs2 = nothing
set dbconn = nothing

Det er ikke nødvendigt på en Win2k Adv Server hvis den er configureret korrekt, men for god ordens skyld er det godt altid at \"rydde op\" efter sig... Du ved, tømme askebæret, sætte kaffekoppen i opvaskemaskinen og lukke/slette alle Recordsets og Connections - det sparer både kr. til rengøringspersonalets lønninger og det sparer kr. til køb af ekstre ramblokke til serveren ;o)

Snik snak, jeg kunne blive ved, men nu skal i nok få fred *G*

T/W

Hvad snakker du om Kim ;o) Jeg bøjede det da i neon, skar det ud i pap, stemplede det på din nummerplade, tegnede det på den store tavle og jeg fik endda skrevet en sang om det.... eller noget... tror måske jeg har fået for meget kaffe idag.

Du er en syg mand Troels.. *G*

Aaah.. jeg har tabt den ene nummerplade.. might be that..

Yeps, 38,8 i feber.

Hmm.. desuden skriver du som en brækket arm.. kunne ikke læse hvad du havde skrevet i neon.. same goes for tavlen.. du er tonedøv så jeg fattede ikke din sang og.. Troels.. du ved godt du ikke må lege med knive..

38,8?? Fy for pokker.. kan du se at komme til lægen

Ok, noget der hen ad i hvert tilfælde, men så længe jeg kan kode skal jeg sku ikke til lægen *G*

Apropos, hvornår åbner den første online-læge ?

www.netdoktor.dk

Hva så hvis jeg vil gange min var med et fast tal?

Response.Write(rs2(\"antal\") * 44456413)

Og hvis det er gemt som Text/Char/VarChar/Bit eller noget andet skummelt kan du gøre så\'n her:

Response.Write(CInt(rs2(\"antal\")) * 44456413)
\' hvis jeg ikke husker helt galt :o)

arh.. det er jo for nemt..

Det var hun også igår... eller noget *G*

*suk*