Skrive dato til database
HejJeg har et sikkert simpelt spørgsmål, jeg har et script som skal skrive nogle oplysninger til en database de fleste kommer fra en form men datoen gør ik, det er bare datoen på når man indtaster det.
Koden ser sådan her ud:
<body>
<%
type2 = Request("type2")
info = Request("info")
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=...; UID=...; PWD=...;"
strSQL = "SELECT * FROM handel"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, my_conn, 1, 3
%>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if type2 = "" then
Response.Write("Du skal vælge en type!<br>")
end if
if info = "" then
Response.Write("Du skal skrive en tekst!<br>")
end if
if type2 <> "" AND info <> "" then
rs.AddNew
rs("dato") = Response.Write FormatDateTime(Now, vbShortDate)
rs("type2") = Request.form("type2")
rs("info") = Request.form("info")
rs.update
Response.Redirect("handelsplads.asp")
end if
end if %>
<% rs.close
Conn.Close
set Conn = nothing
%>
</body>
Det er denne del af koden den melder fejl i:
rs("dato") = Response.Write FormatDateTime(Now, vbShortDate)
Håber i kan hjælpe.
