Left(UCase(MonthName(cint(rs(0)))), 1) & Right(MonthName(cint(rs(0))), (Len(MonthName(cint(rs(0))))) -1)
Jag tror jag fick alla parenteserna rätt :p
Frågan#1
Hejsan!
Följande kod genererar "november 2008", "oktober 2008", osv. Nu till en liten fråga, hur gör jag om jag vill ha stor bokstav i början på respektive månad? Istället för "november 2008" så ska det ju vara "November 2008".
Lättlöst? Jag lyckas inte? Tacksam för all hjälp!
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db.mdb")
datum = now()
SQL = "select month(datum), year(datum) from blogg where (year(datum) = year(date()) and month(datum) < month(date())) or year(datum) < year(date()) group by month(datum),year(datum) order by year(datum) desc,month(datum) desc"
rs.Open SQL, MinCon
Do While Not rs.EOF
Response.Write "<a href=""default.asp?visaSida=arkiv&m=" & rs(0) & "&y=" & rs(1) & """>"& MonthName(cint(rs(0))) & " "& rs(1) & "</a><br>"
rs.movenext
Loop
%>
