<% action = request("action") if len(action) > 0 then if action = "Add" then 'date time dd = request.form("dd") mm = request.form("mm") yy = request.form("yy") hr = 0 mn = 0 startdatetime = mm & "/" & dd & "/" & yy & " " & hr & ":" & mn dd2 = request.form("dd2") mm2 = request.form("mm2") yy2 = request.form("yy2") hr2 = 0 mn2 = 0 enddatetime = mm2 & "/" & dd2 & "/" & yy2 & " " & hr2 & ":" & mn2 qryAdd = "insert into report_week(rp_week_start, rp_week_end) values(" & date2db(startdatetime) & ", " & date2db(enddatetime) & ")" set rsAdd =conn.execute(qryAdd) set rsAdd = nothing elseif action = "Delete" then rp_week_id = request("rp_week_id") qryDel = "delete from report_week where rp_week_id = "& rp_week_id &"" set rsDel = conn.execute(qryDel) set rsDel = nothing end if response.redirect "report_week.asp" end if %>
<% 'From menu = == Program sql = "select * from report_week" set rs = conn.execute(sql) response.write "Found : " & rs.recordcount & " item(s)" do while not rs.eof %> <% rs.movenext:loop set rs = nothing %>
Report : Week
 Start
 End
Edit
Del
 <%=FormatDay(rs("rp_week_start"), "e")%>  <%=FormatDay(rs("rp_week_end"), "e")%>
 
   
Start :
End :