count...

Jeg tror du skal

Do while not (rs.BOF or rs.EOF)
    If rs.fields("fest") <> fest Then
        antal = antal - 1
    End If
    rs.movenext
Loop

Men - kan du ikke nøjes med denne sql-sætning

sql = "select count(*) as antal from img where fest=" & fest

Den vil jo give det ønskede resultat. Antallet af poster hvor feltet, fest = variablen: fest

coltau >> Nej det kan jeg ikke.... Så udskriver den alle billederne fra DB'en !!!


erikjacobsen >> Jeg får følgende fejl når jeg gør det :
fejl '80020009'
Undtagelse opstod.

Denne her udskriver kun den fest det drejer sig om.

set rs = server.createobject("adodb.recordset")
sql = "select * from img where fest=" & fest ' fest skal indeholde den fest man ønsker
rs.open sql, cn

intMaxColumn = 2 'maximum antal billeder i hver række
intCount = 0 'Tæller
' Gennemløb records
Do while not rs.EOF
  intCount = intCount+1
  If intCount > intMaxColumn Then
    intCount = 1
    Response.Write "</tr><tr><td height=""15""></td></tr>"
  End If 
 
  ' Indsæt resten af din for-løkke
 
  rs.MoveNext
Loop

Ellers må vi se hele koden. En "Undtagelse opstod" er jo en ftal fejl.

Okay, her kommer hele koden!

Response.Write "<table>"
Dim cn, cnstr
set cn = server.createobject("adodb.connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source=" & server.mappath("db.mdb") & ";"
cn.connectionstring = cnstr
cn.open

Dim intMaxColumn, intBilleder, intCount, x, antal, fest
fest = Request.Querystring("fest")

set rs = server.createobject("adodb.recordset")
sql = "select count(*) as antal from img where fest = "&fest&""
rs.open sql, cn
antal = rs.fields("antal")
rs.close

sql = "Select * from img WHERE fest = "&fest&" ORDER BY id ;"
'sql = "SELECT * FROM img ORDER BY id;"
rs.open sql, cn
Do while not (rs.BOF or rs.EOF)
    If rs.fields("fest") <> fest Then
        antal = antal - 1
    End If
    rs.movenext
Loop
'Response.Write sql
'Response.Write fest

intMaxColumn = 2 'maximum antal billeder i hver række
intBilleder = antal 'antallet af billeder
intCount = 0 'Tæller
Response.Write "<tr>"
For x = 1 to intBilleder
intCount = intCount+1
If intCount > intMaxColumn Then
intCount = 1
Response.Write "</tr><tr><td height=""15""></td></tr>"
End If

Response.Write "<td><a href=""#"" onclick=""newwin=window.open('../asp/vispics.asp?vis="&rs.fields("id")&"','html','toolbar=1,status=1,width=600, height=500, scrollbars=1');"">" _
    & "<img width=""200"" border=""0"" height=""150"" src="""&rs.fields("imgsrc")&""" alt="""&rs.fields("kommentar")&"""></a>" _
    & "<br><div class=""text"">("&x&")&nbsp;Tip en ven: <a href=""#"" onclick=""newwin=window.open('../asp/tipven.asp?mode=sms&tip=Tjek+dette+link+ud:&nbsp;www.fiddle.dk','sms','toolbar=1,status=1,width=600, height=300, scrollbars=1');"">SMS</a>&nbsp;|&nbsp;<a href=""#"" onclick=""newwin=window.open('../asp/tipven.asp?mode=mail&tip=Tjek+dette+link+ud:&nbsp;[a href=546http://www.fiddle.dk546]www.fiddle.dk[/a]','mail','toolbar=1,status=1,width=600, height=300, scrollbars=1');"">Mail</a><br>"&rs.fields("kommentar")&VbCrlf&"</div></td><td width=""15""></td>"
    rs.movenext

Next
Response.Write "</table>"
rs.close
set rs = nothing
cn.close
set cn = nothing


Jeg har indsat erikjacobsens forslag...

Hvad er din fest ? Et tal, en streng ?

det er ikke et tal det er en streng, i dette tilfælde er det "fest" ...

Du mangler disse linier:

rs.close
rs.open sql, cn

lige før denne linie:

intMaxColumn = 2 'maximum antal billeder i hver række

Du har jo genneløbet recordsættet en gang.

Hvis det er en streng skal du jo

sql = "select count(*) as antal from img where fest = '"&fest&"'"

erik --> Jeg har prøvet ovenstående kode og ændrede det du skriver. Det underlige skete: Jeg fik et udtræk på alle. Uden ' omkring får jeg de ønskede records. ???
det er imod alt logik. !

Nej, overhovedet ikke. Du får en sql-sætning med

  where fest=fest

altså hvor feltet fest er lig med sig selv. Det er det altid.

  where fest='fest'

sammenligner med ordet 'fest'

erik --> Glem det. Hvis jeg anvender ' omkring begge sql-sætninger så er den på plads. Pyha. Men det sjove er at det også virker uden. ?

Du har ret. !

coltau >> du får pointne..
Det var pga.
rs.close
rs.open sql, cn