Bueno, se me ocurre algo aún cuando nos estés gritando..
En tu formulario...
Sub GeneraVentanaDeError(que_errores)
que_errores= left(que_errores, len(que_errores) - 1)
Response.write("Los campos <font color=red>" & que_errores & "</font>no deben estar en blanco...")
End Sub
var_nombre= trim(request.form("nombre"))
var_direccion= trim(request.form("direccion"))
var_error= ""
For each item in request.form
If request.form(item) ) = "error" Then
var_error= var_error & item & ","
End If
Next
If var_error <> "" Then
GeneraVentanadeError
End If
<form action=registrar.asp method=get>
<input type=text name=nombre value="<%=nombre%>">
<input type=text name=nombre value="<%=direccion%>">
</form>
La primera vez este formulario estará vacio...ahora en registrar.asp
<%
'----------------------------------------------------------------------------------
Sub regresa(que_campos, campos_buenos)
arrCampos = split(que_campos, ",")
arrCamposBuenos= split(campos_buenos, ",")
%>
<form action=formulario.asp method=post name=theform>
<%
For i = 0 to Ubound(arrcampos)
Response.write "<input type=hidden name=" & arrCampos(i) & " value=error>" & vbCrLf
Next
For i = 0 to Ubound(arrCamposBuenos)
Response.write "<input type=hidden name=" & arrCamposBuenos(i) & " value=" & chr(34) & request.querystring(arrCamposBuenos(i)) & chr(34) & ">" & vbCrLf
Next
Response.Write "<input type=hidden name=error value=1>" & vbCrLf
%>
</form>
<script language=javascript>
document.theform.submit();
</script>
<%
End Sub
campo = ""
error = false
For each item in request.querystring
If request.querystring(item) = "" Then
error= true
campo= campo & item & ","
Else
validado= validado & item & ","
End If
Next
If error Then
campo= left(campo, len(campo) - 1)
validado= left(validado, len(validado) - 1)
regresa campo, validado
Else
'Ejecutas tu procedimiento normalmente
End If
%>
Lo acabo de pensar todo...a ver si funciona, pero por ahí va la idea
Salu2,