Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia, estou testando o sistema de noticias asp que eu fiz. Me deparei com um erro. Qd altero uma foto, no campo foto_chamadas o cadastro não é feito. Ele insere o caminho da foto no campo foto. Pior é que fica os dois caminhos cadastrados no campo foto. O que pode tá havendo? Outro coisa, qd eu altero uma noticia,por exemplo quero que ela só vire chamada da capa, é acrescentado uma virgula no campo foto, se a noticia tem foto ou não.
altera.asp
<!--#include file="cookies.asp" -->
<%
'Criando variáveis
Dim rsTipos, rsNoticia, selecionada
set rsTipos=server.createobject("adodb.recordset")
set rsNoticia=server.createobject("adodb.recordset")
'Esta SELECT irá selecionar todos os tipos de notícias
rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd'Selecionaremos todos os campos do registro onde o código é igual ao do registro selecionado na página anterior
rsNoticia.Open "SELECT * from noticias WHERE codnoticia="& request.querystring("cod") &"", meubd
%>
<html>
<head>
<title>aQui Notícias</title>
<script language="JavaScript">
function InserirTag(tag)
{
var conteudo_selecionado = document.selection.createRange().text;
var conteudo_novo = "";
if(conteudo_selecionado != "")
{
conteudo_novo = (document.frm.conteudo.value.replace( (new RegExp(conteudo_selecionado, "g")), '<'+tag+'>'+conteudo_selecionado+'</'+tag+'>'));
document.frm.conteudo.value = conteudo_novo;
}
else {
document.frm.conteudo.value = '<'+tag+'></'+tag+'>';
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" cellspacing="3" cellpadding="0">
<tr valign="middle">
<td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">Administrativo
- aQui Notícias</font></td>
</tr>
<tr>
<td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif"> </font></td>
</tr>
<tr>
<td width="126" height="277" valign="top" bgcolor="#FF0000"><table width="135px" border="0" cellspacing="2" cellpadding="1">
<tr>
<td bgcolor="#FFFFFF"><a href="incluir.asp">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir
Notícia</strong></font></div>
</a></td>
</tr>
</table></td>
<td width="450" align="left" valign="top" bgcolor="#FFFFFF"><blockquote>
<p><font face="Arial, Helvetica, sans-serif"><strong><font size="4">
Alterar Notícias</font></strong></font></p>
<form name="form1" method="post" action="alterar2.asp">
<table width="432" height="899" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td width="68"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Edição:</font></div>
</td>
<td width="355"><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="edicao" type="text" id="edicao" value="<%=rsNoticia("edicao")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Antetítulo:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="antetitulo" type="text" id="antetitulo" value="<%=rsNoticia("antetitulo")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Subtítulo:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="subtitulo" type="text" id="subtitulo" value="<%=rsNoticia("subtitulo")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Título:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="titulo" type="text" id="titulo" value="<%=rsNoticia("titulo")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Título Manchete:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="titulo_manchete" type="text" id="titulo_manchete" value="<%=rsNoticia("titulo_manchete")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Autor:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="autor" type="text" id="autor" value="<%=rsNoticia("autor")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Crédito:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="credito" type="text" id="credito" value="<%=rsNoticia("credito")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="foto" type="text" id="foto" value="<%=rsNoticia("foto")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo de Foto:</font></div>
</td>
<td>
<table width="100" border="0" cellspacing="0" cellpadding="1">
<tr>
<%
dim horizontal, vertical
horizontal=""
vertical=""
'Iremos fazer aqui a mesma coisa que fizemos com o listmenu
'Mas neste caso é com um botão de seleção
'Se o destaque da notícia for 1 a variavel sim terá o valor Checked
'Senão, a variável não terá o valor checked
if rsNoticia("tipofoto")= 1 then
horizontal="checked"
else
vertical="checked"
end if
%>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="tipofoto" type="radio" value="1" <%=horizontal%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Horizontal</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="tipofoto" type="radio" value="0" <%=vertical%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Vertical</font></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Legenda:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="legenda" type="text" id="legenda" value="<%=rsNoticia("legenda")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto Chamada:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="foto" type="text" id="foto" value="<%=rsNoticia("chamadas_foto")%>" size="40">
</font></font></div>
</td>
</tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div>
</td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<select name="tipo" id="tipo">
<% while NOT rsTipos.EOF %>
<%
'Aqui será feito uma condição para que o sistema selecione no listmenu justamente
'o tipo desta notícia
selecionada=""
'Se o codigo da notícia for igual ao tipo, declararemos a variável selecionada com o valor selected
if rsTipos("codtipo")=rsNoticia("tipo") then
selecionada="selected"
end if
'Chamaremos abaixo a variável para que selecione o item correto
%>
<option value="<%=rsTipos("codtipo")%>" <%=selecionada%>><%=rsTipos("tipo")%></option>
<%
rsTipos.movenext
wend
%>
</select>
</font></td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div>
</td>
<td><font face="Arial, Helvetica, sans-serif"><font size="2">
<textarea name="chamada" cols="40" rows="7" id="chamada"><%=rsNoticia("chamada")%></textarea>
</font></font></td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conteúdo:</font></div>
</td>
<td><font face="Arial, Helvetica, sans-serif"><font size="2">
<input type='button' onClick="InserirTag('b')" value='N'>
<input type='button' onClick="InserirTag('i')" value='I'>
<input type='button' onClick="InserirTag('u')" value='S'>
<input type='button' onClick="InserirTag('h3')" value='Entretítulo'>
<br>
<textarea name="conteudo" cols="40" rows="20" id="conteudo"><%=rsNoticia("conteudo")%></textarea>
</font></font></td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Assinatura:</font></div>
</td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2">
<input name="assinatura" type="text" id="assinatura" value="<%=rsNoticia("assinatura")%>" size="40">
</font></font></div>
</td>
</tr>
<tr>
<td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td>
<td><table width="355" border="0" cellspacing="0" cellpadding="1">
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<%
dim nenhum, chamada, manchete, foto_chamadas
nenhum=""
chamada=""
manchete=""
foto_chamadas=""
'Iremos fazer aqui a mesma coisa que fizemos com o listmenu
'Mas neste caso é com um botão de seleção
'Se o destaque da notícia for 1 a variavel sim terá o valor Checked
'Senão, a variável não terá o valor checked
if rsNoticia("destaquecapa")= 2 then
manchete="checked"
else
if rsnoticia("destaquecapa") = 1 then
chamada="checked"
else
if rsnoticia("destaquecapa") = 3 then
foto_chamadas="checked"
else
end if
end if
nenhum="checked"
end if
%>
<input type="radio" name="destaquecapa" value="0" <%=nenhum%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Nenhum</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input type="radio" name="destaquecapa" value="1" <%=chamada%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Chamada</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="destaquecapa" type="radio" value="2" <%=manchete%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Manchete</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="destaquecapa" type="radio" value="3" <%=foto_chamadas%>></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">Chamada foto</font></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><div align="right">
<input name="cod" type="hidden" id="cod" value="<%=request.querystring("cod")%>">
<input type="submit" name="Submit" value="Alterar">
</div></td>
</tr>
</table>
</form>
<p> </p>
</blockquote></td>
<td width="150px" bgcolor="#FF0000"><font face="Arial, Helvetica, sans-serif"> </font></td>
</tr>
<tr>
<td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">aQui </font><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">Notícias</font></div></td>
</tr>
</table>
<p> </p>
</body>
</html><%
Option Explicit
'Criando variáveis
Dim localbd, meubd
'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd_aqui.mdb")
'Setando conexões
set meubd=server.createobject("adodb.connection")
meubd.Open localbd
dim edicao, antetitulo, subtitulo, titulo, titulo_manchete, autor, foto, legenda, chamadas_foto, chamada, tipo, conteudo, entretitulo, txtentretitulo, assinatura, destaquecapa, tipofoto, credito, cod
edicao=request.form("edicao")
antetitulo=request.form("antetitulo")
subtitulo=request.form("subtitulo")
titulo=request.form("titulo")
autor=request.form("autor")
foto=request.form("foto")
legenda=request.form("legenda")
chamadas_foto=request.form("chamadas_foto")
chamada=request.form("chamada")
tipo=request.form("tipo")
conteudo=request.form("conteudo")
assinatura=request.form("assinatura")
destaquecapa=request.form("destaquecapa")
tipofoto=request.form("tipofoto")
credito=request.form("credito")
cod=request.form("cod")
titulo_manchete=request.form("titulo_manchete")
meubd.EXECUTE "UPDATE noticias SET edicao='"& edicao &"', antetitulo='"& antetitulo &"', subtitulo='"& subtitulo &"', titulo='"& titulo &"', titulo_manchete='"& titulo_manchete &"', autor='"& autor &"', foto='"& foto &"', legenda='"& legenda &"', chamadas_foto='"& chamadas_foto &"', chamada='"& chamada &"', conteudo='"& conteudo &"', tipo="& tipo &", assinatura='"& assinatura &"', tipofoto='"& tipofoto & "', credito='"& credito &"', destaquecapa='"& destaquecapa &"' where codnoticia="& cod &""
response.write "<script>location = 'principal.asp';alert('Notícia alterada com sucesso!')</script>"Carregando comentários...