[Resolvido]  referente a select

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