hjælp til kalender på http://www.fiduusen.dk/design/kalender.asp

1. ASP har en dato funktion date() og now(). Her henter du dag, måned og år ud af.
Herefter chekker du i den løkke som scriptet kører om det er den aktuelle dato og sætter en "<b>" "</b>" rundt om.

kan du give et eksempel på hvor og hvad der skal sættes ind. her er min kode.

<Script Language=VBscript RUNAT=Server>


' *****


'FejlNavn:  anvendes ved fejlmeldinger
'Felt:      indeholder feltværdien
'Req:        Yes = feltet skal udfyldes

Function CheckDato (FeltNavn, Felt, Req)
dim Fejl, NyFejlTekst
Felt = trim(Felt)
 
  ' *** VALIDER FELTET *** 
  if Felt = "" AND LCase(Req) = "yes" then
    FejlTekst = FejlTekst & FeltNavn & ", skal udfyldes<br>"
    Fejl = True
  else
    Fejl = False 
  end if 
   
  if Felt <> "" and Fejl = False then
    if not IsDate(Felt) then 
      FejlTekst = FejlTekst & FeltNavn & ", er ikke en dato<br>"
      Fejl = True
    end if 
  end if
  ' *** VALIDER FELTET, slut *** 

  ' *** Formater FELTET *** 
  if Fejl = False then
    if Felt <> "" then
      Felt = CDate(Felt)
    end if
  end if 
  ' *** Formater FELTET, slut *** 
 
  CheckDato = Felt
end Function


' *****


Function WriteMonthYear(dato)
dim strHTML, strLinkTo
    strLinkTo = "kalender3.asp"
    startdato = CheckFirstMonthDay(dato)
    strHTML = "<TR class='kd'><td colspan='8'><table width='100%'><tr>"
    strHTML = strHTML & "<td width='10%' class='kd'><a class='k1' href='" & strLinkTo & "?startdato=" & startdato-1 & "'><<</a></td>"
    strHTML = strHTML & "<td width='' class='kd' align='right'>" & GetMonthText(GetMonth(startdato)) & "</td'>"
    strHTML = strHTML & "<td width='' class='kd' align='left'>&nbsp;" & GetYear(startdato) & "</td>"
    strHTML = strHTML & "<td width='10%' class='kd'><a  class='k1' href='" & strLinkTo & "?startdato=" & startdato+31 & "'>>></a></td>"
    strHTML = strHTML & "</tr></table></td></tr>"
    WriteMonthYear = strHTML
End Function


Function WriteUgeDage(dato)
dim strHTML, ugedag
    ugedag = array("M","T","O","T","F","L","S")

    startdato = CheckFirstMonthDay(dato)
    strHTML = "<tr bgcolor=#5d7f9c>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><span class='tekst'><b>&nbsp;</b></span></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(1) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(2) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(3) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(4) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(5) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(6) & "</span></b></td>"
    strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(7) & "</span></b></td>"
    strHTML = strHTML & "</tr>"

    WriteUgeDage = strHTML
End Function

Function WriteDage(dato)
dim strHTML, ugedag, maaned, count, startdato
    startdato = CheckFirstMonthDay(dato)
    maaned = getMonth(startdato)
   
    strHTML = "<tr height='18'><td class='kw' align='center'><span class='sorttekst'><b>" & GetWeekOfYear(startdato) & "</b></span></td>"
    if (GetDayOfWeek(startdato) > 1) then
        strHTML = strHTML & "<td class='pastdays' colspan='" & GetDayOfWeek(startdato)-1 & "' align='center'>&nbsp;</td>"
    end if
   
    do while maaned = getMonth(startdato)
        if (GetDayOfWeek(startdato)) = 1 and (startdato <> dato) then
            strHTML = strHTML & "</td></tr><tr height='18'><td class='kw' align='center'><span class='sorttekst'><b>" & GetWeekOfYear(startdato) & "</b></span></td>"
        end if
        strHTML = strHTML & "<td align='center' class='kd'"
        strHTML = strHTML & "><span class='sorttekst'><a class='kd' href='#' onclick=java script:changeDate('" & startdato & "');>" & GetDayOfMonth(startdato) & "</a></span></td>"
        startdato = startdato + 1
    loop
    if (GetDayOfWeek(startdato) <> 1) then
        strHTML = strHTML & "<td class='pastdays' colspan='" & 8-GetDayOfWeek(startdato) & "'>&nbsp;</td>"
    end if
    WriteDage = strHTML
