Limpar Um Campo Do Formulario

[hpires24]

Precisava de uma ajudinha, eu tenho um formulario de preenchimento obrigatório, e caso esse formulario não seja preenchido ou mal preenchido da-me uma mensagem de erro o q eu pretendo é quando me da essa mensgem de erro eu limpe esse campo do formulário ou seja coloca-lo em branco.

se precisarem eu posto aqui o meu codigo

[ViniciusJau]

faz mais ou menos assim

valida = Request.Form("campo")

if valida = "" then

  valida = " "

end if

[dark0]

se você quiser fazer isso logo após pressionar o botao, e antes de executar o codigo asp, você vai precisar de javascript

[hpires24]

Vou postar meu código. Ajuda, Obrigado.

<%@ LANGUAGE="VBSCRIPT" %>
<%'*******************************************************************************************
' 
' ficheiro: fornecedores/ver-fornecedores.asp
'
'********************************************************************************************%>
<!--#include file="../includes/main_page_header.asp"-->
<!-- #include file="../includes/style.asp"-->
<!-- #include file="../includes/main_page_open.asp"-->
<%
sql = sql_GetActiveNoticias()
Call RunSQL(sql, rs)
%>





<table width="100%" border=0 cellpadding=1 cellspacing=1>

<%
   Dim pageNo, i, limit
   
   pageNo = CInt(Request.QueryString("pNum"))
   If pageNo = 0 Then
       pageNo = 1
   End If

   rs.PageSize = 1
   rs.Move (pageNo - 1) * rs.PageSize
   ' Work out how many records are in this page
   If rs.AbsolutePage < rs.PageCount Then
       limit = rs.PageSize
   Else
       limit = rs.RecordCount - rs.PageCount * rs.PageSize + rs.PageSize
   End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>


<tr>
 <td valign="top" class="columnheader" bgcolor="<%=gsColorHighlight%>"><%=dictLanguage("Nome_noticia")%></td>
 <td valign="top" class="columnheader" bgcolor="<%=gsColorHighlight%>"><%=dictLanguage("Data_noticia")%></td>     
 <td valign="top" class="columnheader" bgcolor="<%=gsColorHighlight%>"><%=dictLanguage("URL_noticia")%></td>
 <td valign="top" class="columnheader" bgcolor="<%=gsColorHighlight%>"><%=dictLanguage("Conteudo_noticia")%></td>
 <td valign="top" class="columnheader" bgcolor="<%=gsColorHighlight%>"><%=dictLanguage("Noticia_activa")%></td>

 <td valign="top" width="1%" class="columnheader" bgcolor="<%=gsColorHighlight%>"><img src="<%=gsSiteRoot%>images/document.gif" WIDTH="11" HEIGHT="14"></td>
