Wat doe ik verkeerd ?

<%
If IsNumeric(Request.Form("Lucasnummer")) OR Request.Form("Lucasnummer") = "" Then
		else %>
		<font color=red>Een Lucasnummer mag alleen bestaan uit cijfers, en niet uit karakters.</font>
		<% Response.End %>
		<% end if
	Locatienummer = Request.Form("Locatienummer")
	If Locatienummer = "" then Locatienummer = 0
	If IsNumeric(Locatienummer) Then
		else %>
		<font color=red>Een Locatienummer mag alleen bestaan uit cijfers, en niet uit karakters.</font>
		<% Response.End %>
		<% end if

IP1 = Request.Form("IP1")
If IP1 = "" then IP1 = 0
IP2 = Request.Form("IP2")
If IP2 = "" then IP2 = 0
IP3 = Request.Form("IP3")
If IP3 = "" then IP3 = 0
IP4 = Request.Form("IP4")
If IP4 = "" then IP4 = 0

	If IsNumeric(IP1) or IsNumeric(IP2) or IsNumeric(IP3) or IsNumeric(IP4) then
	else %>
		<font color=red>Een IP moet persé een numerieke waarde hebben</font>
		<%Response.End
		End If

If IP1 > 255 then %>
	<font color=red>Een IP mag geen waarde hoger dan 255 bevatten (<b><%=IP1%></b>.<%=IP2%>.<%=IP3%>.<%=IP4%>)</font>
	<% Response.End
	End If

If IP2 > 255 then %>
	<font color=red>Een IP mag geen waarde hoger dan 255 bevatten (<%=IP1%>.<b><%=IP2%></b>.<%=IP3%>.<%=IP4%>)</font>
	<% Response.End
	End If

If IP3 > 255 then %>
	<font color=red>Een IP mag geen waarde hoger dan 255 bevatten (<%=IP1%>.<%=IP2%>.<b><%=IP3%></b>.<%=IP4%>)</font>
	<% Response.End
	End If

If IP4 > 255 then %>
	<font color=red>Een IP mag geen waarde hoger dan 255 bevatten (<%=IP1%>.<%=IP2%>.<%=IP3%>.<b><%=IP4%></b>)</font>
	<% Response.End
	End If
if Request.Form("Lucasnummer") = "" then
Lucasnummer = "0"
else Lucasnummer = Request.Form("Lucasnummer")
end if
sqltext = "SELECT cmdb_apparaat.* FROM cmdb_apparaat WHERE Lucasnr = "&Lucasnummer&" AND Lucasnr > 0;"
rsDB.Open sqltext, DB, 3,3
If not rsDB.RecordCount = 0 then%>