Do While - loop problem
hejjeg har en total liste hvor hver record bliver vist i dtabasen ud fra et request.querystring - dette virker fint. et af mine felter skal hentes fra en tabel og vises i en dropdown der viser tallene fra 1-50. Der er et tilsvarende felt i hoved tabelen ovr det vaglte nr bliver skrevet i, så jeg kan matche de to tal og så er det meningen at dropdownen skal vise det valgte nr.
jeg kan godt få vist dataen men der er problemer emd mine do while loops, jeg har to, ved ikke om man kan det?
håber der er en som kan finde min fejl koden kommer her:
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<title>Bestillingsoversigt</title>
</head>
<body>
<form name="oversigt" method="Post" action="oversigt_admin.asp">
<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
response.write "Du har ikke valgt en dato!!"
ELSE
SQL = "SELECT * from main Where Dato='"& strdato &"' ORDER BY ToDayDate"
set oRS = oDB.Execute(SQL)
oRS.Movefirst
DO WHILE NOT oRS.EOF
'----------------------------------
if oRS("R1") = "" then
R1 = "true"
else
R1 = "false"
end if
'----------------------------------
if oRS("R2") = "" then
R2 = "true"
else
R2 = "false"
end if
'----------------------------------
if oRS("Betalt") = "" then
Betalt = "true"
else
Betalt = "false"
end if
'----------------------------------
if p=0 then
bg="bgcolor='#CCCCCC'"
else
bg=""
End if
%>
<tr>
<td <%= bg %>valign="top"><font size="1"><%= oRS("AutoID") %><input type=hidden name="hidSubmitted" 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("AutoID") %>" <% 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("AutoID") %>" <% 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("AutoID") %>" <% if oRS("Betalt")&"" = "True" then response.write "checked" end if %>></font></td>
<td <%= bg %>valign="top"><font size="2"><select name="Dropdown">
<%
Set oDB2 = Server.CreateObject("ADODB.connection")
oDB2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop_2005.mdb")
strSQL = "SELECT Stadenr_tal FROM stadenr ORDER By Stadenr_tal "
Set DORS = oDB2.Execute(strSQL)
Do While Not DORS.EOF
IF DORS("Stadenr_tal") = "" Then
%>
<option value=" <%= DORS("Stadenr_tal")%>"><%= DORS("Stadenr_tal")%></option>
<% ELSE %>
<option value=" <%= DORS("Stadenr_tal")%>" <% If oRS("StadeNr") = DORS("Stadenr_tal") Then
response.Write("selected")%>><%= DORS("Stadenr_tal") %></option>
<%
DORS.MoveNext
loop
End If
oDB2.Close
set DORS = Nothing
%>
</select></td>
<td <%= bg %>valign="top"><font size="2"></font> <input type="submit" value="Send R1" name="submit"> <input type="submit" value="Send R2" name="submit"> <input type="submit" value="Betalt" name="submit"></td>
</tr>
<%
oRS.MoveNext
Loop
End IF
oDB.Close
set oRS = Nothing
if p=0 then
p=1
else
p=0
end if
%>
</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 indtastede bestillinger: " & oRS("Antal")
%></font>
<%
End if
oRS.Movenext
oDB.Close
set oRS = Nothing
%>
</font>
</form>
</body>
</html>