</tr>
<% For i = 1 To limit
  strEmpID   = rs("id_noticias")
   strNome   = trim(rs("nome_noticia"))
  strData  = trim(rs("data_noticia"))
  strUrl   = trim(rs("url_noticia"))
  strConteudo   = trim(rs("conteudo_noticia"))
  strActivo = trim(rs("noticia_activa"))



 if isNull(strNome) then
  strNome = "&nbsp;"
 else
  strNome = "<a href=""default.asp?ID_pensa=" & strEmpID & """ class=""small"">" & strNome & "</a>"
 end if
 if isNull(strData) then
  strData = "&nbsp;"
 end if    
 if isNull(strUrl) then
  strUrl = "&nbsp;"
 end if  
 if isNull(strConteudo) then
  strConteudo = "&nbsp;"
 end if  
 if isNull(strActivo) then
  strActivo = "&nbsp;"
 end if  
     


 %>


<tr <%If intRowcounter MOD 2 = 1 then %>bgcolor="<%=gsColorWhite%>"<%Else%>bgcolor="#ffFF77"<%End If%>>

<td valign=top class="small"><a href="editarnoticia.asp?id_noticias=<%=rs("id_noticias")%>"><%=rs("nome_noticia")%></a></td>
<td valign=top class="small"><%=rs("data_noticia")%></td>
<td valign=top class="small"><%=rs("url_noticia")%></td>   
<td valign=top class="small"><%=rs("conteudo_noticia")%></td>
<td valign=top class="small"><%=rs("noticia_activa")%></td>


<td valign="top" class="small">
<% if (session("permFuncionariosDelete") or session("id_noticias")=rs("nome_noticia")) then %>   
 <a href="eliminarnoticia.asp?id=<%=rs("id_noticias")%>" onClick="javascript: return confirm('<%=dictLanguage("Confirm_Task_Delete")%>');"><img src="<%=gsSiteRoot%>images/delete.gif" WIDTH="20" HEIGHT="19" border="0" alt="<%=dictLanguage("Eliminar")%>"></a>
<% end if %>
</td> 





</tr>

<tr  align="right"> <td align="right" colspan="7">
 <p>&nbsp;      </p>

<%  rs.movenext
next

   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ' Paginação de registos - parte 2
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
   Response.Write "<p><a href=""ver_todos_paginacaoN.asp?pNum=1"">Início</a> "
   If pageNo > 1 Then
       Response.Write "<a href=""ver_todos_paginacaoN.asp?pNum=" & pageNo - 1 & """>Anterior</a> "
   End If
   If pageNo < rs.PageCount Then
       Response.Write "<a href=""ver_todos_paginacaoN.asp?pNum=" & pageNo + 1 & """>Seguinte</a> "
   End If
   Response.Write "<a href=""ver_todos_paginacaoN.asp?pNum=" & rs.PageCount & """>Fim</a><br>"
   For i = 1 To rs.Pagecount
       If i <> pageNo Then
           Response.Write "<a href=""ver_todos_paginacaoN.asp?pNum=" & i & """>" & i & "</a> | "
       Else
           Response.Write i & " | "
       End If
   Next 
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

rs.close
set rs = nothing %>

</td>
</tr>


</table>


<!-- #include file="../includes/main_page_close.asp"-->

e nesse codigo acima se por exemplo quando selecciono o nome da noticia permite-me editar a mesma abrindo uma "tela" formulário Noticias onde existem esses campos: Nome_noticia data...... url...... conteudo...... que são campos de preenchimento obrigatórios e ao editarmos esses campos não podem ficar a vazios. O q me esta a contecer é q eu por exemplo apago os dados q estao a frente do nome noticia no formulário e ai devolvo uma mensagem de erra a dizer q falta nome isto ate aqui esta certo. mas o q eu keria era ao apagar me devolvesse essa mensagem mas tambem q coloca-se em branco o q esta a frente do nome e o q esta a fazer no momento é devolver a mensagem de erro mas depois continua a deixar ficar no formlario os dados q eu tentei deletar. Abaixo segue o codigo de editar q eu estou usando e em cima é o codigo para ver as noticias obrigado a todos desde já abraço.

<%@ LANGUAGE="VBSCRIPT" %>
<%'*******************************************************************************************
' 
' ficheiro: recursos/editar.asp
' 
'********************************************************************************************%>
<!--#include file="../includes/main_page_header.asp"-->

<%
id_noticias = request.querystring("id_noticias")
sql = sql_GetNoticiasByID(id_noticias)
Call RunSQL(sql, rs)
if not rs.eof then
boolFound    = TRUE
  strNome   = trim(rs("nome_noticia"))
  strData  = trim(rs("data_noticia"))
  strUrl   = trim(rs("url_noticia"))
  strConteudo   = trim(rs("conteudo_noticia"))
  strActivo = trim(rs("noticia_activa"))
else
boolFound = FALSE 
end if
rs.close
set rs = nothing
%>

<!-- #include file="../includes/main_page_open.asp"-->

<% if boolFound then %>

<%
if  strActivo = -1 or strActivo  then
strActivo = TRUE
else 
strActivo = false
end if

if strFoto <> "" then
 strFoto = "<img src=""" & gsSiteRoot & "empregados/images/" & strFoto & """>"
else
 strFoto = "<img src=""" & gsSiteRoot & "empregados/images/imageNA.gif"">"
