Her er hele koden, hvis det kan hjælpe:
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop_2005.mdb")
if request.form("submit") <> "" then
For Each ID IN Request.Form("ID")
FormR1 = Request.Form("R1" & ID)
FormR2 = Request.Form("R2" & ID)
FormBetalt = Request.Form("Betalt" & ID)
FormStadeNr = Request.Form("StadeNr" & ID)
strSQL = "UPDATE Main SET R1=" & FormR1 & ", R2=" & FormR2 & ", StadeNr=" & FormStadeNr & ", Betalt=" & FormBetalt & " WHERE AutoID=" & ID & ""
Response.Write strSQL & "<br>"
oDB.execute (strSQL)
Next
End if
%>
<%
Dim strDato
strDato= Trim(Request.QueryString("DatoSoendage"))
response.write "<font face='Arial' size'2'>Søndag den :" & strDato & "<br> </font>"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<title>Bestillingsoversigt</title>
</head>
<body>
<font face="Arial" size="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td bgcolor="#CC0000"><b><font size="1" color="#FFFFFF">ID</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Navn</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Tlf</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Bestillingsdato</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Dato</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Stade Antal</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Rykker 1</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Rykker 2</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Betalt</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Stadenr.</font></b></td>
<td bgcolor="#CC0000"><b><font size="2" color="#FFFFFF">Actions</font></b></td>
</tr>
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop_2005.mdb")
p=0
IF strDato ="" THEN 'nr I1
response.write "Du har ikke valgt en dato!!"
ELSE
SQL = "SELECT * from main Where Dato='"& strdato &"' ORDER BY ToDayDate"
END IF 'nr I1
set oRS = oDB.Execute(SQL)
oRS.Movefirst
DO WHILE NOT oRS.EOF 'nr D1
'----------------------------------
if oRS("R1") = "" then 'nr I2
R1 = "true"
else
R1 = "false"
end if 'nr I2
'----------------------------------
if oRS("R2") = "" then 'nr I3
R2 = "true"
else
R2 = "false"
end if 'nr I3
'----------------------------------
if oRS("Betalt") = "" then 'nr I4
Betalt = "true"
else
Betalt = "false"
end if 'nr I4
'----------------------------------
if p=0 then 'nr I5
bg="bgcolor='#CCCCCC'"
else
bg=""
End if 'nr I5
%>
<form name="oversigt" method="Post" action="oversigt_admin.asp">
<tr>
<td <%= bg %>valign="top"><font size="1"><%= oRS("AutoID") %><input type=hidden name="ID" value="<%= oRS("AutoID") %>"></font></td>
<td <%= bg %>valign="top"><font size="2"><%= oRS("Navn") %></font></td>
<td <%= bg %>valign="top"><font size="2"><%= oRS("Tlf") %></font></td>
<td <%= bg %>valign="top"><font size="2"><%= oRS("ToDayDate") %></font></td>
<td <%= bg %>valign="top"><font size="2"><%= oRS("Dato") %></font></td>
<td <%= bg %>valign="top"><font size="2"><%= oRS("StadeAntal") %></font></td>
<td <%= bg %>valign="top"><font size="2"><input type="checkbox" id="Checks" name="R1" value="<%= oRS("R1") %>" <% if oRS("R1")&"" = "True" then response.write "checked" end if %>></font></td>
<td <%= bg %>valign="top"><font size="2"><input type="checkbox" id="Checks" name="R2" value="<%= oRS("R2") %>" <% if oRS("R2")&"" = "True" then response.write "checked" end if %>></font></td>
<td <%= bg %>valign="top"><font size="2"><input type="checkbox" id="Checks" name="Betalt" value="<%= oRS("Betalt") %>" <% if oRS("Betalt")&"" = "True" then response.write "checked" end if %>></font></td>
<td <%= bg %>valign="top"><font size="2"><select name="StadeNr">
<option value="0">n/a</option>
<%
Set oDB2 = Server.CreateObject("ADODB.connection")
oDB2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop_2005.mdb")
strSQL = "SELECT * FROM stadenr ORDER By Stadenr_tal "
Set DORS = oDB2.Execute(strSQL)
Do While Not DORS.EOF 'nr D2
IF DORS("Stadenr_tal") = "" OR DORS("Stadenr_tal") = 0 Then 'nr I6
%>
<option value="<%= DORS("Stadenr_tal")%>"><%= DORS("Stadenr_tal")%></option>
<% ELSE %>
<option value=" <%= DORS("Stadenr_tal")%>" <% If oRS("StadeNr") = DORS("Stadenr_tal") Then 'nr 6b
response.Write("selected")%><%end if%>><%= DORS("Stadenr_tal") %></option> <%'nr6b %>
<%
End If 'nr I6
%>
<%
DORS.MoveNext
Loop
'Wend 'nr D2
oDB2.Close
set DORS = Nothing
%>
</select></font></td>
<td <%= bg %>valign="top"><font size="2"></font> </td>
</tr>
<%
oRS.MoveNext
Loop 'nr D1
oDB.Close
set oRS = Nothing
if p=0 then 'nr I7
p=1
else
p=0
end if 'nr I7
%>
<input type="submit" value="Gem Ændringer" name="Submit">
</form>
</table>
<font face="Arial" size="2">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop_2005.mdb")
SQL= "SELECT COUNT(*) AS antal FROM main WHERE Dato ='" & strDato &"'"
set oRS = oDB.Execute(SQL)
Response.Write "Antal bestillinger: " & oRS("Antal")
%></font>
<%
oDB.Close
set oRS = Nothing
%>
</font>
</body>
</html>
