Problem med Type mismatch

Kör denna koden för att skriva ut olika saker om en krussruta är antingen 1 eller tom i databaseb.

Problemet är att om jag sätter databasen till tal så fungerar det. Men kör jag text så får jag felet:

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: ""]'

Problemet är att om jag har tal så fungerar inte koden som lägger in värdet i databasen.
Jag har ett antal kryssrutor och om man har den checked så ska värdet "1" skrivas in och annars ska det vara tomt.

Kan man lösa det på något sätt.

<kod>
<% if Recset("checkdeal") = 1 then %>
<% deal = strDeal%>
<% br1 = "<br>"%>
<% else %>
<% deal = ""%>
<% br1 = ""%>
<% end if %>
</kod>

Denna kod är tänkt att fungerar på följande sätt.
Om checkdeal är 1 så ska en viss text skrivas in i variabeln deal och br1 ska vara ett radbryt.
Annars så är variabeln tom och samma sak för br1.
Är det här någo stans som det spökar?

Om det är text ska det vara:

<% 
if Recset("checkdeal") = "1" then
	deal = strDeal
	br1 = "<br>"
else
	deal = ""
	br1 = ""
end if
%>

Du ska INTE ha content-switchar på varje rad (<% %>)

<% if Recset("checkdeal") = "1" then %>
<% deal = strDeal%>
<% br1 = "<br>"%>
<% else %>
<% deal = ""%>
<% br1 = ""%>
<% end if %>

/r attans, Poffe ;D

Tackar! det funkerade superbra!