Grundläggande logik...
If Not IsNull(RStemp("PICTURE")) then
Response.Write "<td align=center valign=top> <IMG src=thumbs/" & RStemp("PICTURE") & "><BR>" & RStemp("NAMN") & "</td>"
End If
[Redigerat av spango den 28 aug 2001]
9 svar · 309 visningar · startad av Sammy
Hur ska jag skriva om jag vill att tomma fält i en databas ska hoppas över?
Alltå att i det här fallet ska nästa bild visas om jag nu har lagt till en bild i databasfältet PICTURE.
<%
If IsNull(RStemp("PICTURE")) then
'vad ska jag skriva här?'
Else
Response.Write "<td align=center valign=top> <IMG src=thumbs/" & RStemp("PICTURE") & "><BR>" & RStemp("NAMN") & "</td>"
End If
%>
------------------
/Sammy Swärd
Grundläggande logik...
If Not IsNull(RStemp("PICTURE")) then
Response.Write "<td align=center valign=top> <IMG src=thumbs/" & RStemp("PICTURE") & "><BR>" & RStemp("NAMN") & "</td>"
End If
[Redigerat av spango den 28 aug 2001]
Jojo.. men är fältet tomt så hoppas den inte över de tomma fälten. Det är ju det jag vill uppnå.
------------------
/Sammy Swärd
du får nog försöka beskriva problemet lite närmre. jag fattar i alla fall ingenting. :)
------------------
mördar-anders, det är jag.
Hur menar du med "hoppa över"? Lämna en tom tabellcell, eller?
------------------
The mud can make you prisoner, the plains can make you dry,
the snow can burn your eye but only people make you cry...
If IsNull(RStemp("PICTURE")) OR IsEmpty(RStemp("PICTURE")) OR RStemp("PICTURE") = "" then
------------------
Peter D
<%
'***** Skapar Connection-objektet *****'
Set Connect = Server.CreateObject("ADODB.Connection")
'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("../../../db/test.mdb")
'***** öppnar databasen *****'
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Set RStemp = Connect.Execute("Select TOP 4 \* From DATABAS order by DATUM desc, NAMN")
%>
<TABLE bgcolor="#FFFFFF" width="100%" border="0" cellspacing="1" cellpadding="0">
<TR>
<%
Do Until RStemp.EOF
%>
<%
If IsNull(RStemp("PICTURE")) then
'här vill jag att den hoppar till nästa fält/hittade bild'
Else
Response.Write "<td width=25% align=center valign=top> <IMG src=thumbs/" & RStemp("PICTURE") & "><BR>" & RStemp("NAMN") & "</td>"
End If
%>
\<%
RStemp.MoveNext
Loop
%\>
\</TR\>
</table>
<%
Connect.close
Set Connect = nothing
%>
ALltså jag vill visa de senaste 4 bilderna. Är fältet tomt vill jag att den söker vidare efter nästa. För som det är nu så visar den endast 1 bild?
------------------
/Sammy Swärd
[Redigerat av Sammy den 28 aug 2001]
<%
If NOT IsNull(RStemp("PICTURE")) then
Response.Write "<td width=25% align=center valign=top> <IMG src=thumbs/" & RStemp("PICTURE") & "><BR>" & RStemp("NAMN") & "</td>"
End If
%>
Detta är väl vad du är ute efter??
------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!
[Redigerat av mrblonde den 28 aug 2001]
ALltså jag vill visa de senaste 4 bilderna.
SELECT TOP 4 * FROM tabell WHERE NOT bildfält IS NULL :q
------------------
The mud can make you prisoner, the plains can make you dry,
the snow can burn your eye but only people make you cry...
[Redigerat av spango den 28 aug 2001]