Indsæt tid, og dato i DB

Min kode virker hvis ikke at jeg har Dato og Tid med...
Time feltet er Langt klokkeslætsformat
Date feltet er Kort datoformat
Hvad er der galt?

dim TheTime, NowTime
NowTime = Now
TheTime = hour(NowTime) & chr(58) & minute(NowTime) & chr(58) & second(NowTime)
TheDate = day(NowTime) & chr(45) & month(NowTime) & chr(45) & year(NowTime)

      UserIP = Request.ServerVariables ("REMOTE_ADDR")

      strSQL = "Insert into tbl_Fakelogins ("

      strSQL = strSQL & "User, "
      strSQL = strSQL & "Password, "
      strSQL = strSQL & "Date, "
      strSQL = strSQL & "Time, "
      strSQL = strSQL & "Ip) "

      strSQL = strSQL & "values('"
      strSQL = strSQL & Request.Form("strUser") & "','"
      strSQL = strSQL & Request.Form("strPass") & "','"
      strSQL = strSQL & NowDate & "','"
      strSQL = strSQL & NowTime & "','"
      strSQL = strSQL & UserIP & "')"

      Conn.Execute(strSQL)