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

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