Problemer med Dato function

Ved ikke om jeg skriver det rigtige sted men her kommer det.

Jeg har følgende på min ASP side(er).

på min data_add.asp side har jeg:

Response.Write("Dato: <input type=""text"" name=""Date"" size=""10"" maxlength=""100"">")
============================================
Den skal køre igennem denne funktion:

Function ConvertDate(dtmDate,intFormat)
OutDate = DatePart("yyyy", dtmDate) & "-" & DatePart("m", dtmDate) & "-" & DatePart("d", dtmDate)
If intFormat = 0 Then
    strOut = OutDate
End If

ConvertDate = strOut
End Function

============================================

Og skal så indsættes i Date feltet i databasen:
Gøres som følger i filen data_create.asp:

intDate        =    ConvertDate(request.querystring("Date"),0)

så åbner jeg min database og indæstter:
SQL = "INSERT INTO DATA(Date) Values (" & intDate & ")


Men det virker ikke hvad kan fejlen være?