---
title: "veckonummer från servern"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78321-veckonummer-från-servern"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bjarne A"
published: "2003-05-28T11:11:18.000Z"
updated: "2003-05-29T23:40:00.000Z"
replies: 3
views: 261
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/78321-veckonummer-från-servern"
---

# veckonummer från servern

## #1 — Bjarne A, 2003-05-28T11:11Z

Kan man hämta veckonumret från servern
eller måste man hämta dom via datumet

typ:
20030101 to 20030107 =2
20030101 to ......           =3
osv

kan man lösa det på ett lättare sätt en att göra detta 52 ggr

Tack på förhand

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

## #2 — Erik Juhlin, 2003-05-28T11:27Z

<http://www.webforum.nu/showthread.php?s=&postid=346009#post346009>

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

## #3 — Bjarne A, 2003-05-28T22:17Z

Nu fattade jag :-)
Tack!!

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

## #4 — Bjarne A, 2003-05-29T23:40Z

mera problem

Har massa tabeller som hämtar text från en databas och försöker att framhäva 
veckans tabell med en egen färg och sedan även dagens cell med en tredje färg
med funktionen nedan

Det slutar ju med att veckan blir markerad med egen färg och men typ alla 
fredagsceller i alla tabeller blir markerade

Kan man inte skriva ihop dessa funktioner till en och bara färga cellerna

Koden nedan funkar ju inte men typ detta upplägget

felmeddelande:
Kompileringsfel i Microsoft VBScript fel '800a0401' 

Slut på programsats förväntas. 

/kalendarium/2.asp, rad 19 

color="#9999FF" ELSEIF WeekDayName(WeekDay(Date)) and not DatePart("ww", Date, 2, 2)

```
<%
Function color(dagen)
IF dagen = WeekDayName(WeekDay(Date)) and DatePart("ww", Date, 2, 2) then 
color="#9999FF" ELSEIF WeekDayName(WeekDay(Date)) and not DatePart("ww", Date, 2, 2)
color="#CCCCFF" ELSE
color="#FFFFCC"
End Function
%>
```

\<% =color("fredag22") %\>

gamla koden:

```
<%
function color(dagen)
If dagen = WeekDayName(WeekDay(Date)) then color="#9999FF" else color=""
End Function
%>
<%
function color2(veckansnummer)
If veckansnummer = DatePart("ww", Date, 2, 2) then color2="#CCCCFF" else color2="#FFFFCC"
End Function
%>

<%
SQL = "SELECT * FROM texter WHERE vecka = 22 "
set rs = connect.execute(SQL) 
%>

<table border="1" cellspacing="0" cellpadding="3" bgcolor="<% =color2(22) %>" bordercolordark="#FFFFFF" bordercolorlight="#FF9900">
  <tr> 
    <td width="50"><b>V2</b></td>
    <td width="100" bgcolor="<% =color("måndag") %>">Måndag</td>
    <td width="100" bgcolor="<% =color("tisdag") %>">Tisdag</td>
    <td width="100" bgcolor="<% =color("onsdag") %>">Onsdag</td>
    <td width="100" bgcolor="<% =color("torsdag") %>">Torsdag</td>
    <td width="100" bgcolor="<% =color("fredag") %>">Fredag</td>
    <td width="100" >Övrigt</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" width="50">_</td>
    <td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
    <td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
    <td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
    <td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
    <td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
    <td width="100" ><%= RS("ovrigt")%></td>
  </tr>
</table>

<%
rs.close
set rs = nothing
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78321-veckonummer-från-servern