Programación Web y Scripting > ASP
Re: Resetear Formulario
(1/1)
mustang:
Que tal, tengo una pagina ASP con un formulario, cuando laS variableS que cachan los campos del formulario estan vacias lo muesto, sino ejecuto un SQL, y lo kisieraes que despues de ke ejecute el sql, limpie el formulario para que cuando lea el Request.Form las encuentre vacias y lo muestre de nuevo, mi codigo lo tengo asi:
--- Código: Text --- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Response.Buffer=Trueif Session("aut")<>TRUE then Response.Write "<img src=img/ierror.gif> <strong>No está autorizado a ver esta página</strong><br><br>" Response.Write "Puede que no tenga permiso para ver este directorio o página con<br> las credenciales proporcionadas." Response.Write "<br> <hr width='40%' align='left'><br>" Response.Write "Si cree que debería poder ver esta página o directorio, intente<br> ponerse en contacto con el administrador del sitio Web<br> acerca de sus permisos." Response.Write "<br>O intente identificarse desde <a href='http://dxd0002.cfemex.com/web/sub/trab/arch/index.html' target='_parent'>AQUI</a>" Response.Write "<br><br>HTTP Error 401 - Prohibido<br> Internet Explorer " Response.Endend if%><HTML><HEAD><TITLE>iconsultas.asp</TITLE></HEAD><BODY><%'Recogemos los valores del formulariousuarioc=Request.Form("usuarioc")consultado= Request.Form("consultado")if usuarioc="" and consultado="" thenResponse.Write("<div align='center'>")Response.Write("<h1>Insertar un registro para consultas</h1><br>")Response.Write("<FORM name='form1' METHOD='POST' ACTION='iconsultas.asp'>")Response.Write("Usuario<br><INPUT NAME='usuarioc' TYPE='TEXT' maxlength='5'><br>")Response.Write("Consulta a:<br><INPUT NAME='consultado' TYPE='TEXT' maxlength='5'><br>")Response.Write("<INPUT TYPE='Submit' value='Insertar'>")Response.Write("</FORM></div>")elseset conn = server.createobject("ADODB.connection") conn.Open "ConExp"'Ahora creamos la sentencia SQL sSQL="Insert Into consulta (usuarioc,consultado) values ('" & usuarioc & "','" & consultado & "')"'Ejecutamos la orden set RS = conn.Execute(sSQL)Response.Write("<h1><div align='center'>Registro Insertado</div></h1><br><br>")Response.Write("<input name='Refrescar' type='button' value='Aceptar' onclick='history.back()'>") end if%> </BODY></HTML>
Kev:
Hola, bueno porque no al principio colocas si las variables osea el request si son <> "" entonces ejecutas la consulta SQL, pero al final siempre muestras el formulario
Salu2
:comp: :hola:
mustang:
--- Cita de: "Kev" --- Hola, bueno porque no al principio colocas si las variables osea el request si son <> "" entonces ejecutas la consulta SQL, pero al final siempre muestras el formulario
Salu2
:comp: :hola:
--- Fin de la cita ---
Gracias de nuevo por otra respuesta :lightsabre:
Kev:
:o Casi me olvido... bueno al final de la rutina donde entra para ejecutar la instruccion tendrias que colocar un Response.Redirect a la misma pagina...
Porque?, bueno si realizas la consulta y presionas F5 o refrescas la pagina la instruccion aun continua con los parametros y ejecutaria tantas veces la instruccion y te daria resultados muy desagradables
:comp: :hola:
Navegación
Ir a la versión completa