Regreso De Valores..?

[vlah]

SALUDOS, TENGO UN PROBLEMA Y ALGUIEN ME PUEDA AYUDAR A SOLUCIONARLA.. ES ALGO SEMENJANTE A YAHOO U HOTMAIL..

ESTE ES EL PROCESO QUE REALIZO....


1.- ESCRIBI LOS DATOS PEDIDOS EN EL FORMULARIO...

2.- SI EL USUARIO ESTA DADO DE ALTA..ME REGRESA UN MENSAJE QUE EL USUARIO ESTA DADO DE ALTA..

>>>>EL DETALLE AQUI, ES QUE NO QUIERO QUE ME REGRESE EL FORMULARIO VACIO, SI NO QUE ME LO REGRESE CON LOS VALORES QUE ESCRIBI, Y ADEMAS CON UN MENSAJE QUE DIGA QUE ESTA YA DADO DE ALTA.<<<<< O QUE UN CAMPO NO ESTA BIEN ESCRITO..Y QUE ME PONGA DE UN COLOR DIFERENTE..


3.- ALGO ASI COMO CUANDO TE ESTAS DANDO DE ALTA EN YAHOO, U HOTMAIL A LA HORA DE HACER UN CORREO..


NO SE SI ME HAYA DADO A ENTENDER, Y DE QUE MANERA SE PODRIA HACER..


DE ANTEMANO SALUDOS Y GRACIAS.


LAS VARIABLES QUE ENVIO DESDE EL FORMULARIO A LA PAGINA REGISTRAR.ASP ES SON POR URL..

[u_goldman]

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,