Svar ved tomt argument

Jeg vil gerne have skrevet at der ikke er nogle smagninger pt. hvis denne er "tom"
strSQL = "SELECT TOP 1 * FROM smagning WHERE afhdato >= Now() order by afhdato"

Men jeg kan ikke rigtig få det til at fungere. Den oprindelige kode er som følger.

<%



' Hent fra databasen afhængig af værdien id fra URL
strSQL = "SELECT TOP 1 * FROM smagning WHERE afhdato >= Now() order by afhdato"
Set rs = Conn.Execute(strSQL)

Response.write "<br><br><div class=artikel>"
Response.write "<div id=""billedefforord""><img border=1 src=""/pics/upload/" & rs("FILE1") & """ width=""130"" height=""130""></div>"
Response.write "</div>"
Response.Write "<div class=header>"& replace(rs("overskrift"),"''","'") &"</div>"
Response.write "<div class=artikel>"& replace(rs("dag"),"''","'") &" d. " & replace(rs("afhdato"),"''","'") & " kl. " & replace(replace(rs("tid"),"''","'"),":",".") & "</div>"
Response.write "<div class=artikel>"& replace(rs("sted"),"''","'") &"</div><br>"
Response.write "<div class=artikel>"& replace(replace(rs("beskrivelse"),"''","'"),vbCrLf,"<br>") & "</div><br>"
Response.write "<div class=artikel>Pris pr. deltager "& rs("pris") &",00 kr.</div><BR><BR>"

Conn.Close
Set Conn = Nothing

%>