[Resolvido] referente a select

[dedindol 0]

Olá galera....

 

to com um sistema pra terminar, mas tem uma parte que nao está saindo...hehe

 

é o seguinte....

 

eu faço a inclusão de serviços no banco e depois preciso alterar...

 

nesses serviços tem um campo select com 5 opções...arquitetura / comercio / informática / imobiliária / outros

 

na hora de incluir ele tá incluindo no banco sertinho o que foi selecionado...mas quando clico em alterar ele já traz o arquitetura que é o primeiro selecionado e nao importa qual eu selecione, sempre fica no arquitetura....

 

as páginas são essas aí ó...

 

alteraservicos.asp - tem o formulário com os campos

 

CODE

<!--#Include File="session.asp"-->

<!--#Include File="conexao.asp"-->

<%

dim Vid, sql, rs, sel

 

Vid = Request.QueryString("id")

 

Call AbreConn()

 

sql = "Select * From tb_topo Where id_topo = " & Vid

 

Set rs = conn.Execute (sql)

 

%>

 

<script>

function vazio(){

 

var empresa = document.form.empresa.value;

 

if(empresa == ""){

alert("Informe o nome da Empresa");

document.form.empresa.focus();

return false;

}

}

</script>

 

 

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<form name="form" id="form" method="post" action="alteraservicosfinal.asp" onsubmit="return vazio()">

<input type="hidden" name="id" value="<%=Vid%>">

<table border="0" align="left" width="330">

<tr>

<td align="right" valign="top" class="caixa_texto">Empresa:</td>

<td height="22"><input name="empresa" type="text" class="caixa_texto" id="empresa" value="<%=rs("empresa")%>" size="63" maxlength="60" /></td>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Descrição:</td>

<td height="22"><textarea name="descricao" cols="62" rows="5" class="caixa_texto" id="descricao"><%=rs("descricao")%></textarea></td>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Tipo:</td>

<td height="22"><select name="tipo" class="caixa_texto" id="tipo" selected="<%

If rs("tipo") = 0 Then

selec = "selected='selected'"

End If

%>">

<option value="on">On-line</option>

<option value="off" <%=selec%>>Off-line</option>

</select></td>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Segmento:</td>

<td height="22"><label>

 

<select name="segmento" class="caixa_texto" id="segmento">

<option value="Arquitetura" <% if segmento = "Arquitetura" THEN Response.Write("selected='selected'")%> >Arquitetura</option>

<option value="Comércio" <% if segmento = "Comércio" THEN Response.Write("selected='selected'")%>>Comércio</option>

<option value="Imobiliária" <% if segmento = "Imobiliária" THEN Response.Write("selected='selected'")%>>Imobiliária</option>

<option value="Informática" <% if segmento = "Informática" THEN Response.Write("selected='selected'")%>>Informática</option>

<option value="Outros" <% if segmento = "Outros" THEN Response.Write("selected='selected'")%>>Outros</option>

</select> </label></td>

 

<%

response.Write(segmento)

response.End()

%>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Capa/Site: </td>

<td height="22"><select name="capa" class="caixa_texto" id="capa" selected="<%

If rs("capa") = 0 Then

selecio = "selected='selected'"

End If

%>">

<option value="s">Sim</option>

<option value="n" <%=selecio%>>Não</option>

</select></td>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Topo/Lista:</td>

<td height="22"><select name="topo" class="caixa_texto" id="topo" selected="<%

If rs("topo") = 0 Then

sele = "selected='selected'"

End If

%>">

<option value="s">Sim</option>

<option value="n" <%=sele%>>Não</option>

</select></td>

</tr>

<tr>

<td align="right" valign="top" class="caixa_texto">Link (URL):</td>

<td height="22"><input name="url" type="text" class="caixa_texto" id="url" value="<%=rs("url")%>" size="63" maxlength="100" /></td>

</tr>

<%Call FechaConn()%>

<tr>

<td height="22" colspan="2" align="right" valign="top" class="caixa_texto"><input name="submit" type="submit" class="caixa_texto" value="Alterar Notícia" /></td>

</tr>

</table>

</form>

 

 

alteranoticiafinal.asp - faz a alteração no banco

 

CODE

<!--#Include File="session.asp"-->

<!--#Include File="conexao.asp"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

 

<%

Dim rs, sq, Vid, empresa, descricao, tipo, segmento, capa, topo, url

 

Vid = Request.form("id")

empresa = Replace(Request("empresa"),"'","")

descricao = Replace(Request("descricao"),"'","")

tipo = Request.Form("tipo")

segmento = Request.Form("segmento")

capa = Request.Form("capa")

topo = Request.Form("topo")

url = Replace(Request("url"),"'","")

 

 

If tipo = "on" Then

tipo = "1"

Else

tipo = "0"

End If

 

If capa = "s" Then

capa = "1"

Else

capa = "0"

End If

 

If topo = "s" Then

topo = "1"

Else

topo = "0"

End If

 

Call AbreConn()

sq = "Update tb_topo Set" & _

" empresa = '" & empresa & "'" & _

", descricao = '" & descricao & "'" & _

", tipo = " & tipo & _

", segmento = '" & segmento & "'" & _

", capa = " & capa & _

", topo = " & topo & _

", url = '" & url & "'" & _

" Where id_topo=" & Vid

 

conn.execute(sq)

 

'response.Write(sq)

'response.End()

 

Call FechaConn()

%>

<div align="center" class="azul">Atualizando o serviço, Aguarde!!!</div>

 

<script type="text/javascript">

alert("Serviço Alterado com sucesso!!!")

window.location="servicos.asp"

</script>

 

Será que alguém consegue me ajudar?

 

valeu...abraços

[Mário Monteiro 179]

Onde voce recupera o que está gravado antes de exibir o form de alteração?

[dedindol 0]

Aí está a minha dificuldade,

 

um amigo me falou que eu deveria recuperar o que tem no banco (eu já confirmei que está gravando certinho no banco)

 

mas eu nao faço idéia de como recuperar esse select....

[dedindol 0]

Conseguiiiiiiiiiiiiiiiiiiiiiiiii....uhuuuuuuuuuuuuuuuuuuuuu

 

quando você perguntou como eu recupero o que está gravado antes de exibir o form de alteração eu saquei...rsrs

 

um amigo tinha comentado que tinha que recuperar esse valor mas eu nao tava sabendo fazer...depois foi só esfriar a mente um pouco e saiu...hehe....

 

foi só definir que segmento = rs("segmento")

 

ou seja...eu recupero o que está gravado no campo "segmento" do banco e passo o valor para a variável segmento

 

o resto eu trato com um if e ta resolvido...hehe

 

agora tá funcionando belezinha...

 

abraços e obrigado novamente...

[NaPraia 12]

o melhor é quando você selecionar uma dessas 5 opções, é manter o ID da opção selecionada sempre numa variável. aí antes do update ao invés de um request.form(id) você usa a variável no update

[Mário Monteiro 179]

Que bom que conseguiu

 

Parabens

 

Abraços