"Philip Nunnegaard" <philip@fjerndettehitsurf.dk> skrev i en meddelelse
news:4728d385$0$15895$edfadb0f@dtext01.news.tele.dk...
>> Kan jeg på en eller anden måde ændre dagene fra at der står Monday til
>> der kommer til at stå Mandag etc.?
>
> Den hurtige løsning:
> dato = replace(dato,"Monday","Mandag")
> dato = replace(dato,"Tuesday","Tirsdag")
> (...)
> response.write dato
>
<snippet>
Tak for svaret.
Der er flere steder hvor koden omkring datoen står og det i flere filer. så
jeg tenderer til den hurtige løsning
men hos mig hedder det date, day,month
så skal der så ikke stå?:
date = replace(date,"Monday","Mandag")
date = replace(date,"Tuesday","Tirsdag")
etc
response.write date
Undskyld men jeg sender lige noget af koden som laver selve kalenderen(tror
jeg da
Og ja der ligger noget omkring dato-formater i databasen, dte er et langt
heltal felt så datoen 17-10-2007 = 39372 etc
----------------------------------
Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount
strSQL ="SELECT diary.id, diary.dte, diary.text_field,
Diary_Categorys.Category, Diary_Categorys.Colour, Diary_Categorys.BgColour"
& _
" FROM Diary_Categorys RIGHT JOIN diary ON Diary_Categorys.Cat_ID =
diary.Category " & _
" WHERE month(diary.dte)= " & month(dtCurViewMonth) & " and
year(diary.dte) = " & year(dtCurViewMonth)
' populate array with days of month
tmpDay = ""
do until objRs.EOF
if day(objRs("dte")) = tmpDay then
lnk = "<a href=diary_view.asp?id=" & objRs("id") & " style='color:" &
objRs("colour") & _
"; background:" & objRs("BgColour") & ";" &
"font-family:verdana;font-size:8pt;line-height:15px' title='" &
cdate(objRs("dte")) & "'>" &_
objRs("text_field") & "</a>"
----------------------------------
<snippet en masse væk fra koden>
Hilsen Fru Møller