|
Clientes
<%
Cor = ""
set rs_cliente_noticia = server.createobject("ADODB.recordset")
'Conexao banco de dados
Abre_Bd()
' fim Conexao
sessao = request.querystring("sessao")
Select case sessao
Case "deletar"
id=request.querystring("id")
If id = "" Then
Sql="SELECT * FROM Cliente ORDER BY id_cliente DESC"
Set rs_cliente=Conexao.Execute(Sql)
If rs_cliente.EOF Then
Response.Write "Nenhum registro encontrado Voltar"
Else
While not rs_cliente.EOF
rs_cliente.Movenext
Wend
End If
Else
Sql="DELETE * FROM Cliente WHERE id_cliente="&id&""
Conexao.Execute(Sql)
Response.Write "Registro excluído com sucesso Voltar"
End If
case else
Sql="SELECT * FROM Cliente ORDER By cliNome"
Set rs_cliente = Conexao.Execute(Sql)
If rs_cliente.EOF Then
Response.Write "Nenhum registro encontrado "
else
'Response.Write ""&rs_cliente("nome")&" "
%>
<%While not rs_cliente.EOF
if Cor = "#f9f9f9" then
Cor = "#f0f0f0"
else
Cor = "#f9f9f9"
end if
%>
|
<%rs_cliente.Movenext
Wend%>
<%
End If
end select
%>
|
|
|
|