datoproblemer igen igen

Prøv at bruge denne funk til at indsætte datoer i databasen:

Function ConvertToSqlDate(dato)
dim SQLYear,SQLMonth,SQLDay
  SQLYear = Year(dato)
  SQLMonth = Month(dato)
  SQLDay = Day(dato)
  if SQLDay<10 then
    SQLDay = 0&SQLDay
  end if
  if SQLMonth<10 then
    SQLMonth = 0&SQLMonth
  end if
  ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function

conn.execute("insert into MyTable(dato) values('"& ConvertToSqlDate("31-12-2004") &"')")

Det ser ud til at virke! Dog er der lige en sidste ting: Den skriver nu datoen ud sådan: 18-6-2004 - hvordan skriver jeg datoen ud sådan: 18-06-2004?

Hvis du har session.lcid = 1030 på siden, burde den skrive det ud med ekstra 0.

Tak for hjælpen!

no prob :o)
og tak for point.