end if
%>

<table cellpadding="2" cellspacing="0" align="center" width="450">
<tr><td </td>&nbsp;</tr>
<tr><td colspan="2" bgcolor="<%=gsColorHighlight%>" class="tblheader" align="center"><%=dictLanguage("noticias")%></td></tr>
</table>

<form method="post" action="processa_editarnoticia.asp" name="strForm1" value="strForm1">
<input type="hidden" name="id_noticias" value="<%=id_noticias%>">

<table class="tblborder2px" cellpadding="1" cellspacing="1" align="center" width="450">

 <tr>
  <td><b class="bolddark"><%=dictLanguage("Nome_noticia")%>:</b><font class="alert">*</font></td>
  <td><input name="nome_noticia" size="20" value="<%=strNome%>" class="formStyleLong" maxlength="100"></td>

 </tr>




    <tr>
  <td><b class="bolddark"><%=dictLanguage("Data_noticia")%>:</b><font class="alert">*</font></td>
  <td><input name="data_noticia" size="20" value="<%=strData%>" class="formStyleLong" maxlength="100"></td>
 </tr>



    <tr>
  <td><b class="bolddark"><%=dictLanguage("URL_noticia")%>:</b><font class="alert">*</font></td>
  <td><input name="url_noticia" size="20" value="<%=strUrl%>" class="formStyleLong" maxlength="100"></td>
 </tr>

    <tr>
  <td><b class="bolddark"><%=dictLanguage("Conteudo_noticia")%>:</b><font class="alert">*</font></font></td>
  <td><input name="conteudo_noticia" size="20" value="<%=strConteudo%>" class="formStyleLong" maxlength="100"></td>
 </tr>

    <tr>
  <td><b class="bolddark"><%=dictLanguage("Noticia_activa")%>:</b></td>
  <td>
   <select name="strActivo" size="1" class="formStyleShort">
    <option value=False>Não</option>
    <option value=True <%if strActivo then Response.Write "Selected"%>>Sim</option>
   </select>
  </td>
 </tr>

     
</table>

<%if session("permFuncionariosEdit") then %>
   <p align="center">
<input type="submit" name="Submit" value="Gravar alterações" class="formButton">
</p>
<%end if%>
</form>

<% else %>
<div align="center"><%=dictLanguage("No_Fornecedor_ID")%>.</div>
<% end if %><!-- #include file="../includes/main_page_close.asp"-->

<%@ LANGUAGE="VBSCRIPT" %>
<%'*******************************************************************************************
' 
' ficheiro: Recursos/processa_editar.asp
' 
'********************************************************************************************%>
<!--#include file="../includes/main_page_header.asp"-->

<%
for each i in Request.Form
session(i) = SQLEncode(Request.Form(i))
next

If session("nome_noticia") = "" then
Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_Nome_noticia")
End If
If session("conteudo_noticia") = "" then
Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_contudo_noticia")
End If



if session("data_noticia") = "" then 
Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_contudo_Data")
end if
If session("url_noticia") = "" then
Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_URL")
End If


If Session("strErrorMessage") <> "" then
response.redirect "editarnoticia.asp?id_noticias=" & session("id_noticias") & ""
End If


if session("strActivo") = "True" then
strActivo = 1
else 
strActivo = 0
end if


sql = sql_UpdateNoticias( _
session("id_noticias"), _ 
session("nome_noticia"), _

session("data_noticia"), _
session("url_noticia"), _ 
session("conteudo_noticia"), _

strActivo)

Call DoSQL(sql)

%>

<!--#include file="../includes/main_page_open.asp"-->

<%
for each i in Request.Form
session(i) = ""
next
%>

<%response.redirect "default.asp"%>

<!--#include file="../includes/main_page_close.asp"-->

Ajuda e muito obrigado desde já a todos