Lägga till veckan?

9 svar · 290 visningar · startad av appel_79 19 maj 2005

appel_79Medlem sedan maj 200531 inlägg

Frågan19 maj 2005 10:53#1

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?

Jesper TMedlem sedan nov. 20017 144 inlägg

19 maj 2005 11:15#2

Välkommen till WF!

1. Se över funktionen FormatDateTime
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

appel_79Medlem sedan maj 200531 inlägg

19 maj 2005 11:42#3

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

J.N.Medlem sedan apr. 20031 660 inlägg

19 maj 2005 11:57#4

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.

appel_79Medlem sedan maj 200531 inlägg

19 maj 2005 17:15#5

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

GuffaMedlem sedan juni 2004533 inlägg

19 maj 2005 17:23#6

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).

appel_79Medlem sedan maj 200531 inlägg

19 maj 2005 18:07#7

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.

Jesper TMedlem sedan nov. 20017 144 inlägg

19 maj 2005 20:54#8

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

appel_79Medlem sedan maj 200531 inlägg

19 maj 2005 21:49#9

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?

Jesper TMedlem sedan nov. 20017 144 inlägg

19 maj 2005 21:51#10

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