Problem med For loop...

[CatZ]

SQL = "SELECT NrAr, NrManad FROM Nyheter"_
& " WHERE NOT ((NrManad = " & datepart("m", date) & ")"_
& " AND (NrAr = " & datepart("yyyy", date) &"))"
set rs = dbCom.Execute(SQL)

for iAntal = 1 to iTotalt step -1
response.write "<a href=nyheter.asp?cmd=vm&ar=" & rs("NrAr") & "manad=" & rs("NrManad") & ">" & getmonthlong(rs("NrManad")) & ", " & rs("NrAr")
next

Detta fungerar, men jag får ut dubbletter på allt :( hur gör jag för att varje månad bara ska komma upp en gång ? Count(NrManad) eller nåt ?

[jimpa]

Vet inte om jag är ute o cyklar men så här kanske:


xTmp =""

Do until rs.EOF

If xTmp <> rs("NrManad") Then

response.write "<a href=nyheter.asp?cmd=vm&ar=" & rs("NrAr") & "manad=" & rs("NrManad") & ">" & getmonthlong(rs("NrManad")) & ", " & rs("NrAr")

xTmp = rs("NrManad")

End If
rs.MoveNext
Loop

[CatZ]

Ja det fungerade utmärkt jimpa tack så mycket :)

[LarsG]

SQL = "SELECT distinct NrAr, NrManad FROM Nyheter"_
& " WHERE NOT ((NrManad = " & datepart("m", date) & ")"_
& " AND (NrAr = " & datepart("yyyy", date) &"))"


så tar man bort duplikat direkt i sql-frågan.