Noget i denne stil:
<%
function SQLDate(fDate)
dim SQLYear,SQLMonth,SQLDay
SQLYear = Year(fDate)
SQLMonth = right("0"&Month(fDate), 2)
SQLDay = right("0"&Day(fDate), 2)
SQLDate = "#"& SQLMonth&"-"&SQLDay&"-"&SQLYear &"#"
end function
if Request.querystring("mode") = "save" then
for each item in Request.Form("dates")
sql = "insert into dinTabel(dato,dagensRet) values("& SQLDate(item) &",'"& Request.Form("ret"&item) &"')"
conn.execute(sql)
next
Response.write "Dagensret er gemt"
response.end
end if
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>Untitled</title>
</head>
<body>
<form name="myForm" method="post" action="test.asp?mode=save">
<table border="0" cellspacing="0" cellpadding="2">
<%
'Startdate skal være mandag i ugen.
startdate = dateserial(2006,7,10)
for f=0 to (4*7)-1
tmpDate = dateadd("d",f,startdate)
if weekday(tmpDate,2) < 6 then
%>
<tr>
<td><%= weekdayname(weekday(tmpDate,2),false,2) &" den "& day(tmpDate) &"/"& month(tmpDate) %></td>
<td>
<input type="Hidden" name="dates" value="<%= tmpDate %>">
<input type="Text" name="ret<%= tmpDate %>" value="">
</td>
</tr>
<%end if
next %>
<tr>
<td><input type="Submit" value="Gem"></td>
</tr>
</table>
</form>
</body>
</html>
