Loopa fram poster till rätt kategori!

Har kommit så här långt i mitt sökande och progammerande, fungerar tyvärr inte riktigt, nu listar den inte fram något, det finns bara en enda post i databasen, där strEventManad är April. Men inget skrivs ut under April. står bara Månaden tom..

Och min kod känns verkligen som om jag har hämtat den direkt från Idg's webbstudio från 1997. Hårtussarna börjar ryka från min skalp nu..

<%

	Set EventConnection = Server.CreateObject("ADODB.Connection")
	EventConnection.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=; DATABASE=; USER=; PASSWORD=; OPTION=3;"

	strEventSQL = "SELECT * FROM tblevenemang"
	set RSEventSQL = EventConnection.Execute (strEventSQL)

response.write "<b>Januari</b><br><br>"
if strEventManad = "Januari" then
	do while not RSEventSQL.eof
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a></b><br>" & RSEventSQL("strEventDatum") & "<br><br>"
     	RSEventSQL.MoveNext
	Loop
else
	response.write "månaden tom - Januari<br><br>"
end if

response.write "<b>Februari</b><br><br>"
if strEventManad = "Februari" then
	do while not RSEventSQL.eof
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & strEventSQL("strEventID") & """ title=""" & strEventSQL("strEventRubrik") & """>" & strEventSQL("strEventRubrik") & "</a></b><br>" & strEventSQL("strEventDatum") & "<br><br>"
     	RSEventSQL.MoveNext
	Loop
else
	response.write "månaden tom - februari<br><br>"
end if

response.write "<b>Mars</b><br><br>"
if strEventManad = "Mars" then
	do while not RSEventSQL.eof
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & strEventSQL("strEventID") & """ title=""" & strEventSQL("strEventRubrik") & """>" & strEventSQL("strEventRubrik") & "</a></b><br>" & strEventSQL("strEventDatum") & "<br><br>"
     	RSEventSQL.MoveNext
	Loop
else
	response.write "månaden tom - mars<br><br>"
end if

response.write "<b>April</b><br><br>"
if strEventManad = "April" then
	do while not RSEventSQL.eof
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & strEventSQL("strEventID") & """ title=""" & strEventSQL("strEventRubrik") & """>" & strEventSQL("strEventRubrik") & "</a></b><br>" & strEventSQL("strEventDatum") & "<br><br>"
     	RSEventSQL.MoveNext
	Loop
else
	response.write "månaden tom - april<br><br>"
end if

response.write "<b>Maj</b><br><br>"
if strEventManad = "Maj" then
	do while not RSEventSQL.eof
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & strEventSQL("strEventID") & """ title=""" & strEventSQL("strEventRubrik") & """>" & strEventSQL("strEventRubrik") & "</a></b><br>" & strEventSQL("strEventDatum") & "<br><br>"
     	RSEventSQL.MoveNext
	Loop
else
	response.write "månaden tom - Maj<br><br>"
end if

	RSEventSQL.Close
	EventConnection.Close

%>

Du har glömt lite citationstecken runt månadsnamnen Mars, April och Maj.

uppdaterade koden nu!

Nu körs koden, men får bara fram:

Januari

månaden tom - Januari

Februari

månaden tom - februari

Mars

månaden tom - mars

April

månaden tom - april

Maj

månaden tom - Maj

Om någon har en bättre lösning för att loopa fram

	Response.write "<b><a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a></b><br>" & RSEventSQL("strEventDatum") & "<br><br>"

under rätt månad baserat på strEventManad, som kan innehålla, ordet: Januari, februari, mars, april osv....

Du sätter aldrig variabeln strEventManad till någonting.

I övrigt bör du helt klart loopa igenom recordsetet en gång.

<%

	Set EventConnection = Server.CreateObject("ADODB.Connection")
	EventConnection.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=; DATABASE=; USER=; PASSWORD=; OPTION=3;"

	strEventSQL = "SELECT * FROM tblevenemang"
	set RSEventSQL = EventConnection.Execute (strEventSQL)

	do while not strEventSQL.eof
		if RSEventSQL("strEventManad") <> strPreviousMonth then 
			response.write "<b>" & strMonth & "</b><br><br>"
			strPreviousMonth = RSEventSQL("strEventManad")
		end if
     		Response.write "<b><a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a></b><br>" & RSEventSQL("strEventDatum") & "<br><br>"
     	strEventSQL.MoveNext
	Loop

	RSEventSQL.Close
	EventConnection.Close

%>

Visserligen får du inte fram månader utan data, men det kanske är ok?

Såg att jag hade missat att några strEventSQL egentligen skulle hete RSEventSQL, har markerat dessa i felstil och fungerar nu. Nu får jag fram data. Men undrar vad de markerade variablerna är för något? :q.

strEventSQL = "SELECT * FROM tblevenemang"
	set RSEventSQL = EventConnection.Execute (strEventSQL)

	do while not [B]RSEventSQL[/b].eof

		if RSEventSQL("strEventManad") <> [u]strPreviousMonth[/U] then 
			response.write "<b>" & [U]strMonth[/U] & "</b><br><br>"
			[U]strPreviousMonth[/U] = RSEventSQL("strEventManad")
		end if

     		Response.write "<a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a><br>" & RSEventSQL("strEventDatum") & "<br><br>"
     	[B]RSEventSQL[/b].MoveNext
	Loop

	RSEventSQL.Close
	EventConnection.Close

Testsida för skriptet: http://www.securityfocus.se/public/event.asp

Det fetstilta är ju namnet på ditt recordset. Det kan ju vara vad som helst, men det är ju det namnet du har valt.

Tror att jag har grävt min egen grav med det vi diskuterade nyss, har tänkt om och skapat följande i MySQL.

