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>"
%>