Ir para conteúdo
Fórum Script Brasil
  • 0

Editar

hpires24

Perguntado por hpires24,

 Share

Pergunta

hpires24

hpires24

Postado
Postado

Oi pessoal estou com um probleminha quando altero dados num campo obrigatório é-me devolvido uma mensagem de erro, isto está correcto , mas por exemplo eu depois não gravo os dados e tento inserir um dado então acontece o seguinte , encontra-se no formulario os dados do ultimo "funcionário" que eu tentei alterar mas q depois não gravei quando deu a mensagem de erro se alguém me puder ajudar agradecia se precisarem de ver o codigo que tenho para dar esse resultado eu posto aqui.

obrigado a todos

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
hpires24

hpires24

Postado
  • Autor
Postado

Em primeiro obrigado a vocês, então vou tentar esclarecer melhor minha duvida.

É assim eu tenho uma pagina para ver noticias, seguinte:

<%@ 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"-->

Espero ter exposto melhor a minha duvida agradecia ajuda obrigado

Link para o comentário
Compartilhar em outros sites
  • 0
Principe

Principe

Postado
Postado

cara se antes era um "nó cego" agora ta um "nó de marinheiro trançado argolado do avesso"...

e pelo amor.. cuida com a gramática, "erra" não é mesma coisa que "erro", e olha.... eu não entendi nada. Se alguém souber de um filósofo bom ai manda ele vir ler isso e nos traduzir.

Desculpe !

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...