[Resolvido] Deletar (no SQL) pelo ASP não funciona
Bom dia caros, estou com dificuldades em fazer um jeito de excluir dados de uma tabela SQL Server via ASP.
Tenho uma página principal Veiculos.asp e a Remover.asp.
Sei que deve ter algumas mtas coisas erradas e queria ajuda de vcs pra resolver!
//veiculo.asp
//este tem um campo onde me mostra a lista de carros que possuo no banco e do lado coloquei o botão deletar que manda pra Remover.asp
<!-- <p style="MARGIN-BOTTOM: 5%; MARGIN-TOP: 5%"> </p>-->
<form name="ATU_VEI" action="Remover.asp" method="post">
<table width="70%" aling="center">
<tr>
<td align="center"><font size="2" face="verdana" color="#000080"><b>ATUALIZAÇÃO DE STATUS</b></font></td>
<img title="Status" src="\Imagens\delete.png" align="right">
</tr>
<tr>
<td width="40%">Veículo:</td>
</tr>
<tr>
<td width="60%" align="center">
<select name="Veiculo">
<option>
<%
sql = "SELECT Veiculo FROM Solic_asv_Veiculo WHERE Status <> ' ' "
sql = sql & " ORDER BY veiculo"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Session("Gestao_conn"), 3, 3
On Error Resume Next
rs.MoveFirst
do while Not rs.eof%>
<OPTION value="<%=rs.Fields("Res_asv")%>"><%=rs.Fields("veiculo")%><%=" "%><%=Desativado%>
<%
rs.MoveNext
loop%>
</select>
</td>
<td align="center">
<input class="botao" type="submit" name="Delete" value="Deletar">
</td>
</tr>
</table>
</form>//Remover.asp
<%@ Language=VBScript%>
<html>
<head>
<title>
<%=Session("Titulo")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>------------------------------------------------------------------------------------- -->
<link href="Conteudo.css" rel="stylesheet" type="text/css">
<table class="cabecalho">
<tr>
<td class="Colunacab">Exclusão do Veiculo
</td>
</tr>
</table>
<p style="MARGIN-BOTTOM: 5%; MARGIN-TOP: 5%"> </p><%
'________________________________________________________________________________________________
'Instanciamos e abrimos nosso objeto conexão
'________________________________________________________________________________________________
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("Gestao_conn")
'________________________________________________________________________________________________
'Recolhemos os valores do formulário
'________________________________________________________________________________________________
DelVei = Request.Form("Veiculo")
'________________________________________________________________________________________________
'Agora criamos a sentença SQL
'________________________________________________________________________________________________
InsSql = "DELETE FROM Solic_asv_Veiculo WHERE Veiculo = '" & VeiculoD & "'"
set Ins = Conn.Execute(InsSql)
Conn.Close
%>
</BODY>
</HTML>Discussão (7)
Carregando comentários...