Kan ikke gemme sekunderne ordentligt, hvorfor ikke?

Jeg gemmer dato/klokkeslet på denne måde:

<%
rdato = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time()

Conn.Execute("INSERT INTO tabel (rdato) VALUES (" & _
    "'" & rdato & "')")
%>



Når jeg trækker dem ud igen, gør jeg det på flg. måde:

<%
Dim qCreated
qCreated = RSs("rdato")
qCreated = addQ(day(qCreated)) & "-" & addQ(month(qCreated)) & "-" & year(qCreated) & " " & addQ(hour(qCreated)) & ":" & addQ(minute(qCreated)) & ":" & AddQ(Second(qCreated))
%>

<%=Server.HTMLEncode(qCreated)%>



Jeg har prøvet med disse 2 Functions:

'Function AddQ(vNumber)
'    AddQ = right("00" & vNumber, 2)
'End Function
Function AddQ(ByVal vNumber)
    AddQ = CStr(vNumber)

    If len(AddQ) < 2 Then _
        AddQ = "0" & AddQ
End Function

- og så får jeg f.eks. 07-04-2007 13:15:01



Jeg får altid TT:MM:0S, så derfor kigger jeg på, hvad der bliver gemt i databasen (MySQL), og her står der alle steder:

TT:MM:S



Den ovenstående function sætter så et 0 ind foran det sidste sekund-tal. Hvorfor?