Galera eu crie um sistema que pode incluir, excluir e alterar...queria fazer isto usando a mesma pagina como eu vou fazer isto tenho q usar QueryString???
<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Pagina Protegida</title>
</head>
<body>
<%
If Session("logado")="" Then
Response.Redirect("index.htm")
End If
Session.Timeout = "20"
Dim Conn
Dim Rs
Dim Sql
Dim SqlE
Set Conn = Server.CreateObject("ADODB.Connection" )
Conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From Clientes"
Set Rs = Conn.Execute(Sql)
If Session("Nivel")="3" Then
%>
<table border="1">
<tr>
<td>Nome</td>
<td>Endereço</td>
<td>E-mail</td>
<td>Profissão</td>
</tr>
<%
id = Request.QueryString("id")
Do While Not Rs.EOF
%>
<tr>
<td><%=Rs("Nome")%></td>
<td><%=Rs("Endereço")%></td>
<td><%=Rs("E-mail")%></td>
<td><%=Rs("Profissao")%></td>
<td><a href="pp.asp?id=<%=Rs("id")%>">Excluir</a></td>
</tr>
<%
Rs.moveNext
Loop
End If
SqlE = "Delete * From Clientes Where id="&id
Set Rs = Conn.Execute(SqlE)
%>
</table>
</body>
</html>
Pergunta
tsarri
Galera eu crie um sistema que pode incluir, excluir e alterar...queria fazer isto usando a mesma pagina como eu vou fazer isto tenho q usar QueryString???
<%@LANGUAGE="VBSCRIPT" %> <html> <head> <title>Pagina Protegida</title> </head> <body> <% If Session("logado")="" Then Response.Redirect("index.htm") End If Session.Timeout = "20" Dim Conn Dim Rs Dim Sql Dim SqlE Set Conn = Server.CreateObject("ADODB.Connection" ) Conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb") Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From Clientes" Set Rs = Conn.Execute(Sql) If Session("Nivel")="3" Then %> <table border="1"> <tr> <td>Nome</td> <td>Endereço</td> <td>E-mail</td> <td>Profissão</td> </tr> <% id = Request.QueryString("id") Do While Not Rs.EOF %> <tr> <td><%=Rs("Nome")%></td> <td><%=Rs("Endereço")%></td> <td><%=Rs("E-mail")%></td> <td><%=Rs("Profissao")%></td> <td><a href="pp.asp?id=<%=Rs("id")%>">Excluir</a></td> </tr> <% Rs.moveNext Loop End If SqlE = "Delete * From Clientes Where id="&id Set Rs = Conn.Execute(SqlE) %> </table> </body> </html>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.