Script atualiza mas não mostra atualização na tela

[Legionáriors]

Boa tarde pessoal,
 
Estou a dias quebrando a cabeça pra descobrir porque o script que vou postar grava no banco mas não retorna os valores atualizados na tela. Se puderem me ajudar agradeço. Segue o código.

<h3>Consulta,alteração e exclusão de Veículos</h3>

<%

Dim lista_veiculos,lista_categoria,veic_id,lista_veic,tempcat,acao,lista,lista_marcas,lista_fabricacoes,lista_modelos,lista_cambios,lista_combustiveis,lista_porta,lista_cabines,lista_suspensoes,lista_tracoes

acao = Request.QueryString("acao")

veic_id = Request.QueryString("veic_id")

If IsEmpty(Request.QueryString("veic_id")) Then 

%>

<script>window.location='./con_veiculos.asp'</script>

<%

End If

If Request.Form("cat_id") = "nulo" Then

%>

<h3><font color=red>Selecione a Categoria</font></h3>

<%

acao = "X"

End If

If Request.Form("tipomarca") = "nulo" Then

%>

<h3><font color=red>Selecione a Marca</font></h3>

<%

acao = "X"

End If

If Request.Form("anofabricacao") = "nulo" Then

%>

<h3><font color=red>Selecione o Ano de Fabricação</font></h3>

<%

acao = "X"

End If

If Request.Form("anomodelo") = "nulo" Then

%>

<h3><font color=red>Selecione o ano do Modelo</font></h3>

<%

acao = "X"

End If

If Request.Form("tipocambio") = "nulo" Then

%>

<h3><font color=red>Selecione o Câmbio</font></h3>

<%

acao = "X"

End If

If Request.Form("tipocombustivel") = "nulo" Then

%>

<h3><font color=red>Selecione o Combustível</font></h3>

<%

acao = "X"

End If

If Request.Form("tipoportas") = "nulo" Then

%>

<h3><font color=red>Selecione as Portas</font></h3>

<%

acao = "X"

End If

If Request.Form("tipocabine") = "nulo" Then

%>

<h3><font color=red>Selecione o tipo de Cabine</font></h3>

<%

acao = "X"

End If

If Request.Form("tiposuspensao") = "nulo" Then

%>

<h3><font color=red>Selecione o tipo de Suspensão</font></h3>

<%

acao = "X"

End If

If Request.Form("tipotracao") = "nulo" Then

%>

<h3><font color=red>Selecione o tipo de Tração</font></h3>

<%

acao = "X"

End If

Select Case acao

Case "apagar"

lojaDB.Execute("DELETE FROM veiculos WHERE id=" & veic_id)

%>

<h3>Veículo Removido</h3>

<%

lista = "não"

Case "atualizar"

