Matematisk problem mest af alt

y = 0

While Not RS_posts.EOF
  If RS_posts("post") = 7 Then
      y = y + 1
      If y > 0
        Response.Write ", "
      End If
      Response.Write y
  End If
Wend

y = 0
Set RS_posts = Server.CreateObject("ADODB.RecordSet")
        RS_posts.open "Select Count(*) AS post From [forum_posts] WHERE topic_id = " & RS_topics("id") & "", Conn_sites
         

antal = rs("post") mod 7
for i = 1 to antal
  response.write "Antal:: " & i
next

Kan ikke lige huske syntaksen for mod men checker lige efter.

Kan du ikke bare dividere count med 7 og så loope - a la nedenstående pseudokode?

rs_pots.open "select round(count(*) \ 7) as post from [forum_posts] where ...
a=1
do while rs_posts("post")>a
  response.write(a)
  a=a+1
loop

Ja det var ikke mod det skulle være den giver jo resten ved en division så det er nok trer's forslag du skal have fat i :-)

Bortset fra brugen af MOD er Berties foreslag jo egentlig også korrekt (og pænere skrevet) samt 15 sekunder før mit :-) så hvis du vælger mit forslag bør bertie få ½-delen af evt points.

avlund ->

Active Server Pages error 'ASP 0113'

Script timed out

/Forum_v_1.0/forum_traade.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. (Der kan ikke pilles yderligere da jeg ikke sider med IIS'en selv)

Trer ->

Object Reqiured; "

Denne linje ->
rs_posts.open "select round(count(*) \ 7) as post from [forum_posts] where topic_id = " & RS_topics("id") & "", conn sites

:D

Jajaja, jeg glemte lige en enkelt linie.

y = 0

While Not RS_posts.EOF
  If RS_posts("post") = 7 Then
      y = y + 1
      If y > 0
        Response.Write ", "
      End If
      Response.Write y
  End If
  RS_Posts.MoveNext
Wend

Hmm... Eneste jeg kan er, mangler der ikke en underscore mellem conn og sites?

Ellers brug Berties løsning og ret blot MOD til en \

avlund ->

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/Forum_v_1.0/forum_traade.asp, line 0

... og der er indhold i databasen? Hmm, virker sært...

Skal \ ikke rettes til /? Det er jo en division.

bertie> jo, dårlig vane med backslash...

Mht avlunds løsning - en count returnerer altid kun en række, så er der 28 rækker i tabellen får man 1 række ud med rs_posts("post") = 28

Set RS_posts = Server.CreateObject("ADODB.RecordSet")
        RS_posts.open "Select Count(*) AS post From [forum_posts] WHERE topic_id = " & RS_topics("id") & "", Conn_sites
If NOT RS_posts.EOF Then
  Antal = RS_posts("post")
End If

DivideBy = 7
y = Antal/DivideBy

If y => 1 Then
  For i = 1 to y
    If i > 1 Then
      Response.Write ", "
    End If
    Response.Write i
  Next
End If

Åh ja, havde lige overset COUNT'en. Var åbenbart mere træt i går end jeg troede.

Vi kan da lige samle den her:

y = 0
Set RS_posts = Server.CreateObject("ADODB.RecordSet")
        RS_posts.open "Select Count(*) AS post From [forum_posts] WHERE topic_id = " & RS_topics("id") & "", Conn_sites
         

antal = rs("post") / 7
for i = 1 to antal
  response.write "Antal: " & i
next

bertie>> Du får en fejl, hvis rs("post") er 0, for så laver du en nul division. Det er derfor jeg laver det tjek der hedder if y => 1 (If y > 0) Then

Eller det passer jo ikke helt. Du får ikke en fejl i divisionen, den bliver jo bare 0....

Bedre sent end aldrig ikke :) - Lig svar og tak for jeres hjælp!