SQL INSERT INTO mht dato og tid
Hvordan kan jeg får Sql insert into til at virke? Jeg får besked at der er syntax fejl med min sql sætningen. Jeg tror nok at fejl ligger i dato insætning. Er der noget der kan hjælpe mig?<!-- #include file=\"../include/dbtools.asp\" -->
<html>
<head>
<base href=\"http://master/testzone/asp/Default.asp\" fptype=\"TRUE\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Work On Project</title>
</head>
<body>
<%
Dim strSql, strProID, strEmpID, strComm, strEndTime, strButtom, strStartTime, strStatus, strErr, strProRowID
Dim Endhour, strDate, Endminute, starthour, startminute, Startyear, t, StartDay, tt,Startmonth
if session(\"lastPage\") = \"default\" then
strStatus = session(\"status\")
else
strStatus = \"\"
session(\"lastPage\") = \"default\"
end if
\'------------------------------------------------------------------
if strStatus = \"showForm\" then
if isDate(strDate)then
strDate = CDate (strDate)
end if
strEmpID = request.form(\"femployeeID\")
strProID = request.form(\"fProjectID\")
strProRowID = Request.form(\"fProjectRowID\")
strComm = request.form(\"fComment\")
strButtom = request.form(\"fButtom\")
StartHour = request.form(\"fHour\").item
EndHour = request.form(\"ffhour\").item
StartMinute = request.form(\"fminute\").item
EndMinute = request.form(\"ffMinute\").item
StartYear = request.form(\"fYear\").item
StartMonth = request.form(\"fmonth\").item
StartDay = request.form(\"fDay\").item
strDate = (StartDay & \"/\" & StartMonth & \"/\" & StartYear)
strStartTime = (startHour & startMinute)
strEndTime = (EndHour & EndMinute)
strErr = \"\"
\'-------------------------------------------------------------------------------
\'--Check if all fields have been filled ie. the code below ---------------------
\'-------------validates the form------------------------------------------------
if strEmpID = \"\" then strErr = strErr & \"MedarbejdeID SKAL udfyldes<br>\"
if strProID = \"\" then strErr = strErr & \"PojektID SKAL udfyldes<br>\"
if strdate = \"\" then strErr = strErr & \"Dato SKAL udfyldes<br>\"
if strStartTime = \"\" then strErr = strErr & \"Starttid SKAL udfyldes<br>\"
if strEndTime = \"\" then strErr = strErr & \"Sluttid SKAL udfyldes<br>\"
if strComm = \"\" then strErr = strErr & \"Kommenter SKAL udfyldes<br>\"
\'-------------------------------------------------------------------------------
if strErr = \"\" then
strStatus = \"dataok\"
else
strErr = \"<p><b>FejlRapport:</b></p>\" & strErr
strStatus = \"datafejl\"
end if
end if
\'-------------------------------------------------------------------------------
if strStatus = \"\" or strStatus = \"datafejl\" then
%>
<h2 align=\"center\">Registration af tidsforbrug på et projekt</h2>
<form action=\"<% Request.ServerVariables (\"SCRIPT_NAME\")%>\" method=\"post\">
<table>
<tr>
<th>MedarbejdeID:</th>
<td><input type=\"text\" value= \"<%=strEmpID%>\" name= \"femployeeID\" size=\"20\"></td>
</tr>
<tr>
<th></th>
<td></td>
</tr>
<tr>
<th>ProjektID:</th>
<td><input type=\"text\" value= \"<%=strProID%>\" name=\"fprojectID\" size=\"20\"></td>
</tr>
<tr>
<th></th>
<td></td></tr>
<tr>
<th>Vælg Dato:</th>
<td>Dag <select size=\"1\" name=\"fday\">
<%
\'-------------------------------------------------------------------------------
\'------------Select day from drop-down menu box---------------------------------
\'-------------------------------------------------------------------------------
for t = 1 to 31
Response.Write \"<option \"
if StartDay = t then
Response.Write \" selected >\"
else
Response.Write \">\"
end if
Response.Write t & \"</option>\"
next
%>
</select>
Mm <select size=\"1\" name=\"fmonth\">
<option value=\"Jan\">Januar</option>
<option value=\"Feb\">Febuar</option>
<option value=\"Mar\">Marts</option>
<option value=\"Apr\">April</option>
<option value=\"May\">May</option>
<option value=\"Jun\">Juni</option>
<option value=\"Jul\">Juli</option>
<option value=\"Aug\">August</option>
<option value=\"Sept\">September</option>
<option value=\"Oct\">Oktober</option>
<option value=\"Nov\">November</option>
<option value=\"Dec\">December</option>
</select>
År <select size=\"1\" name=\"fyear\">
<%
\'-------------------------------------------------------------------------------
\'---The following code selects year from drop-down menu box----------------------------
\'-------------------------------------------------------------------------------
for t = 2001 to 2015
Response.Write \"<option \"
if 2000 + StartYear = t then
Response.Write \" selected >\"
else
Response.Write \">\"
end if
Response.Write t & \"</option>\"
next
%>
</select>
</td></tr>
<tr>
<th></th>
<td></td></tr>
<tr>
<th>Vælge Starttid:</th>
<td>Time <select size=\"1\" name=\"fhour\">
<%
\'-------------------------------------------------------------------------------
\'------The following code selects hour from the drop-down menu----------------------------
\'-------------------------------------------------------------------------------
for t = 00 to 23
Response.Write \"<option \"
if Starthour = t then
Response.Write \" selected >\"
else
Response.Write \">\"
end if
Response.Write t & \"</option>\"
next
%>
</select>
Min. <select size=\"1\" name=\"fminute\">
<%
\'--------------------------------------------------------------------------------
\'---The following code selects minutes from the drop-down menu box------------------------
\'----------------------------------------------------------------------------- --
for t = 00 to 59
Response.Write \"<option \"
if startminute = t then
Response.Write \" selected >\"
else
Response.Write \">\"
end if
Response.Write t & \"</option>\"
next
%>
</select></td></tr>
<tr>
<th></th>
<td></td></tr>
<tr>
<th>Vælge Sluttid:</th>
<td>Time <select size=\"1\" name=\"ffhour\">
<option value=\"00\">00</option>
<option value=\"01\">01</option>
<option value=\"02\">02</option>
<option value=\"03\">03</option>
<option value=\"04\">04</option>
<option value=\"05\">05</option>
<option value=\"06\">06</option>
<option value=\"07\">07</option>
<option value=\"08\">08</option>
<option value=\"09\">09</option>
<option value=\"10\">10</option>
<option value=\"11\">11</option>
<option value=\"12\">12</option>
<option value=\"13\">13</option>
<option value=\"14\">14</option>
<option value=\"15\">15</option>
<option value=\"16\">16</option>
<option value=\"17\">17</option>
<option value=\"18\">18</option>
<option value=\"19\">19</option>
<option value=\"20\">20</option>
<option value=\"21\">21</option>
<option value=\"22\">22</option>
<option value=\"23\">23</option>
</select> Min <select size=\"1\" name=\"ffminute\">
<option value=\"00\">00</option>
<option value=\"01\">01</option>
<option value=\"02\">02</option>
<option value=\"03\">03</option>
<option value=\"04\">04</option>
<option value=\"05\">05</option>
<option value=\"06\">06</option>
<option value=\"07\">07</option>
<option value=\"08\">08</option>
<option value=\"09\">09</option>
<option value=\"10\">10</option>
<option value=\"11\">11</option>
<option value=\"12\">12</option>
<option value=\"13\">13</option>
<option value=\"14\">14</option>
<option value=\"15\">15</option>
<option value=\"16\">16</option>
<option value=\"17\">17</option>
<option value=\"18\">18</option>
<option value=\"19\">19</option>
<option value=\"20\">20</option>
<option value=\"21\">21</option>
<option value=\"22\">22</option>
<option value=\"23\">23</option>
<option value=\"24\">24</option>
<option value=\"25\">25</option>
<option value=\"26\">26</option>
<option value=\"27\">27</option>
<option value=\"28\">28</option>
<option value=\"29\">29</option>
<option value=\"30\">30</option>
<option value=\"31\">32</option>
<option value=\"33\">33</option>
<option value=\"34\">34</option>
<option value=\"35\">35</option>
<option value=\"36\">36</option>
<option value=\"37\">37</option>
<option value=\"38\">38</option>
<option value=\"39\">39</option>
<option value=\"40\">40</option>
<option value=\"41\">41</option>
<option value=\"42\">42</option>
<option value=\"43\">43</option>
<option value=\"44\">44</option>
<option value=\"45\">45</option>
<option value=\"46\">46</option>
<option value=\"47\">47</option>
<option value=\"48\">48</option>
<option value=\"49\">49</option>
<option value=\"50\">50</option>
<option value=\"51\">51</option>
<option value=\"52\">52</option>
<option value=\"53\">53</option>
<option value=\"54\">54</option>
<option value=\"55\">55</option>
<option value=\"56\">56</option>
<option value=\"57\">57</option>
<option value=\"58\">58</option>
<option value=\"59\">59</option>
</select></td></tr>
<tr>
<th>Kommenter:</th>
<td><textarea rows=\"4\" name=\"fcomment\" cols=\"33\"></textarea></td></tr>
<tr>
<th> </th>
<td><p align=\"center\"><input type=\"submit\" value=\"Gem\" name=\"fbuttom\" size=\"5\"></p>
</td></tr>
</table>
</form>
<%
strStatus = \"showForm\"
end if
if strStatus = \"dataok\" then
\'-------------------------------------------------------------------------------
\'--------the following code opens the data base and executes the Sql------------
\'-------------------------------------------------------------------------------
startDatabase (\"../fpdb/ProjectManagement.mdb\")
strSql = \"Insert into WorkOnProject (ProjectRowID, ProjectID, EmployeeID, Date, StartTime, EndTime, Comment)\" &_
\"values(\'\" & strProRowID & \"\',\'\" & strProID & \"\',\'\" & strEmpID & \"\',#\" & strDate & \"#,\'\" & strStartTime & \"\',\'\" & strEndTime & \"\',\'\" & StrComm & \"\')\"
db.execute( strSql )
Response.Write \"Dine data er nu oprettet!\"
strStatus = \"\"
lukdatabase
Response.End
end if
\'--------------------------------------------------------------------------------
session(\"Status\") = strStatus
\'--------------------------------------------------------------------------------
%>
</body>
</html>
