Ændre format af dato

dato = Trim(Replace(date,"-","."))

Function ConvertDate(dtmDate)
    Months = right("00" & DatePart("m", dtmDate) ,2)
    Days = right("00" & DatePart("d", dtmDate) ,2)
    Years = right(DatePart("yyyy", dtmDate), 4)
    OutDate = days& "." & Months & "." & Years
    ConvertDate = OutDate
  End Function

response.write ConvertDate(date)

virker ikke :o(

Microsoft VBScript compilation  error '800a03ea'

Syntax error

filename.asp, line 111

Function ConvertDate(dtmDate)
^

Try this:
<%
  Dato        = FormatDateTime(rs("dato"),vbShortDate)
  MyDay        = Day(dato)
  MyMonth    = Month(Dato)
  MyYear    = Year(Dato)
  MyYear    = Right((MyYear),2)
  Dato        = MyDay & "." & MyMonth & "." & MyYear
%>

Så skulle den være der...

Og hvis du vil have resultatet med nullet, kan du bruge dette:

  Dato        = FormatDateTime(Dato,vbShortDate)
  MyDay        = Day(dato)
  If Len(MyDay) = "1" Then
  MyDay    = "0" & MyDay
  End If 
  MyMonth    = Month(Dato)
  If Len(MyMonth) = "1" Then
  MyMonth    = "0" & MyMonth
  End If
  MyYear    = Year(Dato)
  MyYear    = Right((MyYear),2)
  Dato        = MyDay & "." & MyMonth & "." & MyYear

Perfekt :o)