Presentation av recordsetet
Jag har denna kod, som skall vara en en lista man fyller i om man ska vara borta. men varför skrivs ordet tomt ut samma antal gånger det finns noteringar för veckan... jag vill bara att det ska skrivas ut en gång ifall det inte finnns någon anteckning för just den dagen i den veckan... Hur skall man göra?--------------------------------kodsnutt--------------------
vecka = DatePart("ww", Date, 2, vbFirstFourDays)
vnr=request.querystring("vnr")
if vnr ="" then
vnr = vecka
end if
dim Connectionfran,SQLstringKfran,rsfran
Set Connectionfran = Server.CreateObject("ADODB.Connection")
Connectionfran.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/franvaro.mdb")
SQLstringKfran="select* from franvaro where vecka ='"&vnr&"'"
SET rsfran=Connectionfran.Execute(SQLstringKfran)
%>
<table border="0" width="550"><tr>
<td><div align="center">
<table width="550" border="0"><tr>
<td width="90"><a href="java script:popUp('franvaroant.asp')" class="submeny">Lägg till</a></td>
<td align="center" valign="top" width="">
<span class="tdgast">Frånvarolista v. <%= vnr %></span></td>
<td align="right" width="90">
<FORM NAME="myform" class="select">
<SELECT NAME="dest" SIZE=1 onChange="leapto(this.form)">
<option selected value="intranet.asp?textid=31">Välj här</option>
<% For t=0 To 10%>
<option value="intranet.asp?textid=31&vnr=<%=vecka+t%>">Vecka <%=vecka+t%></option>
<% Next %>
</SELECT>
</FORM>
</td>
</tr></table>
</div>
</td>
</tr>
<tr>
<td><span class="tdsubrub">Måndag</span><br>
<% If (rsfran.BOF AND rsfran.EOF) Then%>
<span class="tdtext">Inget noterat än..</span>
<% Else %>
<% rsfran.MoveFirst %>
<%Do while Not rsfran.EOF %>
<% if rsfran("dag") = "Måndag" and rsfran("vecka")= vnr then%>
<span class="tdtext"><%=rsfran("franvaro") %></span><br>
<% Else %>
tomt
<% End If %>
<% rsfran.MoveNext
loop%>
<% End If %>
</td>
</tr>
