<%if Session("livro") <> "logado" then Response.Redirect "logar.asp" else%> Deletar ou Atualizar MENSAGENS <% tipo = request.querystring("tipo") If IsEmpty(tipo) or tipo = "" then %>
<% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("database/livro.mdb") sqlstmt = "SELECT * FROM assinantes ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else %> <% mensagem = rs("mensagem") s="" for z=1 to len(rs("mensagem")) ch=mid(mensagem,z,1) if asc(ch)<>34 then s=s & ch end if next mensagem = s link_atualizacao = "administracao.asp?tipo=atualiza1&id=" & rs("id") & "&nome=" & rs("nome") & "&mensagem=" & mensagem & "&site=" & rs("site") & "&email=" & rs("email") %> <% rs.MoveNext End If Next%>
Nome Data MENSAGEM EMAIL ATUALIZAR DELETAR
<%=rs("nome")%>
<%=rs("data")%> <%=rs("mensagem")%> <%=rs("email2")%> :: Data <%=rs("data")%>'; return true" href="administracao.asp?tipo=atualiza1&id=<%=rs("id")%>&nome=<%=rs("nome")%>&mensagem=<%=mensagem%>&site=<%=rs("site")%>&email=<%=rs("email")%>&resposta=<%=rs("resposta")%>">ATUALIZAR :: Data <%=rs("data")%>'; return true" href="administracao.asp?tipo=deleta&id=<%=rs("id")%>">DELETAR
Total de Gravações do banco: <%=TotalRecs%>
<% rs.close set rs = nothing %>

<% end if if tipo = "atualiza1" then id = request.querystring("id") if IsEmpty(id) or id = "" then response.write "



" response.write "Algum título deve ser selecionado para ser APAGADO do branco de dados!
" else nome = request.querystring("nome") mensagem = request.querystring("mensagem") s="" for x=1 to len(mensagem) ch=mid(mensagem,x,1) if asc(ch)<>34 then s=s & ch end if next mensagem = s resposta = request.querystring("resposta") site = request.querystring("site") email = request.querystring("email") %>
Atualizar dados do livro
Nome:
E-mail:
Site:
Mensagem:
Resposta:
<% end if end if if tipo = "atualiza" then mensagem = request.form("mensagem") nome = request.form("nome") id = request.form("id") resposta = request.form("resposta") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/livro") Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "UPDATE assinantes SET nome = '" & nome & "', mensagem = '" & mensagem & "', resposta = '" & resposta & "' WHERE id = " & id & "" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn if err.Number <> "0" then Response.Write "
Algo de errado aconteceu e as informaçães nã foram ATUALIZADAS
" else Response.Write "


Informações ATUALIZADAS com sucesso!" Response.Write "

Clique aqui para atualizar ou deletar outra mensagem!







" end if end if%> <% if tipo = "deleta" then id = request.querystring("id") StringConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/livro.mdb") set abremdb = Server.CreateObject("ADODB.Connection") abremdb.Open(StringConexao) set rs2 = abremdb.execute("DELETE * FROM assinantes WHERE id = " & id & "") ' rs2.close ' set rs2 = nothing %>


O registro
<%=id%>
foi deletado com sucesso!

Clique aqui para deletar ou atualizar outro







<%end if if tipo = "redireciona" then response.redirect "administracao.asp" end if end if%>