Validar que no queden vacios campos

[u_goldman]

Function ValidaCampo(que_campo)
viene_vacio = false
If trim(campo) = "" Then
viene_vacio = true
End If
ValidaCampo = viene_vacio
End Function

Sub Verifica(que_campo)
mi_campo = ValidaCampo(que_campo)
If NOT mi_campo Then
%>
<script language=javascript>
alert("hay campos requeridos, corrige esto y vuelve a intentarlo");
history.back(-1);
</script>
<%
End If
End Sub

'Recogemos los valores del formulario
clave=Request.Form("clave")
razon= Request.Form("razon")
resp= Request.Form("resp")
domicilio= Request.Form("domicilio")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
codigo= Request.Form("codigo")
tel= Request.Form("tel")
fax= Request.Form("fax")
email= Request.Form("email")
fondo= Request.Form("fondo")
com= Request.Form("com")

'Llamas a los campos que son requeridos
Verifica clave
%>

Salu2,