lojaDB.Execute("UPDATE veiculos set cat_id='" & Request.Form("cat_id") & "',tipomarca='" & Request.Form("tipomarca") & "',anofabricacao='" & Request.Form("anofabricacao") & "',anomodelo='" & Request.Form("anomodelo") & "',tipocambio='" & Request.Form("tipocambio") & "',tipocombustivel='" & Request.Form("tipocombustivel") & "',tipoportas='" & Request.Form("tipoportas") & "',tipocabine='" & Request.Form("tipocabine") & "',tiposuspensao='" & Request.Form("tiposuspensao") & "',tipotracao='" & Request.Form("tipotracao") & "',nome='" & Request.Form("nome") & "',placa='" & Request.Form("placa") & "',km='" & Request.Form("km") & "',cor='" & Request.Form("cor") & "',comp_valor='" & Request.Form("comp_valor") & "',obs='" & Request.Form("obs") & "',preço='" & FormatNumber(Request.Form("preço"),2,-1,0,-1) & "',img_01='" & Request.Form("img_01") & "',img_02='" & Request.Form("img_02") & "',img_03='" & Request.Form("img_03") & "',img_04='" & Request.Form("img_04") & "',img_05='" & Request.Form("img_05") & "',img_06='" & Request.Form("img_06") & "',img_07='" & Request.Form("img_07") & "',img_08='" & Request.Form("img_08") & "',img_09='" & Request.Form("img_09") & "',img_10='" & Request.Form("img_10") & "',img_11='" & Request.Form("img_11") & "',img_12='" & Request.Form("img_12") & "',img_13='" & Request.Form("img_13") & "',img_14='" & Request.Form("img_14") & "',img_15='" & Request.Form("img_15") & "',airbag='" & Request.Form("airbag") & "',airbagduplo='" & Request.Form("airbagduplo") & "',alarme='" & Request.Form("alarme") & "',arcondicionado='" & Request.Form("arcondicionado") & "',arquente='" & Request.Form("arquente") & "',bagageiro='" & Request.Form("bagageiro") & "',bancoseletricos='" & Request.Form("bancoseletricos") & "',bancosdecouro='" & Request.Form("bancosdecouro") & "',blindado='" & Request.Form("blindado") & "',cameradere='" & Request.Form("cameradere") & "',cdplayer='" & Request.Form("cdplayer") & "',computadordebordo='" & Request.Form("computadordebordo") & "',contagiros='" & Request.Form("contagiros") & "',desembacador='" & Request.Form("desembacador") & "',direcaohidraulica='" & Request.Form("direcaohidraulica") & "',disqueteira='" & Request.Form("disqueteira") & "',faroldeneblina='" & Request.Form("faroldeneblina") & "',freiosabs='" & Request.Form("freiosabs") & "',freiosadisco='" & Request.Form("freiosadisco") & "',interface='" & Request.Form("interface") & "',kitmultimidia='" & Request.Form("kitmultimidia") & "',limpadortraseiro='" & Request.Form("limpadortraseiro") & "',lonamaritima='" & Request.Form("lonamaritima") & "',mp3player='" & Request.Form("mp3player") & "',partidaeletrica='" & Request.Form("partidaeletrica") & "',pilotoautomatico='" & Request.Form("pilotoautomatico") & "',protetordecacamba='" & Request.Form("protetordecacamba") & "',radio='" & Request.Form("radio") & "',retrovisoreseletricos='" & Request.Form("retrovisoreseletricos") & "',rodasdeligaleve='" & Request.Form("rodasdeligaleve") & "',sensordechuva='" & Request.Form("sensordechuva") & "',sensordeestacionamento='" & Request.Form("sensordeestacionamento") & "',tetosolar='" & Request.Form("tetosolar") & "',travaseletricas='" & Request.Form("travaseletricas") & "',turbo='" & Request.Form("turbo") & "',vidroseletricos='" & Request.Form("vidroseletricos") & "',vidrosverdes='" & Request.Form("vidrosverdes") & "',volanteregulaaltura='" & Request.Form("volanteregulaaltura") & "',deficiente='" & Request.Form("deficiente") & "',interclima='" & Request.Form("interclima") & "',intercooler='" & Request.Form("intercooler") & "',rodoar='" & Request.Form("rodoar") & "',sofacama='" & Request.Form("sofacama") & "',chcdestaque='" & Request.Form("chcdestaque") & "',disp='" & Request.Form("disp") & "' WHERE id=" & veic_id)

%>

<h3>Veículo Atualizado</h3>

<%

End Select

If Not (lista = "não") Then

'Exibe veiculos

set lista_veiculos = lojaDB.Execute("SELECT * FROM veiculos WHERE id=" & veic_id)

 

set lista_categoria = lojaDB.Execute("SELECT * FROM categorias WHERE id=" & lista_veiculos("cat_id"))

If Not (lista_categoria.EOF) Then tempcat = lista_categoria("id") End If

 

set lista_marcas = lojaDB.Execute("SELECT * FROM marca WHERE id=" & lista_veiculos("tipomarca"))

If Not (lista_marcas.EOF) Then tempcat = lista_marcas("id") End If

 

set lista_fabricacoes = lojaDB.Execute("SELECT * FROM fabricacao WHERE id=" & lista_veiculos("anofabricacao"))

If Not (lista_fabricacoes.EOF) Then tempcat = lista_fabricacoes("id") End If

 

set lista_modelos = lojaDB.Execute("SELECT * FROM modelo WHERE id=" & lista_veiculos("anomodelo"))

If Not (lista_modelos.EOF) Then tempcat = lista_modelos("id") End If

 