Korthet: Jag vill loopa fram ett antal poster från en tabell och lägga dessa under rätt månad. Jag önskar att alla tolv månader skrivs ut och sedan läggs posterna under rätt månad. Om ingen post finns för någon månad så ska en text skrivas ut: "Inga händelser under denna månad..".

Tblevenemang
----------------------------------------
strEventID | strEventRubrik | strEventDatum | StrEventManad | strEventInfo | strEventLank
-----------------------------------------------------------------------------------------------------------
1	    datakurs		1/18/2006        1            infotext       http://adress.se
2	    matkurs		4/13/2006        4            infotext       http://adress2.se

Förklaring, strEventManad innehåller ett nummer mellan 1-12 som symboliserar Januari, februari... där 1 betyder Januari osv..

och sedan har jag skapat en tabell till som innehåller månaderna.

tblEventKat
----------------------------------------
strKatid | strEventmanadsNamn | 
-----------------------------------------------------------------------------------------------------------
1	    Januari		
2	    Februari
3	    Mars
4	    April
5	    Maj
6	    Juni
7	    Juli
8	    Augusti
9	    September
10	    Oktober
11	    November
12	    December

Jag vill på något sätt lista fram månaderna efter varandra så här och samtidigt hämta tillhörande poster från Evenemangstabellen och att dessa sorteras under rätt månad genom att jag har märkt varje post i evenemangstabellen med ett StrEventManad nummer som syftar till strKatid i den andra tabellen. :

<html>
...

<b>Januari</b><br>
<%här skrivs alla poster ut som har StrEventManad = 1 som syboliserar Januari%>
....
<b>April</b><br>
<%här skrivs alla poster ut som har StrEventManad = 4 som syboliserar April%>

...
</html>

Response.write "<a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a><br>" & RSEventSQL("strEventDatum") & "<br><br>"

Sök ut data med månadstabellen som grund

SELECT k.strEventmanadsNamn,e.* FROM tblEventKat k
LEFT OUTER JOIN Tblevenemang e ON k.strKatID=e.StrEventManad order by strKatID

Då får du ut alla månader, oavsett om det finns något relaterat event eller inte. Finns det inte så kan du skriva ut det.

do while not RSEventSQL.eof

		if RSEventSQL("strEventmanadsNamn") <> strPreviousMonth then 
			response.write "<b>" & strMonth & "</b><br><br>"
			strPreviousMonth = RSEventSQL("strEventmanadsNamn")
		end if
               if isnull(RSEventSQL("strEventID")) then
                    Response.Write "inget denna månad"
               else
     		    Response.write "<a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a><br>" & RSEventSQL("strEventDatum") & "<br><br>"
end if
     	RSEventSQL.MoveNext
	Loop

Namnet strKatId och StrEventManad indikerar att dessa kolumner har någon form av strängdatatyp, vilket inte är rimligt, med tanke på vad de innehåller (och för sorteringens skull). I princip är också kolumnen StrEventManad onödig, eftersom månaden finns i själva datumet.

emission skrev:

Sök ut data med månadstabellen som grund

SELECT k.strEventmanadsNamn,e.* FROM tblEventKat k
LEFT OUTER JOIN Tblevenemang e ON k.strKatID=e.StrEventManad order by strKatID

Då får du ut alla månader, oavsett om det finns något relaterat event eller inte. Finns det inte så kan du skriva ut det.

do while not RSEventSQL.eof

		if RSEventSQL("strEventmanadsNamn") <> strPreviousMonth then 
			response.write "<b>" & strMonth & "</b><br><br>"
			strPreviousMonth = RSEventSQL("strEventmanadsNamn")
		end if
               if isnull(RSEventSQL("strEventID")) then
                    Response.Write "inget denna månad"
               else
     		    Response.write "<a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a><br>" & RSEventSQL("strEventDatum") & "<br><br>"
end if
     	RSEventSQL.MoveNext
	Loop

Namnet strKatId och StrEventManad indikerar att dessa kolumner har någon form av strängdatatyp, vilket inte är rimligt, med tanke på vad de innehåller (och för sorteringens skull). I princip är också kolumnen StrEventManad onödig, eftersom månaden finns i själva datumet.

Då presenteras det helt rätt: http://www.securityfocus.se/public/event.asp

Men jag förstår fortfarande inte vad de fetstilta riktigt betyder?

do while not RSEventSQL.eof

		if RSEventSQL("strEventmanadsNamn") <> [b]strPreviousMonth[/b] then 
			response.write "<b>" & [b]strMonth[/b] & "</b><br><br>"
			[B]strPreviousMonth[/b] = RSEventSQL("strEventmanadsNamn")
		end if
               if isnull(RSEventSQL("strEventID")) then
                    Response.Write "inget denna månad"
               else
     		    Response.write "<a href=""/public/EventInfo.asp?id=" & RSEventSQL("strEventID") & """ title=""" & RSEventSQL("strEventRubrik") & """>" & RSEventSQL("strEventRubrik") & "</a><br>" & RSEventSQL("strEventDatum") & "<br><br>"
end if
     	RSEventSQL.MoveNext
	Loop

strMonth är en miss, den glömde jag att skapa i min kod. Byt den mot RSEventSQL("strEventManadsnamn"). strPreviousmonth är bara en variabel att jämföra med för att se om det är samma månad som föregående post eller inte.

Funkar prima nu! Tackar för all hjälp och ert tålamod. Borde ha vid det här laget ha lärt mig att skriva utförligt och bifoga kod/ritning så att andra förstår vad man vill uppnå.

Återigen, tack!

Ni kan nu se skriptet "In action" http://www.securityfocus.se/event/index.asp

Riktigt nöjd!