Hur ser koden ut nu? Skulle du inte kunna göra något liknande
sql-sats
do until rs.eof
if not isnull(rs("kolumn")) Then
response.write "<br>"&rs("kolumn")&"<br>"
End if
Loop
?
7 svar · 367 visningar · startad av Bire
Jag har en databas med ganska många RS i en tabell, problemet som jag har nu är att om 10 RS är utan info så tar det en massa plats på sidan att skriva ut ingenting ;)
Kan kan göra så att scriptet hoppar över RS som är tomma & går vidare till ett RS där det finns nått att skriva ut istället för att, som jag har det nu enkelt förklarat, skapa en tom rad med efterföljande dubbla "<br>" på nått smart sätt tro? Jag finner inget enkelt sätt att lösa det på iaf..
Hur ser koden ut nu? Skulle du inte kunna göra något liknande
sql-sats
do until rs.eof
if not isnull(rs("kolumn")) Then
response.write "<br>"&rs("kolumn")&"<br>"
End if
Loop
?
<%
DO UNTIL RS.EOF
%>
<% = RS("Header") %>
<br>
<% = RS("Header2") %>
<br><br>
<%= RS("1") %>
<br><br>
<%= RS("2") %>
<br><br>
<%= RS("3") %>
<br><br>
<%= RS("4") %>
<br><br>
<%= RS("5") %>
<br><br>
<%= RS("6") %>
<%
RS.MoveNext
Loop
%>
(Besparar ER att skriva ut till: <%= RS("60") %>) ;)
Vad jag menar är alltså att <%= RS("12") %> till <%= RS("49") %> kanske är tomma ibland..
Något i den här stilen?
<%
Response.Write RS("Header") & "<br>" & rs("Header2")
Dim intCount
Do Until RS.EOF
intCount = intCount + 1
If Not IsNull(RS(CStr(intCount))) Then Response.Write "<br><br>" & RS(CStr(intCount))
RS.MoveNext
Loop
%>
Bire:
Detta borde nog funka, om jag har fattat din fråga rätt ;)
<%
While not RS.EOF
response.write RS("Header") &"<br>"& RS("Header2") &"<br><br>"
For i = 1 to [b]49[/b]
If IsNull(rs(cstr(1))) Then
response.write "<br><br>"
Else
Response.write rs(cstr(1)) & "<br><br>"
End if
Next
rs.MoveNext
Wend
%>
Varför hämtar du ut tomma värden som du inte vill ha? Går det så hade jag selektrerat det redan i SQL-frågan. :)
Jag har löst detta på ett annat sätt nu (hotscripts.com), tack ändå :)
Hehe, så går det ju också att lösa saken ja :e