---
title: "Veckonummer i rullningslist"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38187-veckonummer-i-rullningslist"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "brw"
published: "2001-04-06T08:47:00.000Z"
updated: "2001-04-06T08:47:00.000Z"
replies: 0
views: 868
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38187-veckonummer-i-rullningslist"
---

# Veckonummer i rullningslist

## #1 — brw, 2001-04-06T08:47Z

Listar upp årets veckor i en rullningslistbox. Kan vara användbart, kanske.

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Dim datum, veckanu, veckonr, markerad, counter, vald, i

datum = now
veckanu = DatePart("ww",datum, 0, 0)
veckanu = Cint(veckanu)

vald = Cint(request.Form("vecka"))

If vald \<\> "0" Then
markerad = vald
Else
markerad = veckanu
End If
%\>

\<%
Response.Write "\<form name=""veckonummer"" action=""filen.asp"" method=""post""\>"
Response.Write "\<Select name=""vecka"" class=""formular""\>"
 
counter = 0
For i = 1 to 52
veckonr = veckonr + 1
%\>

\<OPTION value="\<%=veckonr%\>" \<% If veckonr = markerad Then Response.Write "SELECTED" End If %\> \>Vecka \<%=veckonr%\>\</OPTION\>

\<%
Next
Response.Write "\</Select\> \<input type=""submit"" value=""Visa"" class=""formular""\>\</form\>"
%\>

Permalänk: https://www.webforum.nu/p/38187

---

Tråden på webben: https://www.webforum.nu/amne/asp/38187-veckonummer-i-rullningslist