date.month.year til UK!

txtDato = Request.Form(txtdato")
MyDato = Year(txtDato) &"-"& Month(txtDato) &"-"& Day(txtDato)

Jeg har altid brugt denne lille herlige funktion (lavet af en eller anden=

Function DKDato(nDato, nFormat)
    If isDate(nDato) = False Then
        DKDato = nDato
        Exit Function
    End If
    Dim arrMinth
    Dim arrDays
    arrMonth = "januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december"
    arrMonth = Split(arrMonth,",")
    datDay = PutZero(Day(nDato))
    datMonth = PutZero(Month(nDato))
    datYear = Year(nDato)
    datHour = PutZero(Hour(nDato))
    datMin = PutZero(Minute(nDato))
    datSec = PutZero(Second(nDato))
    Select Case nFormat
    Case "#1"
        DKDato = datYear &"-"& datMonth &"-"& datDay
    Case Else
        DKDato = nDato
    End Select
End Function

Function PutZero(value)
    If Len(value) = 1 Then value="0"&value
    PutZero = value
End Function

- så er det bare:

Mydato = DKDato(Request.Form(txtdato"), "#1")

Er du sindsyg for en omgang for at lave så lidt!