--- title: "If <%=objRS(\"bild\")%> = 0 then" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/88176-if-objrs-bild-0-then" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "tank82" published: "2003-10-10T13:52:23.000Z" updated: "2003-10-10T15:02:52.000Z" replies: 16 views: 423 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/88176-if-objrs-bild-0-then" --- # If <%=objRS("bild")%> = 0 then ## #1 — tank82, 2003-10-10T13:52Z Går det att göra så om inte detta värdet finns att hämta i databasen (den är tom alltså) ( \<%=objRS("bild")%\> ) så skriver den ut "ingenbild.gif" istället? Permalänk: https://www.webforum.nu/p/88176 ## #2 — Engine^, 2003-10-10T13:57Z ``` If objRS.EOF Or objRS("bild") = "" Then Response.Write "ingenbild.gif" Else Response.Write objRS("bild") End If ``` Blev lite osäker på om det går att testa objRS("bild") = "" om EOF är sant, men det märker du ;) Permalänk: https://www.webforum.nu/p/1181553 ## #3 — @nders, 2003-10-10T14:03Z > **Engine^ skrev:** > > Blev lite osäker på om det går att testa objRS("bild") = "" om EOF är sant, men det märker du ;) Det är som upplagt för att det ska kastas felmeddelanden till höger och vänster. ;) Så här hade jag gjort, med utgångspunkt i Engine^s kod: ``` If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "ingenbild.gif" Else Response.Write objRS("bild") End If End if ``` Mvh Permalänk: https://www.webforum.nu/p/1181557 ## #4 — tank82, 2003-10-10T14:13Z Ok det der ut att fungera, men jag vill ha så bilden skrivs ut enligt: ``` " width="50" height="50" border="0"> ``` Hur f\[r jag in det i sj'lva koden\_ Permalänk: https://www.webforum.nu/p/1181570 ## #5 — @nders, 2003-10-10T14:16Z ``` If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If End if ``` Permalänk: https://www.webforum.nu/p/1181572 ## #6 — Erik Juhlin, 2003-10-10T14:17Z > **@nders skrev:** > > > **Engine^ skrev:** > > > > Blev lite osäker på om det går att testa objRS("bild") = "" om EOF är sant, men det märker du ;) > > Det är som upplagt för att det ska kastas felmeddelanden till höger och vänster. ;) Precis. Dum-VB är så korkad att om man skriver If False And True Then eller If True Or False Then så går den inte ur efter första parametern utan måste kolla alla värden. :l Permalänk: https://www.webforum.nu/p/1181573 ## #7 — tank82, 2003-10-10T14:32Z Fan att man ska vara så jävla noob på detta, jag får det inte att fungera, kan någon vara så snäll att hjälpa mig implantera koden där den ska vara. (Markerat med rött) ``` <% Session.LCID = 1053 %> <% strSQL = "SELECT TOP 5 * FROM nyhetartikel WHERE typ = 'artikel' ORDER BY datum DESC" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") Set objRS = objCon.Execute(strSQL) If NOT objRS.EOF Then Do Until objRS.EOF intCount = intCount + 1 If intCount Mod 2 = 0 Then %>
<%=objRS("rubrik")%>
<%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•  [red][b]HÄR SKA KODEN IN! 1[/b][/red]
    <% Else %>
    <%=objRS("rubrik")%>
    [red][b]HÄR SKA KODEN IN! 2[/b][/red] <%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•
    <% End If objRS.MoveNext Loop End If Set objRS = Nothing objCon.Close Set objCon = Nothing %> ``` Permalänk: https://www.webforum.nu/p/1181592 ## #8 — Engine^, 2003-10-10T14:35Z Byt mot ``` <% If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If End if %> ``` Permalänk: https://www.webforum.nu/p/1181594 ## #9 — Nexus86, 2003-10-10T14:36Z ``` <% Session.LCID = 1053 strSQL = "SELECT TOP 5 * FROM nyhetartikel WHERE typ = 'artikel' ORDER BY datum DESC" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") Set objRS = objCon.Execute(strSQL) If NOT objRS.EOF Then Do Until objRS.EOF intCount = intCount + 1 If intCount Mod 2 = 0 Then %>
    <%=objRS("rubrik")%>
    <%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•  <% If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If End if %>
    <% Else %>
    <%=objRS("rubrik")%>
    <% If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If End if %> <%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•
    <% End If objRS.MoveNext Loop End If Set objRS = Nothing objCon.Close Set objCon = Nothing %> ``` R// Hade satt ett \<% fel. :r Permalänk: https://www.webforum.nu/p/1181596 ## #10 — tank82, 2003-10-10T14:38Z det var exakt så jag gjorde men, hmmm ska testa igen Permalänk: https://www.webforum.nu/p/1181597 ## #11 — tank82, 2003-10-10T14:50Z nix pix, får det inte att fungera, inga felmeddelanden heller =( Permalänk: https://www.webforum.nu/p/1181607 ## #12 — SteveP, 2003-10-10T14:51Z ``` <% Session.LCID = 1053 strSQL = "SELECT TOP 5 * FROM nyhetartikel WHERE typ = 'artikel' ORDER BY datum DESC" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") Set objRS = objCon.Execute(strSQL) If NOT objRS.EOF Then Do Until objRS.EOF intCount = intCount + 1 If intCount Mod 2 = 0 Then %>
    <%=objRS("rubrik")%>
    <%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•  <% If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If %>
    <% Else %>
    <%=objRS("rubrik")%>
    <% If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If %> <%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%>

  • "onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »
    		•
    <% End If objRS.MoveNext Loop End If Set objRS = Nothing objCon.Close Set objCon = Nothing %> ``` Permalänk: https://www.webforum.nu/p/1181610 ## #13 — tank82, 2003-10-10T14:55Z kanon! nu fungerar det! TACK! Permalänk: https://www.webforum.nu/p/1181617 ## #14 — SteveP, 2003-10-10T14:57Z :birp Permalänk: https://www.webforum.nu/p/1181621 ## #15 — Nexus86, 2003-10-10T14:59Z Och den stora skillnaden är? Permalänk: https://www.webforum.nu/p/1181626 ## #16 — tank82, 2003-10-10T15:01Z ja det är en bra fråga Permalänk: https://www.webforum.nu/p/1181627 ## #17 — SteveP, 2003-10-10T15:02Z Du hade ``` <% If objRS.EOF Then If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If End if %> ``` men borde vara ``` <% If "" & objRS("bild") = "" Then ' "" & har jag lagt till så det inte blir problem med null. Response.Write "" Else Response.Write "" End If %> ``` Annars skriver den ju inte ut nånting alls om Rs.EOF är true Permalänk: https://www.webforum.nu/p/1181629 --- Tråden på webben: https://www.webforum.nu/amne/asp/88176-if-objrs-bild-0-then