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 · 389 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