If <%=objRS("bild")%> = 0 then

16 svar · 414 visningar · startad av tank82 10 okt. 2003

tank82Medlem sedan feb. 2003210 inlägg

Frågan10 okt. 2003 13:52#1

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?

Engine^Medlem sedan dec. 20003 887 inlägg

10 okt. 2003 13:57#2

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 ;)

@ndersMedlem sedan juni 200032 967 inlägg

10 okt. 2003 14:03#3

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

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 14:13#4

Ok det der ut att fungera, men jag vill ha så bilden skrivs ut enligt:

<img src="<%=objRS("bild")%>" width="50" height="50" border="0">

Hur f[r jag in det i sj'lva koden_

@ndersMedlem sedan juni 200032 967 inlägg

10 okt. 2003 14:16#5

If objRS.EOF Then
   If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If
End if

Erik JuhlinMedlem sedan maj 200010 687 inlägg

10 okt. 2003 14:17#6

@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

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 14:32#7

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
%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nyhet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
    <td width="205" valign="top">

[red][b]HÄR SKA KODEN IN! 1[/b][/red]

</td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>

<% Else %>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="205" valign="top">

[red][b]HÄR SKA KODEN IN! 2[/b][/red]

</td>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nthet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>
<%
End If
    objRS.MoveNext
  Loop
End If

Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>

Engine^Medlem sedan dec. 20003 887 inlägg

10 okt. 2003 14:35#8

Byt mot

<%
If objRS.EOF Then
   If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If
End if
%>

Nexus86Medlem sedan okt. 20023 030 inlägg

10 okt. 2003 14:36#9

<% 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
%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nyhet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
    <td width="205" valign="top">

<% If objRS.EOF Then
   If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If
End if %>

</td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>

<% Else %>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="205" valign="top">

<% If objRS.EOF Then
   If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If
End if %>

</td>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nthet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>
<%
End If
    objRS.MoveNext
  Loop
End If

Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>

R// Hade satt ett <% fel. :r

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 14:38#10

det var exakt så jag gjorde men, hmmm ska testa igen

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 14:50#11

nix pix, får det inte att fungera, inga felmeddelanden heller =(

StevePMedlem sedan mars 2003772 inlägg

10 okt. 2003 14:51#12

<% 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
%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nyhet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
    <td width="205" valign="top">

<% If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If %>

</td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>

<% Else %>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><a class="rb"><%=objRS("rubrik")%></td>
  </tr>
  <tr>
    <td width="100%" height="5"></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="205" valign="top">

<%  If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If %>

</td>
    <td width="280" valign="top"><font face="Verdana" color="#737373"><%If Len(objRS("texten")) > 255 Then%><%=Left(objRS("texten"),255)%> ..<%Else%><%=objRS("texten")%><%End If%></font><br><br><li><a href="index.asp?page=nthet&ID=<%=objRS("ID")%>"onMouseOver=" window.status='<%=FormatDateTime(objRS("datum"),1)%> - <%=objRS("rubrik")%>'; return true"onMouseOut="window.status=' '; return true">mer »</a></li></td>
  </tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><hr noshade size="1" color="#000000">
    </td>
  </tr>
</table>
<%
End If
    objRS.MoveNext
  Loop
End If

Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 14:55#13

kanon! nu fungerar det! TACK!

StevePMedlem sedan mars 2003772 inlägg

10 okt. 2003 14:57#14

:birp

Nexus86Medlem sedan okt. 20023 030 inlägg

10 okt. 2003 14:59#15

Och den stora skillnaden är?

tank82Medlem sedan feb. 2003210 inlägg

10 okt. 2003 15:01#16

ja det är en bra fråga

StevePMedlem sedan mars 2003772 inlägg

10 okt. 2003 15:02#17

Du hade

<% If objRS.EOF Then
   If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If
End if %>

men borde vara

<%  If "" & objRS("bild") = "" Then  ' "" & har jag lagt till så det inte blir problem med null.
     Response.Write "<img src=""ingenbild.gif"" width=""50"" height=""50"" border=""0"">"
   Else
     Response.Write "<img src=""" & objRS("bild") & """ width=""50"" height=""50"" border=""0"">"
   End If %>

Annars skriver den ju inte ut nånting alls om Rs.EOF är true