Danske månedsnavne og sortering
Hej eksperter!Jeg er nybegynder i ASP og har fået nedenstående kode sat sammen. Det virker (næsten) som den skal, men jeg er gået i stå med følgende:
Jeg vil gerne have udskrevet mine resultater med danske månedsnavne og sorteret dem i datoorden, men det kan jeg sgu´ ikke finde ud af.
Jeg arbejder i FrontPage og med en Access database.
En der vil hjælpe?
Hilsen
René
-------------------------------------
<%
' Denne forespørgelse fylder navne i formen "N1"
' SQL forespørgsel
strSQLN1 = "SELECT * FROM [Forening]"
Set rs = Conn.Execute(strSQLN1)
' Gennemløber Recordset (rs) med en løkke og fylder rs ind i formen
Do
Response.Write "<option>" & rs("Forening") & "</option>"
' Gå til næste Record i rs
rs.MoveNext
Loop While Not rs.EOF
%>
</select> <input type="submit" value="Find" name="Send"></p>
</form>
<%
'opretter ny variabel
strN1 = Request.Form("N1")
'strN1 = "Alle"
IF LEN(strN1)<2 THEN strN1 = "%"
' SQL forespørgsel
strSQL = "SELECT * FROM [Q_aktiviteter] WHERE [Forening] LIKE '" & strN1 & "'"
'Debug:
' Response.Write strSQL
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Her starter html tabellen
Response.Write "<table border=""2"" width=""100%"">"
' Hvis søning ikke er tom
IF NOT rs.EOF THEN
' Her laver jeg overskriften på tabellen
Response.Write "<tr><td valign=""top""><b>Dato</b></td><td valign=""top""><b>Forening</b></td><td valign=""top""><b>Begivenhed</b></td><td valign=""top"" align=""center""><b>Sted</b></td></tr>"
' Gennemløb Recordset (rs) med en løkke
Do
' Denne funktion laver danske måneds navne
Function MonthName(StrMon)
Select Case StrMon
Case 1
MonthName = "Januar"
Case 2
MonthName = "Februar"
Case 3
MonthName = "Marts"
Case 4
MonthName = "April"
Case 5
MonthName = "Maj"
Case 6
MonthName = "Juni"
Case 7
MonthName = "Juli"
Case 8
MonthName = "August"
Case 9
MonthName = "September"
Case 10
MonthName = "Oktober"
Case 11
MonthName = "November"
Case 12
MonthName = "December"
Case Else
MonthName = "ERROR!"
End Select
End Function
' Udskriv værdien af kolonnerne
Response.Write "<tr><td valign=""top"">" & rs ("Dato") & "</td><td valign=""top"">" & rs("Forening") & "</td><td valign=""top"">" & rs("Begivenhed") & "</td><td valign=""top"">" & rs("Sted") & "</td></tr>"
' Her laver jeg adskillensen mellem linierne i resultatet.
Response.Write "<tr><td width=""100%"" colspan=""6"" bgcolor=""#DFDFDF"" height=""1""></td></tr>"
' Gå til næste Record i rs
IF NOT rs.eof THEN rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
ELSE
' Tom søgning
Response.Write "<table border=""0"" width=""100%""><tr><td width=""100%""> </td></tr><tr><td width=""100%""><p align=""center"">Der er p.t. ingen aktiviteter for " & Request.Form("N1") & "</td></tr></table>"
END IF
' Lukker og "tømmer" rs
rs.close
set rs = Nothing
' Her slutter html tablen
Response.Write "</table>"
