---
title: "Lägga till veckan?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/128485-lägga-till-veckan"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "appel_79"
published: "2005-05-19T10:53:24.000Z"
updated: "2005-05-19T21:51:35.000Z"
replies: 9
views: 295
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/128485-lägga-till-veckan"
---

# Lägga till veckan?

## #1 — appel_79, 2005-05-19T10:53Z

Jag skriver ut dom 10 kommande händelserna ur databasen med hjälp av enna kod: Men vill kunna visa vilken vecka det är.

\<%
Dim Conn, RS, arrLatest, arrNext

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("script/spelare/db6979WagE.mdb")

Set RS = Conn.Execute("SELECT TOP 10 strDate,strTeamName,strHomeTeam,strAwayTeam FROM tblMatch WHERE (strDate \>= date()) ORDER BY strDate")
If Not RS.EOF Then arrNext = RS.GetRows()
RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing

intRows = uBound(arrNext,2)

For cRows = 0 to intRows
  
Response.Write Left(arrNext(0,cRows),16) & " - " & arrNext(1,cRows)& " - " & arrNext(2,cRows) & " - " & Left(arrNext(3,cRows),20) & "\<br\>"
  
Next
%\>

Resultatet blir så här:
2005-05-20 19:00 - Juniorer - Hol/Säven - Upphärad IS
2005-05-20 17:30 - F 12 VIT - TBIS - Upphärad
2005-05-20 18:30 - P 10 - Upphärad - Halvorstorp
2005-05-20 19:00 - A-laget - Lilla Edet IF - Upphärad
2005-05-22 17:00 - Damer - Upphärad IS - Vänersborg IF B
2005-05-22 17:00 - B-laget - Elmer/Fåglum - Upphärads IS
2005-05-23 15:00 - F 12 RÖD - V21: TFK röd - Upphärad
2005-05-23 19:00 - F 15 - Sjuntorp/Upphärad - Långared/Östadskulle
2005-05-25 19:00 - A-laget - Upphärad - Nossebro IF
2005-05-26 19:00 - Juniorer - Upphärad IS - Vänersborg FK 2

Så här vill jag att det ser ut tex:
V.20
2005-05-20 - Juniorer - Hol/Säven - Upphärad IS
2005-05-20 17:30 - F 12 VIT - TBIS - Upphärad
2005-05-20 18:30 - P 10 - Upphärad - Halvorstorp
2005-05-20 19:00 - A-laget - Lilla Edet IF - Upphärad
v:21
2005-05-22 17:00 - Damer - Upphärad IS - Vänersborg IF B
2005-05-22 17:00 - B-laget - Elmer/Fåglum - Upphärads IS
2005-05-23 - F 12 RÖD - V21: TFK röd - Upphärad
V.22
2005-05-23 19:00 - F 15 - Sjuntorp/Upphärad - Långared/Östadskulle
2005-05-25 19:00 - A-laget - Upphärad - Nossebro IF
2005-05-26 19:00 - Juniorer - Upphärad IS - Vänersborg FK 2

Är det någon som vet hur jag lägger in detta i min kod?

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

## #2 — Jesper T, 2005-05-19T11:15Z

**Välkommen till WF!**

1\. Se över funktionen [FormatDateTime](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctformatdatetime.asp)
2\. V.v. Använd \[kod \]-taggar när du postar kod.

Testa detta:

```
weekno = ""
For cRows = 0 to intRows
myDateTime = cDate(arrNext(0,cRows))
	If weekno <> myDateTime then 
		Response.write "V. "& DatePart("ww", mydateTime, 2, 2) &"<br>"
		weekno = myDateTime
	End if
	Response.Write formatDateTime(mydateTime, 2) &" "& hour(mydateTime) &":"& minute(mydateTime) & " - " & arrNext(1,cRows)& " - " & arrNext(2,cRows) & " - " & Left(arrNext(3,cRows),20) & "<br>"
Next
```

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

## #3 — appel_79, 2005-05-19T11:42Z

Det fungerade, men jag vill bara att resultatet av en vecka kommer up en gång. Alla som kommer ut under vecka 20 skall visas under varand, sen lla under veca 21 under varand. Går det att få det så? Som i mitt exempel ovanför.

Nu blev resultatet så här:
V. 20
2005-05-20 0:0 - Juniorer - Hol/Säven - Upphärad IS
V. 20
2005-05-20 17:30 - F 12 VIT - TBIS - Upphärad
V. 20
2005-05-20 18:30 - P 10 - Upphärad - Halvorstorp
V. 20
2005-05-20 19:0 - A-laget - Lilla Edet IF - Upphärad
V. 20
2005-05-22 17:0 - Damer - Upphärad IS - Vänersborg IF B
2005-05-22 17:0 - B-laget - Elmer/Fåglum - Upphärads IS
V. 21
2005-05-23 0:0 - F 12 RÖD - V21: TFK röd - Upphärad
V. 21
2005-05-23 19:0 - F 15 - Sjuntorp/Upphärad - Långared/Östadskulle
V. 21
2005-05-25 19:0 - A-laget - Upphärad - Nossebro IF
V. 21
2005-05-26 19:0 - Juniorer - Upphärad IS - Vänersborg FK 2

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

## #4 — J.N., 2005-05-19T11:57Z

HEJ!

Spara undan aktuell vecka i en variabel, när du sedan loopat till nästa händelse, kontrollerar du om siffrorna är samma.
Är de inte det, skriver du ut veckan, om inte, skriv ut datum, händelse etc.

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

## #5 — appel_79, 2005-05-19T17:15Z

Oc hur gör man det?, är nybörjare så jag fattar int så mycket vad du menar med variabel.

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

## #6 — Guffa, 2005-05-19T17:23Z

Hm... Det saknas lite grundläggande programmeringskunskap här...

Du använder variabler, objekt och arrayer, men du vet inte vad det är för något?

En variabel använder man för att lagra ett värde i. Som till exempel intRows i din kod, som du använder för att lagra ett värde (som dock inte alls är antalet rader, utan högsta index för raderna i arrayen).

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

## #7 — appel_79, 2005-05-19T18:07Z

Detta hjälpte ju mig ingenting. Och ja jag saknar grundläggande programmeringskunskaper, men jag är ju här för att lära mig det.

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

## #8 — Jesper T, 2005-05-19T20:54Z

Glömde att det var veckor det handlade om...

```
weekno = ""
intRows = uBound(arrNext,2)

For cRows = 0 to intRows
myDateTime = cDate(arrNext(0,cRows))
	If weekno <> DatePart("ww", mydateTime, 2, 2) then 
		Response.write "<br>V. "& DatePart("ww", mydateTime, 2, 2) &"<br>"
		weekno = DatePart("ww", mydateTime, 2, 2)
	End if
	Response.Write formatDateTime(mydateTime, 2) &" "& left(hour(mydateTime) &"0",2) &":"& left(minute(mydateTime) &"0",2) & " - " & arrNext(1,cRows)& " - " & arrNext(2,cRows) & " - " & Left(arrNext(3,cRows),20) & "<br>"
Next
```

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

## #9 — appel_79, 2005-05-19T21:49Z

Tackar så hemskt mycket, nu är det bara en sak till. Hur får jag V. 20 att bli fet text? Jag får bara V. att bli fet och inte hela V. 20? Förstår ni hur jag menar?

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

## #10 — Jesper T, 2005-05-19T21:51Z

```
Response.write "<br><b>V. "& DatePart("ww", mydateTime, 2, 2) &"</b><br>"
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/128485-lägga-till-veckan