Dear all
Can anyone tell me why when I run the following script, which does work and does post data to the database, that it seems though to post the dates as times. So instead of posting the 'checkout_date' and 'duedate' as dates they get inserted into the database as time formats e.g. 00:00:57 and 00:10:45. Can anyone tell me whats going wrong?
Please see code below:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Request.Form("checkOut") then
customerID = Request.Form("customerID")
bookID = Request.Form("books")
checkedOutDate = Date()
dueDate = Date() + 30
Dim connString, sqlCheckOut, conn, sqlString
connString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("rltestingDB.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(connString)
sqlCheckOut = "INSERT INTO CUSTOMER_BOOKS (CUSTOMER_ID, BOOK_ID, CHECKED_OUT_DATE, DUE_DATE) VALUES (" & customerID & ", " & bookID & ", " & checkedOutDate & ", " & dueDate & ")"
conn.execute(sqlCheckOut)
'Response.Write(sqlCheckOut)
'Response.Write(Date())
conn.close
Set conn = Nothing
response.Redirect("checkOutDone.asp")
else
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Check book out</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="global.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim connString2, sqlBookList, conn2
connString2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("rltestingDB.mdb")
Set conn2 = Server.CreateObject("ADODB.Connection")
Set rsBookList = Server.CreateObject("ADODB.Recordset")
sqlBookList = "SELECT * FROM Books"
conn2.Open(connString2)
rsBookList.Open sqlBookList, conn2
%>
<fieldset>
<legend>Check Book Out</legend>
<div>
<form method="post" action="checkOut.asp">
<input type="hidden" name="checkOut" value="true">
<div><label for="Customer ID">Customer ID:</label><input type="text" name="customerID" /></div>
<div><label for="Book">Book:</label>
<select name="books">
<%while not rsBookList.eof%>
<option value="<%=rsBookList("BOOK_ID")%>"><%=rsBookList(" TITLE")%></option>
<%rsBookList.movenext
wend
%>
</select>
</div>
<div><input type="submit" value="Check out" /></div>
</form>
</div>
</fieldset>
<%
rsBookList.close
Set rsBookList = Nothing
conn2.close
Set conn2 = Nothing
%>
</body>
</html>
<%
End if
%>
Many thanks
Rob
Problems with inserting Date() in Access using ASP
