Administração De Banco De Dados.

bolomaster · Março 2, 2004

Ola galera como vao bem é o seguinte eu estou trabalhando num admim para meu banco de dados so que ele não está alterando nem excluindo sera que alguém sabe como me ajudar eu vou postar para vocês o arquivo de alterar ok

a não estou dizendo qual o erro porque não dá erro ele diz que a pagina não pode ser encontrada

ok e abraços

cadnoticias.asp

<title>Cadastro de Noticias da Faculdade e Colegio Atenas</title>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80%" background="Imagens/FUNDO01.GIF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="fonte">
<tr bgcolor="#FFFFFF">
<td width="100%" height="47" background="Imagens/FUNDO01.GIF" bgcolor="#FFFFFF"><img src="Imagens/Titulo_noticias.gif" width="367" height="65"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" bgcolor="#000000"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td background="Imagens/FUNDO01.GIF" bgcolor="#FFFFFF"> <div align="center">
<form action="noticiasconfirma.asp" method="post" name="requerimentos" id="requerimentos" >
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="fonte">
<tr background="Imagens/FUNDO01.GIF">
<td colspan="3"> </td>
</tr>
<tr >
<td colspan="3"background="Imagens/FUNDO01.GIF"><div align="center"><strong>Cadastro
de Noticias da Faculdade Atenas de Paracatu </strong></div></td>
</tr>
<tr>
<td colspan="3" background="Imagens/FUNDO01.GIF"> </td>
</tr>
<tr>
<td colspan="3" background="Imagens/FUNDO01.GIF"> <div align="right"></div>
<div align="right"></div></td>
</tr>
<tr>
<td width="13%" background="Imagens/FUNDO01.GIF"> <p align="center"><font size="-1" face="Arial, Helvetica, sans-serif">Titulo:</font>
</p></td>
<td colspan="2" background="Imagens/FUNDO01.GIF"> <div align="left">
<input name="titulo" type="text" id="titulo">
</div></td>
</tr>
<tr>
<td background="Imagens/FUNDO01.GIF"> <div align="center"><font size="-1" face="Arial, Helvetica, sans-serif">Resumo:</font>
</div></td>
<td colspan="2" background="Imagens/FUNDO01.GIF"> <div align="left">
<input name="resumo" type="text" id="resumo">
</div></td>
</tr>
<tr align="left" valign="top">
<td colspan="3" background="Imagens/FUNDO01.GIF"> <p align="center"><font size="2">Noticia:<br>
</font>
<textarea name="noticia" cols="70" rows="10" id="noticia" ></textarea>
<br>
</p>
<p align="center"> </p></td>
</tr>
<tr>
<td background="Imagens/FUNDO01.GIF"> <div align="center">
</div></td>
<td width="41%" background="Imagens/FUNDO01.GIF"> <div align="center">
<input type="submit" name="Submit" value="Enviar">
</div></td>
<td width="46%" background="Imagens/FUNDO01.GIF"> <input type="reset" name="Submit2" value="Limpar"></td>
</tr>
</table>
</form>
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td background="Imagens/FUNDO01.GIF" bgcolor="#FFFFFF">  </td>
</tr>
<tr bgcolor="#FFFFFF">
<td background="Imagens/FUNDO01.GIF" bgcolor="#FFFFFF"> </td>
</tr>
<%Set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 15
SQL = "select * from notonline ORDER BY COD"
RS.Open SQL,db,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5">
<tr>
<td background="Imagens/FUNDO01.GIF"> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">
<tr>
<td width="100%"><div align="center"><font size="2"><strong>Noticias
Cadastradas até o momento.</strong></font></div></td>
</tr>
<tr>
<td bgcolor="#000000" width="1"></td>
</tr>
<tr>
<td background="Imagens/FUNDO01.GIF"> <p><br>
</p></td>
</tr>
</table>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 5
SQL = "select * from notonline ORDER BY COD"
RS.Open SQL,db,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
%>
<table width="100%" border="0" class="fonte">
<tr>
<td width="77%" rowspan="2" background="Imagens/FUNDO01.GIF"> <strong>
<%=rs.fields("cod")%> -
<%Response.Write rs.fields("titulo")%>
<font color="#3366FF"></font></strong><font color="#3366FF"><br>
</font> <strong>
<%Response.Write rs.fields("data")%>
<font color="#3366FF"><font color="#3366FF"></font></font></strong><font color="#3366FF"><font color="#3366FF"><br>
</font></font> <strong>
<%Response.Write rs.fields("resumo")%>
</strong></a> <strong> </strong></td>
<td width="23%" height="26" background="Imagens/FUNDO01.GIF"><div align="center"><strong><a href="alterarnot.asp?cod=<%=rs.fields("cod")%>" class="link2">Alterar</a></strong></div></td>
</tr>
<tr>
<td background="Imagens/FUNDO01.GIF"><div align="center"><strong>Excluir</strong></div></td>
</tr>
<tr bgcolor="#666666">
<td height="1" colspan="2" bgcolor="#000000"></td>
</tr>
</table>
<div align="center"> <strong>
<%
RS.MoveNext
intrec=intrec+1
IF RS.EOF then
response.write " "
END IF
Wend
IF intpagina > 1 then
%>
<a href="cadnoticias.asp?pagina=<%=intpagina-1%>" class="link2">Anterior</a>
<%
END IF
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="cadnoticias.asp?pagina=<%=intpagina + 1%>" class="link2">Próxima</a>
<%
END IF
%>
</strong></div>
</td>
</tr>
</table>
<p> </p>

