Format date dag-måned-år til dag-måned

<%
Session.LCID = 1030

Function GetDDMM(theDate)

    If isDate(theDate) Then

        If Len(Day(theDate)) = 1 Then
          GetDDMM = "0" & Day(theDate)
        Else
          GetDDMM = Day(theDate)
        End If
       
        If Len(Month(theDate)) = 1 Then
          GetDDMM = GetDDMM & ".0" & Month(theDate)
        Else
          GetDDMM = GetDDMM & "." & Month(theDate)
        End If
         
    Else
      GetDDMM = "Datoen er ikke gyldig"
    End If
   
End Function

Response.Write GetDDMM("08-03-2007")
%>

dato = day(date)&"."month(date)  giver dig dd.mm

cpufan -> Jeps! Lige hvad jeg har brug for! Takker