End Function


' *****


Function GetYear(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetYear = datepart("yyyy", locDato, vbMonday, vbFirstFourDays)
end function

Function GetQuarter(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetQuarter = datepart("q", locDato, vbMonday, vbFirstFourDays)
end Function

Function GetMonth(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetMonth = datepart("m", locDato, vbMonday, vbFirstFourDays)
end function

Function GetDayOfYear(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetDayOfYear = datepart("y", locDato, vbMonday, vbFirstFourDays)
end function

Function GetDayOfMonth(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetDayOfMonth = datepart("d", locDato, vbMonday, vbFirstFourDays)
end function

Function GetDayOfWeek(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetDayOfWeek = datepart("w", locDato, vbMonday, vbFirstFourDays)
end function

Function GetWeekOfYear(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetWeekOfYear = datepart("ww", locDato, vbMonday, vbFirstFourDays)
end function

Function GetHour(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetHour = datepart("h", locDato, vbMonday, vbFirstFourDays)
end function

Function GetMinute(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetMinute = datepart("n", locDato, vbMonday, vbFirstFourDays)
end function

Function GetSecond(dato)
    dim locDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    GetSecond = datepart("s", locDato, vbMonday, vbFirstFourDays)
end function


Function GetDaysRestOfMonth(dato)
    dim locDato, locYear, locDayOfMonth, locMonth, locNewDato
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if

    locDayOfMonth = GetDayOfMonth(locDato)
    locMonth = GetMonth(locDato)
    locYear = GetYear(locDato)
    if locMonth = 12 then
        LocMonth = 1
        locYear = locYear + 1
    else
        locMonth = locMonth + 1
    end if
    locNewDato = DateSerial(locYear, locMonth, 1)
    GetDaysRestOfMonth = locNewDato-locDato
end function

Function GetDaysRestOfYear(dato)
    dim locDato, locNewDato, locYear
    if dato = "" then
        locDato = now
    else
        locDato = dato
    end if
    locYear = GetYear(locDato)

    locNewDato = DateSerial(locYear, 12, 31)
    GetDaysRestOfYear = locNewDato-locDato+1
end function

Function CheckFirstWeekDay(startdato)
    if GetDayOfWeek(startdato) <> 1 then
        startdato = startdato - (GetDayOfWeek(startdato) - 1)
    end if
    CheckFirstWeekDay = startdato
end Function

Function CheckFirstMonthDay(startdato)
    if GetDayOfMonth(startdato) <> 1 then
        startdato = startdato - (GetDayOfMonth(startdato) - 1)
    end if
    CheckFirstMonthDay = startdato
end Function

Function GetMonthText(maanednr)
dim maaned
    maaned = array("Januar","Februar","Marts","April","Maj","Juni","Juli","August","September","Oktober","November","December")
    GetMonthText = maaned(maanednr-1)
end Function

Function GetDayText(dagnr)
dim ugedag
    ugedag = array("Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag","Søndag")
    GetDayText = MID(ugedag(dagnr-1),1,1)
end Function

' ***

function SQLDATO(dato)
dim dd, mm, yy

    'dim datoLng, den31121999
    'datoLng =  Lng (CDate(36525))
    'den31121999 = CDate(36525)

    if  mid (CStr(CDate(36525)),1,2) = 31 then
        dd = mid (CStr(Dato),1,2)
        mm = mid (CStr(Dato),4,2)
    else
        dd = mid (CStr(Dato),4,2)
        mm = mid (CStr(Dato),1,2)
    end if 

    'check 2 eller 4 cifret årstal
    if Len (CStr(CDate(36525))) = 8 then
        yy = mid (CStr(CDate(Dato)),7,2) 
    else
        yy = mid (CStr(CDate(Dato)),7,4) 
    end if 
   
    'mm = CInt(mm)
    'dd = CInt(dd)
    SQLDATO = mm & "-" & dd & "-" & yy
    'else
    '  SQLDATO = dato
    'end if 
end function

</Script>

har løst det...

Du skulle måske lige skrive til andre som sidder med samme problem hvordan du har løst det.

ja ok, men jeg har lige fundet ud af at jeg faktisk desværre ikke har løst det alligevel. jeg kan ikke få den til at skrive den dato man har valgt med fed skrift..

Okay ... prøv at skrive tilbage ved en 18 tiden hvis der ikke er kommet en anden løsning så skal jeg nok lige prøve at kigge på det :)

ok tak..