agora o arquivo alterarnot.asp

<%
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("db/noticias")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
cod = request.querystring("cod")
sql = "select * from notonline where cod = "&cod &""
set rs = db.execute(sql)
data = rs.fields("data")
titulo = rs.fields("titulo")
resumo = rs.fields("resumo")
noticia = rs.fields("noticia")
%>
<html>
<head>
<title>Alterar Noticia</title></head>
<body bottommargin="0" leftmargin="0" rightmargin="0" topmargin="0">
<form name="form1" method="post" action="alterar.asp">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td background="Imagens/FUNDO01.GIF">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td colspan="2"><img src="Imagens/Titulo_noticias.gif" width="367" height="65"></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong>Alteração
de Noticias da Faculdade Atenas</strong></div></td>
</tr>
<tr>
<td><strong>Cod:</strong></td>
<td><input name="txtcod" type="text" id="txtcod" value="<%=rs.fields("cod")%>" size="5"></td>
</tr>
<tr>
<td width="12%"><strong>Titulo:</strong></td>
<td width="88%"><input name="txttitulo" type="text" id="txttitulo" value="<%=titulo%>" size="60"></td>
</tr>
<tr>
<td><strong>Resumo:</strong></td>
<td><input name="txtresumo" type="text" id="txtresumo" value="<%=resumo%>" size="60"></td>
</tr>
<tr>
<td><strong>Data:</strong></td>
<td><input name="txtdata" type="text" id="txtdata" value="<%=data%>" size="15"></td>
</tr>
<tr valign="top">
<td colspan="2"><p align="center"><strong>Noticia</strong></p>
<p align="center"><strong>
<textarea name="txtnoticia" cols="70" rows="8" id="txtnoticia"><%=noticia%></textarea>
</strong></p></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><div align="center">
<p>
<input type="submit" name="Submit" value="Alterar Dados da Noticia" style='font-family: "verdana"; font-size: 8pt;'>
</p>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>

e o arquivo alterar.asp

<%
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("db/noticias")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
titulo = request.form("txttitulo")
resumo = request.form("txtresumo")
data = request.form("txtdata")
noticia = request.Form("txtnoticia")
cod = request.form("txtcod")
sql = "update notonline set noticia = '"&noticia&"' , resumo = '"&resumo&"' , titulo = '"&titulo&"' , data = '"&data&"' where cod = "&cod&""
set rs = db.execute(sql)
rs.close
db.close
set rs = nothing
set db = nothing
response.redirect "cadnoticias.asp"
%>

se alguém puder me ajudar e mostrar meu erro eu agradeço

abraços a todos

bolomaster · Março 2, 2004

Moderador pode fechar este tópico o problema já está resolvido

abraços a todos vocês

Entrar

Administração De Banco De Dados.

Pergunta

bolomaster

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

bolomaster

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades