editar excluir, criar registros no bd

[Victor]

uma administração que você pode editar excluir, criar registros no bd!!!

conecta.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\database\bd.mdb;Persist Security Info=False"
%>

administrativo.asp

<!--#include file="conecta.asp"-->

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")

'Inclui
if request.form("acao") = "cadastrar" then
	Conn.execute "insert into produtos (titulo_produto, fabricante, valor) values ('"&request.form("produto")&"', '"&request.form("fabricante")&"', '"&request.form("valor")&"')"
end if

'Exclui
if request.querystring("excluir") <> "" then
	Conn.Execute "Delete from produtos where id = "&request.querystring("excluir")&""
end if

'Alterar
if request.form("acao") = "alterar" then
	Conn.execute "update produtos set titulo_produto = '"&request.form("produto")&"', fabricante = '"&request.form("fabricante")&"', valor = '"&request.form("valor")&"' where id = "&session("alterar")&""
end if

'Carrega os valores da alteração
if request.querystring("alterar") <> "" then
	session("alterar")  = request.querystring("alterar")
	RecSet.Open "Select * from produtos where id = "&request.querystring("alterar")&"", conn
  produto = RecSet("titulo_produto")
  fabricante = RecSet("fabricante")
  valor = RecSet("valor")
	RecSet.Close
end if
%>

<form action="acesso.asp" method="post">
<table>
	<tr>
  <td>Produto: </td>
  <%if request.querystring("alterar") <> "" then%>
  <td><input name="produto" size="30" value="<%=produto%>"></td>
  <%else%>
  <td><input name="produto" size="30"></td>
  <%end if%>
	</tr>
	<tr>
  <td>Fabricante: </td>
  <%if request.querystring("alterar") <> "" then%>
  <td><input name="fabricante" size="30" value="<%=fabricante%>"></td>
  <%else%>
  <td><input name="fabricante" size="30"></td>
  <%end if%>
	</tr>
	<tr>
  <td>Valor: </td>
  <%if request.querystring("alterar") <> "" then%>
  <td><input name="valor" size="10" value="<%=valor%>"></td>
  <%else%>
  <td><input name="valor" size="10"></td>
  <%end if%>
	</tr>
	<tr>
  <%if request.querystring("alterar") <> "" then%>
  <td colspan="2"><input type="Submit" value="Alterar"><input type="Hidden" name="acao" value="alterar"></td>
  <%else%>
  <td colspan="2"><input type="Submit" value="Cadastrar"><input type="Hidden" name="acao" value="cadastrar"></td>
  <%end if%>
	</tr>

</table>
</form>



<table border=1 bordercolor="#CCCCCC" cellpadding=0 cellspacing=0 style="border-collapse: collapse">
<tr bgcolor=#336699>
	<td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=tahoma>Excluir</font></b></td>
	<td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Alterar</font></b></td>
	<td width="400" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Produto</font></b></td>
	<td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Valor</font></b></td>
</tr>
<%
RecSet.Open "Select id, titulo_produto, fabricante, valor from produtos order by titulo_produto", conn
	i=0
	z=true
	while not RecSet.EOF
	z = not z
	if z = true then cor = "#EEEEEE"
	if z = false then cor = "#DDDDDD"
  i=i+1
  	%>
  	<tr bgcolor="<%=cor%>">
  	<td width=80 align=center height="25"><center><a href=acesso.asp?excluir=<%=RecSet("id")%>><img src="imagens/excluir.gif" border=0 alt=Excluir></a></center></td>
  	<td width=80 align=center height="25"><center><a href=acesso.asp?alterar=<%=RecSet("id")%>><img src="imagens/editar.gif" border=0 alt=Excluir></a></center></td>
  	<td width=400 align=center height="25"><center><font size="-2" color="333333" face="Verdana"><b><%=RecSet("titulo_produto")%></b></font></center></td>
  	<td width=80 align=center height="25"><center><font size="-2" color="333333" face="Verdana"><b>R$<%=FormatNumber(RecSet("valor"),2)%></b></font></center></td>
  	</tr>
  	<%
  RecSet.MoveNext
	wend
RecSet.Close
%>
</table>