datum problem

vet inte varför men det funkar nere hos mig på minserver men så fort jag testar uppe på webhotellet då
vill inte allafall datumet vill inte funka Istället för datum får jag bara 0000-00-00-00-00-00 i datbasen Varför?

 Set Conn = Server.CreateObject("ADODB.Connection")

conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"

rdatum = now

SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','" & rdatum & "')"

Set rs = Conn.Execute(SQL)

Set rs = nothing

:OO :OO

Antagligen har inte din VB-motor samma datumformat som mysql, skicka in mysql:s datumvärde istället:

SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "', now() )"

Parantes:

du kan effektivisera lite, byt:

Set rs = Conn.Execute(SQL)

Set rs = nothing

mot

Conn.Execute(SQL) ,,128

OK, Jag testat men samma resultat tyverr

Vad är rdatum för kolumntyp?
Vad händer om du skriver ut sql-frågan innan exekveringen?

SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "', now() )"

response.write SQL

kolumnen för datum heter rdatum

Jag skrev ut response.write SQL och jag använt ,'" & rdatum & "'
och fått den här '11/30/2002 11:25:55 PM' det borde fastna i databas men det gör inte !!!!

när jag använt now() då blev inget

Nu är det såhär

  Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = current_date
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','" & current_date & "')"
Set rs = Conn.Execute(SQL)
Set rs = nothing

Datafälten heter rdatum och typ date
i databasen visas ändå bara 0000-00-00 !
Vad är felet?

någon som vet eller har idéer ?

VAd ger

[red]
  Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = current_date
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','" & current_date & "')"
Response.Write SQL
Response.End
Set rs = Conn.Execute(SQL)
[/red]

Set rs = nothing

Den ger inget och likadant med datetime heller

Nu har jag fått '12/1/2002 2:48:02 PM' såhär

Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = now()
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','" & rdatum & "')"
Response.Write SQL
Response.End
Set rs = Conn.Execute(SQL)

Men i databasen fortfarande 0000-00-00!!!!

Testa

[red]
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = now()
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','current_timestamp')"
Response.Write SQL
Set rs = Conn.Execute(SQL),,128
[/red]

nej tyverr! den skriver ut bara 'current_timestamp' inget annat

Vad har du för typ av datumfält?

jag har datetime på datumfältet men testat även med date och datestamp oxå utan resultat

Jag chansar då jag aldrig använt mySQL men testa att ta bort fnuttarna

[red]
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = now()
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "', current_timestamp)"
Response.Write SQL
Set rs = Conn.Execute(SQL),,128
[/red]

Nej den vill inte!

Om om du typformaterar det hela då?
cDate(rdatum)
eller
datevalue(rdatum)

Jesper T
Det fattar jag inte riktigt vad du menar! Kan du förklara dig lite mer?

 Set Conn = Server.CreateObject("ADODB.Connection")
conn.open = "driver=MySQL;server=x;uid=x;pwd=x;database=xxx"
rdatum = now()
SQL = "Insert Into files(filename,namn,epost,telefon,rubrik,rdatum) Values 
('"& filename &"','"& Namn &"','" & epost & "','" & telefon & "','" & rubrik & "','" & [b]cDate[/b](rdatum) & "')"
Response.Write SQL
Response.End
Set rs = Conn.Execute(SQL)