I am having a brain freeze and need help. I have a routine that inserts a record into a database. I NOW want it to auto include the current date. The 'date' field in my db is called date.

What is the proper value that i use...i presume it is date() with some sort of character, ie ampersand or quotation, but I cannot get the right syntax



Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout=10
conn.Open "DSN=mydatabase"
sqlStr="INSERT INTO roster(ssn,first,last,address,city,state,zip,pin,d ate)"
sqlStr=sqlStr & "VALUES('" & ssn & "','" & fname & "','" & lname & "','" & address & "','" & city & "','" & st & "','" & zip & "','" & pin & "',date())"
conn.Execute sqlStr

conn.Close
Set conn=nothing

Thanks
John

jrwlkn,
If your using SQL Server, MSDE (Probably Access, not sure) you need to use getDate() at the database or date() at the server.
eg
SQL Server
sqlStr="INSERT INTO roster(ssn,first,last,address,city,state,zip,pin,r Date)"
sqlStr=sqlStr & "VALUES('" & ssn & "','" & fname & "','" & lname & "','" & address & "','" & city & "','" & st & "','" & zip & "','" & pin & "',getDate())"

or In Code
sqlStr="INSERT INTO roster(ssn,first,last,address,city,state,zip,pin,r Date)"
sqlStr=sqlStr & "VALUES('" & ssn & "','" & fname & "','" & lname & "','" & address & "','" & city & "','" & st & "','" & zip & "','" & pin & "','" & date() & "')"

BUT BUT BUT

I stongly recommend you call your field anything but 'date'. Date is used as a keyword in almost every database and language. It will, at best, need to be treated differently in the statement like [date] and at worst you will wrestle with for ages, get nowhere, then change it.

In the examples i have used rDate.



======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

Try this. Let me know how it works.

MyDate = date()

set rs = server.createobject("adodb.recordset")
sql = "select * from Roster"
rs.open sql, "dsn=MyDatabase", 3, 3
    rs.addnew
    rs("ssn") = ssn
    rs("first") = first
    rs("last") = last
    rs("address") = address
    rs("city") = city
    rs("state") = state
    rs("zip") = zip
    rs("pin") = pin
    rs("date") = MyDate
    rs.update