set lista_cambios = lojaDB.Execute("SELECT * FROM cambio WHERE id=" & lista_veiculos("tipocambio"))

If Not (lista_cambios.EOF) Then tempcat = lista_cambios("id") End If

 

set lista_combustiveis = lojaDB.Execute("SELECT * FROM combustivel WHERE id=" & lista_veiculos("tipocombustivel"))

If Not (lista_combustiveis.EOF) Then tempcat = lista_combustiveis("id") End If

 

set lista_porta = lojaDB.Execute("SELECT * FROM portas WHERE id=" & lista_veiculos("tipoportas"))

If Not (lista_porta.EOF) Then tempcat = lista_porta("id") End If

 

set lista_cabines = lojaDB.Execute("SELECT * FROM cabine WHERE id=" & lista_veiculos("tipocabine"))

If Not (lista_cabines.EOF) Then tempcat = lista_cabines("id") End If

 

set lista_suspensoes = lojaDB.Execute("SELECT * FROM suspensao WHERE id=" & lista_veiculos("tiposuspensao"))

If Not (lista_suspensoes.EOF) Then tempcat = lista_suspensoes("id") End If

 

set lista_tracoes = lojaDB.Execute("SELECT * FROM tracao WHERE id=" & lista_veiculos("tipotracao"))

If Not (lista_tracoes.EOF) Then tempcat = lista_tracoes("id") End If

 

If Not (lista_veiculos.EOF) Then

    %>

    

<!--#include file="estilo.inc"-->

 

<form method=post action="./con_veiculos_detalhes.asp?veic_id=<%=veic_id%>&acao=atualizar">

 

<table border="0">

<td>

<table>

<tr>

<td><fieldset><legend>Veículo Id</legend><center><font size=3><b><%=lista_veiculos("id")%></b></font></center></fieldset></td>

<td><fieldset><legend>Modelo</legend><input type=text size=39 name=nome value="<%=lista_veiculos("nome")%>"></fieldset></td>

</td></tr>

</table>

<table>

 

<tr>

<td><fieldset><legend>Categoria</legend>

<select name=cat_id>

<option value=nulo>Selecione</option>

<%

set lista_categoria = lojaDB.Execute("SELECT * FROM categorias")

While not lista_categoria.EOF

%>

