---
title: "Blankt fält \"Then\" \"Else\" hur gör man?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41529-blankt-fält-then-else-hur-gör-man"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lazerzubb"
published: "2002-04-13T19:00:12.000Z"
updated: "2002-04-13T19:34:49.000Z"
replies: 3
views: 187
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/41529-blankt-fält-then-else-hur-gör-man"
---

# Blankt fält "Then" "Else" hur gör man?

## #1 — Lazerzubb, 2002-04-13T19:00Z

Kod 1 visar bilden och kod2 är get8.asp,
här hämtar den ett ID, och publicerar den ID's fält (m1)
Som är en bild som är ett OLE object.
Hur gör jag om jag vill att den ska skriva ut 

```
<img src="get8.asp?ID=<%= Request.QueryString("id")%>"
```

Om m1 inte är tomt, men är det tomt vill jag att den ska skriva ut 

```
<img src="blank.jpg" border="0">
```

Det är väll nåt med IF THEN och ELSE, men kan inte dem speciellt bra :r

```
1.
<%
'declare some jobs
  Dim Conn, RS, SQL
  SQL = "SELECT * FROM my order by t desc"
  Set Conn = Server.CreateObject("ADODB.Connection")
  'ms access dsnless connection
  Conn.Open "DBQ=" & Server.Mappath("photo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL, Conn%>
<table width="41%" border="0" cellspacing="0" cellpadding="0" height="498">
  <tr> 
    <td height="8"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp; 
      </font></td>
  </tr>
  <tr> 
    <td height="187"><img src="get8.asp?ID=<%= Request.QueryString("id")%>" border="0"></td>
  </tr>
<%
'Clean up...
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
```

Kod2.

```
2.
<%
  'Step 1: Read in ID from querystring in file get3.asp
  Dim ID
  ID = Request.QueryString("ID")
  'Step 2: select picture from ms access
  Dim Conn, RS, SQL
  SQL = "SELECT m1 FROM my WHERE ID = " & ID
  'step 3: make a dbase connection
  Set Conn = Server.CreateObject("ADODB.Connection")
  'ms access dsnless
  Conn.Open "DBQ=" & Server.Mappath("photo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL, Conn
    'Step 4: Set the ContentType to image/jpg
  Response.ContentType = "image/jpg"
  'Step 5: Use Response.BinaryWrite to output the image
  Response.BinaryWrite RS("m1")
  'Clean up...
  RS.Close
  Set RS = Nothing
  Conn.Close
  Set Conn = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/41529

## #2 — LarsG, 2002-04-13T19:19Z

```
<% if not isnull(rs("m1")) then %>
<td height="187"><img src="get8.asp?ID=<%= Request.QueryString("id")%>" border="0"></td>
<% else %>
<img src="blank.jpg" border="0">
<%end if%>
```

Permalänk: https://www.webforum.nu/p/645558

## #3 — Lazerzubb, 2002-04-13T19:26Z

Det vill sig inte, den fortsätter att visa get8.asp?id=3
även om det inte finns något i fältet "m1" och ID = 3

Kan det ha och göra med att det är ett OLE object 
m1 alltså?

Permalänk: https://www.webforum.nu/p/645562

## #4 — Lazerzubb, 2002-04-13T19:34Z

LÖSTE DET.

Permalänk: https://www.webforum.nu/p/645567

---

Tråden på webben: https://www.webforum.nu/amne/asp/41529-blankt-fält-then-else-hur-gör-man