Gästbok

Hur gör man för att kolla så att folk inte skriver i gästboken med tomma fält?
Jag kan inte så mycket om asp men jag håller på att lära mig. Jag vill att man ska vara tvungen att skriva in namn och medelande.

<% Response.Expires=-1500 %>
<% Response.Buffer = True %>
<!-- #include file="adovbs.inc" -->

<%
	
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("pallebook.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	AdGbook = "SELECT * FROM gbook"

	RecSet.Open AdGbook, Connect, adOpenDynamic, adLockOptimistic

	RecSet.AddNew

'Kolla om Namnet är tomt
	If Request.Form("namn") <> "" Then
	RecSet("Namn") = Request.Form("namn")
	End If
	
'Kolla om Email är tomt
	If Request.Form("email") <> "" Then
	RecSet("Email") = Request.Form("email")
	End If
	
' Kolla om Webb är tomt
	If Request.Form("webb") <> "" Then
	RecSet("Webb") = Request.Form("webb")
	End If
	
'Kolla om Meddelandet är tomt
	If Request.Form("body") <> "" Then
	RecSet("Medd") = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request.Form("body"), ";)", "<img src=smiley1.gif>"), ":)", "<img src=smiley2.gif>"), ":D", "<img src=smiley3.gif>"), ":e", "<img src=smiley4.gif>"), ":(", "<img src=smiley7.gif>"), ":h", "<img src=smiley5.gif>"), "X(", "<img src=smiley12.gif>"), ":p", "<img src=smiley11.gif>"), ":o", "<img src=smiley8.gif>"), ":l", "<img src=smiley6.gif>"), ":x", "<img src=smiley13.gif>"), ":r", "<img src=smiley9.gif>"), ":f", "<img src=smiley10.gif>"), ":q", "<img src=smiley14.gif>"), ":i", "<img src=smiley15.gif>"), ":j", "<img src=smiley16.gif>")
	End If

'Fyller i resten
	RecSet("Datum") = Request.Form("datum")
	RecSet("IP") = Request.Form("ip")

	RecSet.Update
	RecSet.Close
	Connect.Close
	
	Response.Redirect("pallebook.asp")
%>