<option value="<%=lista_categoria("id")%>" <%If (lista_categoria("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_categoria("nome")%></option>

<%

lista_categoria.MoveNext

Wend

%>

</select>

</fieldset>

</td>

 

<td><fieldset><legend>Marca</legend>

<select name=tipomarca>

<option value=nulo>Selecione</option>

<%

set lista_marcas = lojaDB.Execute("SELECT * FROM marca")

While not lista_marcas.EOF

%>

<option value="<%=lista_marcas("id")%>" <%If (lista_marcas("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_marcas("nome")%></option>

<%

lista_marcas.MoveNext

Wend

%>

</select>

</fieldset>

</td></tr>

 

<td><fieldset><legend>Ano Fabricação</legend>

<select name=anofabricacao>

<option value=nulo>Selecione</option>

<%

set lista_fabricacoes = lojaDB.Execute("SELECT * FROM fabricacao")

While not lista_fabricacoes.EOF

%>

<option value="<%=lista_fabricacoes("id")%>" <%If (lista_fabricacoes("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_fabricacoes("nome")%></option>

<%

lista_fabricacoes.MoveNext

Wend

%>

</select>

</fieldset>

</td>

 

<td><fieldset><legend>Ano Modelo</legend>

<select name=anomodelo>

<option value=nulo>Selecione</option>

<%

set lista_modelos = lojaDB.Execute("SELECT * FROM modelo")

While not lista_modelos.EOF

%>

<option value="<%=lista_modelos("id")%>" <%If (lista_modelos("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_modelos("nome")%></option>

<%

lista_modelos.MoveNext

Wend

%>

</select>

</fieldset>

</td></tr>

 

<td><fieldset><legend>Câmbio</legend>

<select name=tipocambio>

<option value=nulo>Selecione</option>

<%

set lista_cambios = lojaDB.Execute("SELECT * FROM cambio")

While not lista_cambios.EOF

%>

<option value="<%=lista_cambios("id")%>" <%If (lista_cambios("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_cambios("nome")%></option>

<%

lista_cambios.MoveNext

Wend

%>

</select>

</fieldset>

</td>

 

<td><fieldset><legend>Combustível</legend>

<select name=tipocombustivel>

<option value=nulo>Selecione</option>

<%

set lista_combustiveis = lojaDB.Execute("SELECT * FROM combustivel")

While not lista_combustiveis.EOF

%>

<option value="<%=lista_combustiveis("id")%>" <%If (lista_combustiveis("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_combustiveis("nome")%></option>

<%

lista_combustiveis.MoveNext

Wend

%>

</select>

</fieldset>

</td></tr>

 

<td><fieldset><legend>Portas</legend>

<select name=tipoportas>

<option value=nulo>Selecione</option>

<%

set lista_porta = lojaDB.Execute("SELECT * FROM portas")

While not lista_porta.EOF

%>

<option value="<%=lista_porta("id")%>" <%If (lista_porta("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_porta("nome")%></option>

<%

lista_porta.MoveNext

Wend

%>

</select>

</fieldset>

</td>

 

<td><fieldset><legend>Cabine</legend>

<select name=tipocabine>

<option value=nulo>Selecione</option>

<%

set lista_cabines = lojaDB.Execute("SELECT * FROM cabine")

While not lista_cabines.EOF

%>

<option value="<%=lista_cabines("id")%>" <%If (lista_cabines("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_cabines("nome")%></option>

<%

lista_cabines.MoveNext

Wend

%>

</select>

</fieldset>

</td></tr>

 

<td><fieldset><legend>Suspensão</legend>

<select name=tiposuspensao>

<option value=nulo>Selecione</option>

<%

set lista_suspensoes = lojaDB.Execute("SELECT * FROM suspensao")

While not lista_suspensoes.EOF

%>

<option value="<%=lista_suspensoes("id")%>" <%If (lista_suspensoes("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_suspensoes("nome")%></option>

<%

lista_suspensoes.MoveNext

Wend

%>

</select>

</fieldset>

</td>

 

<td><fieldset><legend>Tração</legend>

<select name=tipotracao>

<option value=nulo>Selecione</option>

<%

set lista_tracoes = lojaDB.Execute("SELECT * FROM tracao")

While not lista_tracoes.EOF

%>

<option value="<%=lista_tracoes("id")%>" <%If (lista_tracoes("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_tracoes("nome")%></option>

<%

lista_tracoes.MoveNext

Wend

%>

</select>

</fieldset>

</td></tr>

 

<td><fieldset><legend>Placa</legend><input type=text size=22 name=placa value="<%=lista_veiculos("placa")%>"></fieldset></td>

<td><fieldset><legend>Km</legend><input type=text size=22 name=km value="<%=lista_veiculos("km")%>"></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Cor</legend><input type=text size=22 name=cor value="<%=lista_veiculos("cor")%>"></fieldset></td>

<td><fieldset><legend>Valor R$</legend><input type=text size=22 name=preço value="<%=FormatNumber(lista_veiculos("preço"),2,-1,0,-1)%>"></fieldset></td>

</td></tr>

</table>

 

<table border="0">

<tr><td><fieldset><legend>Definições de pagamento</legend><input type=text size=53 name=comp_valor value="<%=lista_veiculos("comp_valor")%>"></fieldset></td>

</td></tr>

</table>

 

<table border="0">

<tr><td><fieldset><legend>Observações</legend><textarea cols="30" rows="5" name=obs value="obs"><%=lista_veiculos("obs")%></textarea></fieldset></td>

</td></tr>

</table>

 

<table border="0">

 

<td><fieldset><legend>Alterar foto de capa</legend><input type=text size=22 name=img_01 value="<%=lista_veiculos("img_01")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_01")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 02</legend><input type=text size=23 name=img_02 value="<%=lista_veiculos("img_02")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_02")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 03</legend><input type=text size=22 name=img_03 value="<%=lista_veiculos("img_03")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_03")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 04</legend><input type=text size=23 name=img_04 value="<%=lista_veiculos("img_04")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_04")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 05</legend><input type=text size=22 name=img_05 value="<%=lista_veiculos("img_05")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_05")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 06</legend><input type=text size=23 name=img_06 value="<%=lista_veiculos("img_06")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_06")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 07</legend><input type=text size=22 name=img_07 value="<%=lista_veiculos("img_07")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_07")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 08</legend><input type=text size=23 name=img_08 value="<%=lista_veiculos("img_08")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_08")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 09</legend><input type=text size=22 name=img_09 value="<%=lista_veiculos("img_09")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_09")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 10</legend><input type=text size=23 name=img_10 value="<%=lista_veiculos("img_10")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_10")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 11</legend><input type=text size=22 name=img_11 value="<%=lista_veiculos("img_11")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_11")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 12</legend><input type=text size=23 name=img_12 value="<%=lista_veiculos("img_12")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_12")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 13</legend><input type=text size=22 name=img_13 value="<%=lista_veiculos("img_13")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_13")%>" width=186></center></fieldset></td>

<td><fieldset><legend>Alterar foto 14</legend><input type=text size=23 name=img_14 value="<%=lista_veiculos("img_14")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_14")%>" width=186></center></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Alterar foto 15</legend><input type=text size=22 name=img_15 value="<%=lista_veiculos("img_15")%>"><br><br><center><img src="../images/<%=lista_veiculos("img_15")%>" width=186></center></fieldset></td>

</td>

 

<td><fieldset><legend>Mostra no site</legend>

<select name=disp>

<option value="S" <%If lista_veiculos("disp")="S" Then Response.Write "selected" End If%>>Sim</option>

<option value="N" <%If lista_veiculos("disp")="N" Then Response.Write "selected" End If%>>Não</option>

</select>

</fieldset>

</td></tr>

 

</table>

 

</td><td valign=top>

 

<table width="200">

<tr><td>

<fieldset><legend>Opcionais</legend>

<input name="airbag" type="checkbox" id="airbag" value="ON">&nbsp;Air bag<br>

<input name="airbagduplo" type="checkbox" id="airbagduplo" value="ON">&nbsp;Air bag duplo<br>

<input name="alarme" type="checkbox" id="alarme" value="ON">&nbsp;Alarme<br>

<input name="arcondicionado" type="checkbox" id="arcondicionado" value="ON">&nbsp;Ar condicionado<br>

<input name="arquente" type="checkbox" id="arquente" value="ON">&nbsp;Ar quente<br>

<input name="bagageiro" type="checkbox" id="bagageiro" value="ON">&nbsp;Bagageiro<br>

<input name="bancoseletricos" type="checkbox" id="bancoseletricos" value="ON">&nbsp;Bancos Elétricos<br>

<input name="bancosdecouro" type="checkbox" id="bancosdecouro" value="ON">&nbsp;Bancos de Couro<br>

<input name="blindado" type="checkbox" id="blindado" value="ON">&nbsp;Blindado<br>

<input name="cameradere" type="checkbox" id="cameradere" value="ON">&nbsp;Camera de Ré<br>

<input name="cdplayer" type="checkbox" id="cdplayer" value="ON">&nbsp;CD Player<br>

<input name="computadordebordo" type="checkbox" id="computadordebordo" value="ON">&nbsp;Computador de Bordo<br>

<input name="contagiros" type="checkbox" id="contagiros" value="ON">&nbsp;Contagiros<br>

<input name="desembacador" type="checkbox" id="desembacador" value="ON">&nbsp;Desembacador<br>

<input name="direcaohidraulica" type="checkbox" id="direcaohidraulica" value="ON">&nbsp;Direcão Hidráulica<br>

<input name="disqueteira" type="checkbox" id="disqueteira" value="ON">&nbsp;Disqueteira<br>

<input name="faroldeneblina" type="checkbox" id="faroldeneblina" value="ON">&nbsp;Farol de Neblina<br>

<input name="freiosabs" type="checkbox" id="freiosabs" value="ON">&nbsp;Freios ABS<br>

<input name="freiosadisco" type="checkbox" id="freiosadisco" value="ON">&nbsp;Freios a Disco<br>

<input name="interface" type="checkbox" id="interface" value="ON">&nbsp;Interface<br>

<input name="kitmultimidia" type="checkbox" id="kitmultimidia" value="ON">&nbsp;Kit Multimidia<br>

<input name="limpadortraseiro" type="checkbox" id="limpadortraseiro" value="ON">&nbsp;Limpador Traseiro<br>

<input name="lonamaritima" type="checkbox" id="lonamaritima" value="ON">&nbsp;Lona Marítima<br>

<input name="mp3player" type="checkbox" id="mp3player" value="ON">&nbsp;MP3 Player<br>

<input name="partidaeletrica" type="checkbox" id="partidaeletrica" value="ON">&nbsp;Partida Elétrica<br>

<input name="pilotoautomatico" type="checkbox" id="pilotoautomatico" value="ON">&nbsp;Piloto Automático<br>

<input name="protetordecacamba" type="checkbox" id="protetordecacamba" value="ON">&nbsp;Protetor de Caçamba<br>

<input name="radio" type="checkbox" id="radio" value="ON">&nbsp;Rádio<br>

<input name="retrovisoreseletricos" type="checkbox" id="retrovisoreseletricos" value="ON">&nbsp;Retrovisores Elétricos<br>

<input name="rodasdeligaleve" type="checkbox" id="rodasdeligaleve" value="ON">&nbsp;Rodas de Liga Leve<br>

<input name="sensordechuva" type="checkbox" id="sensordechuva" value="ON">&nbsp;Sensor de Chuva<br>

<input name="sensordeestacionamento" type="checkbox" id="sensordeestacionamento" value="ON">&nbsp;Sensor de Estacionam.<br>

<input name="tetosolar" type="checkbox" id="tetosolar" value="ON">&nbsp;Teto Solar<br>

<input name="travaseletricas" type="checkbox" id="travaseletricas" value="ON">&nbsp;Travas Elétricas<br>

<input name="turbo" type="checkbox" id="turbo" value="ON">&nbsp;Turbo<br>

<input name="vidroseletricos" type="checkbox" id="vidroseletricos" value="ON">&nbsp;Vidros Elétricos<br>

<input name="vidrosverdes" type="checkbox" id="vidrosverdes" value="ON">&nbsp;Vidros Verdes<br>

<input name="volanteregulaaltura" type="checkbox" id="volanteregulaaltura" value="ON">&nbsp;Volante c/ Reg. de Altura<br>

<input name="deficiente" type="checkbox" id="deficiente" value="ON">&nbsp;Adapt. para Deficiente<br>

<input name="interclima" type="checkbox" id="interclima" value="ON">&nbsp;Inter Clima<br>

<input name="intercooler" type="checkbox" id="intercooler" value="ON">&nbsp;Inter Cooler<br>

<input name="rodoar" type="checkbox" id="rodoar" value="ON">&nbsp;Rodoar<br>

<input name="sofacama" type="checkbox" id="sofacama" value="ON">&nbsp;Sofa-cama<br>

</td></tr>

</table>

</table>

<table border="1">

<tr><td><fieldset><legend>Incluir destaque</legend><input type="checkbox" name="chcdestaque" value="ON">Marque para incluir em destaque.</fieldset></td>

<td><fieldset><legend>Retirar destaque</legend><input type="checkbox" name="chcdestaque" value="OFF">Marque para excluir se não é mais destaque.</fieldset></td>

</tr>

<td><fieldset><legend>Status Destaque ON/OFF</legend><%=lista_veiculos ("chcdestaque")%></fieldset></td>

</td></tr>

 

<td><fieldset><legend>Atualizar</legend>

<input type=submit value="Atualizar" name=acao onClick="this.value='Aguarde!'">

</form>

</td>

 

<td><fieldset><legend>Deletar</legend>

<form method=post action="./con_veiculos_detalhes.asp?veic_id=<%=veic_id%>&acao=apagar">

<input type=submit value="Apagar" onClick="this.value='Aguarde!'">

</form>

</td></tr>

 

<td><fieldset><legend>Informação</legend>

Ao apagar o veículo todos os dados serão perdidos permanentemente. Antes de remover um veículo recomendamos que você anote os dados e tenha certeza do que vai fazer.

</td></tr>

 

</table>

<%

End If

End If

%>

</table>

[Legionáriors]

Podem fechar o tópico, já resolvi o problema...

Obrigado!!!