Visa streck i loop

Jag behöver lite hjälp med att tänka.
Jag skulle vilja skriva om denna om det går.
En massa dagar skrivs ut efter varann och efter var sjunde så ska ett | sättas in?

Total_days = 60
k = Array(7,14,21,28...)

    For j = 1 To Total_days
	Div If-taggar
	End If
                    For l = 0 To Ubound(k)
                    If j = k(l) Then
                    Response.Write "|"
                    End If
                    Next
    Next

Man borde ju kunna bestämma redan i: For j = 1 To Total_days att efter var sjunde dag göra ett streck, eller?

Resultatet ska bli: 1234567|891011121314|...

If (j Mod 7) = 0 Then ... :)

Ha! Då har man lärt sig nått nytt idag också. :bire

För att krångla till det lite mer, kan man få bort sista strecket så det blir:
1234567|891011121314|15161718192021

I stället för att skriva ut en i taget, lägg ihop till en sträng. Då kan du sedan trimma bort det sista tecknet.

If right(strDayNumbers, 1) = "|" then strDayNumbers = Left(strDayNumbers, len(strDayNumbers)-1)
Response.Write strDayNumbers

Mvh,

Can´t do it.
Själva dagarna skulle man kunna göra så på men efter dessa har skrivits ut så loopas div aktiviteter ut beroende på om det finns någon den dagen.
Det kan se ut ungefär så här:
1234567|891011121314|
xxoxxox|xooxooo|

Svårt att förklara men x och o styrs alltså av if-taggar och efter 7 dagar så skrivs ett streck ut.

Kom på´t:
If (j Mod 7) = 0 And j <> Total_days Then