ListBox Request.form (dados para atualizar) (Access)

[ricardo coelho designer 0]

Bom dia a todos!

 

Gente estou com uma dificuldade com meu listbox, bom o que acontece é o seguinte:

 

Tenho pagina de request que serve para atualizar os dados, ela recebe o dados sem problemas, bom ele mostra:

1) Nome do projeto:

2) Tipo:

3) Instituição: Aqui que está o problema eu não consigo fazer com que apareça selecionado.

 

Segue abaixo o código usado, agradeço desde já a ajuda de vcs.

 

<!--#include file="restrito-conexao.asp" --><!--#include file="restrito-cookie.asp" --><%Function EscreveFuncaoJavaScript ( Conexao )Response.Write "<script language=""JavaScript"">" & vb script:history.back(-1)">Volta</a><%else%><br><form name="empresa" method="post" action="ENVIOPROJETO-atualizar-BD.asp?atualizar=<%= OBJRS("idenviodeprojeto")%>">Nome do projeto:<% Evento = OBJRS("EVENTO")%><select size="1" name="evento"><%Sub AbreConexao()strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConEnd SubSub FechaConexao()Conexao.CloseSet Conexao = NothingEnd SubFunction FechaRs(NomeRs)End functionCall AbreConexao()Set Rs2 = Conexao.Execute("Select * From LISTANOMEEVENTO order by id")Do While Not Rs2.eofIf Evento = Rs2("evento") ThenResponse.Write "<option value=" & Rs2("evento") & " selected>" & Rs2("evento") & "</option>" & vb script:atualiza(this.form);" class="Formulario"><% While NOT Rs.EoF %><%If tipo = Rs("tipo") ThenResponse.Write "<option value=" & Rs("tipo") & " selected>" & Rs("tipo") & "</option>" & vbCrlfElseResponse.Write "<option value=" & Rs("tipo") & ">" & Rs("tipo") & "</option>" & vbCrlfEnd If%><% Rs.MoveNext %><% Wend %></select><br><% instituicao = OBJRS("instituicao")%>Instituição:<select name="instituicao"  class="Formulario"></select> <br><%Rs.CloseSet Rs = NothingConexao.CloseSet Conexao = Nothing%><input name="idenviodeprojeto" type="hidden" id="idenviodeprojeto" value="<%= OBJRS("idenviodeprojeto")%>">														 <input name="Atualizar" type="submit" id="Atualizar" value="Atualizar" class="Formulario"><br></form><%End if%> <%End if%>

[jrcardozo 4]

verificou se a variavel tipo tem um valor comparativo com o banco?

[ricardo coelho designer 0]

Bom pra ser sincero não, quando fiz os primeiros 2 primeiro request deu tudo certo mas quando chegou aqui é embananou tudo. Nem sei o que fazer se puder da uma luz agradeço bastante. Mas mesmo assim estou tentando.

verificou se a variavel tipo tem um valor comparativo com o banco?

[raphanasc 0]

pelo que eu percebi você está abrindo um select no inicio, listando os eventos com os option e fechando

soh que na parte da instituição você nem colocou o recordset pra fazer do while e colocar os option que vao listas as opções pro cliente.

a verificação você pode fazer assim

<select><%Set Rs3 = Conexao.Execute("Select * From LISTANOMEinstituicao order by id")Do While Not Rs3.eof%><option value="<%=rs3("id")%>"<%if RS3("nomeInstituicao") = instituicao then%> selected <%end if%>><%=rs3("nomeInstituicao")%></option><%rs3.movenext : loop%></select>

[ricardo coelho designer 0]

Cara valeu era isso mesmo... Vou postar o código completo aqui para que outros possam utiliza-lo se precisarem.

<!--#include file="restrito-conexao.asp" --><!--#include file="restrito-cookie.asp" --><%Function EscreveFuncaoJavaScript ( Conexao )Response.Write "<script language=""JavaScript"">" & vb script:history.back(-1)">Volta</a></font></div><%else%><br><table width="500"><tr><td><form name="empresa" method="post" action="ENVIOPROJETO-atualizar-BD.asp?atualizar=<%= OBJRS("idenviodeprojeto")%>"><font face="Verdana, Arial" color="#0066CC" size="2">Nome do projeto:</font></td><td><% Evento = OBJRS("EVENTO")%><select size="1" name="evento"><%Sub AbreConexao()strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConEnd SubSub FechaConexao()Conexao.CloseSet Conexao = NothingEnd SubFunction FechaRs(NomeRs)End functionCall AbreConexao()Set Rs2 = Conexao.Execute("Select * From LISTANOMEEVENTO order by id")Do While Not Rs2.eofIf Evento = Rs2("evento") ThenResponse.Write "<option value=" & Rs2("evento") & " selected>" & Rs2("evento") & "</option>" & vb script:atualizacarros(this.form);" class="Formulario"><% While NOT Rs.EoF %><%If tipo = Rs("tipo") ThenResponse.Write "<option value=" & Rs("tipo") & " selected>" & Rs("tipo") & "</option>" & vbCrlfElseResponse.Write "<option value=" & Rs("tipo") & ">" & Rs("tipo") & "</option>" & vbCrlfEnd If%><% Rs.MoveNext %><% Wend %></select><br><Tr><td><% instituicao = OBJRS("instituicao")%><font face="Verdana, Arial" color="#0066CC" size="2">Instituição:</font></td><td><select><%Set Rs3 = Conexao.Execute("Select * From listaEmpresa order by id")Do While Not Rs3.eof%><option value="<%=rs3("id")%>"<%if RS3("Instituicao") = instituicao then%> selected <%end if%>><%=rs3("Instituicao")%></option><%rs3.movenext : loop%></select> <br><%Rs.CloseSet Rs = NothingConexao.CloseSet Conexao = Nothing%></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Responsável por patrocínio:</font></td><td><input name="responsavelpatrocinio" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("responsavelpatrocinio")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Cargo:</font></td><td><input name="Cargo" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("Cargo")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">E-mail:</font></td><td><input name="Email" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("Email")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Telefone:</font></td><td><input name="DDD" type="text" size="1" maxlength="2" class="Formulario" value="<%= OBJRS("DDD")%>" onkeypress="return txtBoxFormat(document.empresa, 'DDD', '99', event);"> <input name="Telefone" type="text" class="Formulario" value="<%= OBJRS("Telefone")%>" id="Telefone" size="11" maxlength="9" onkeypress="return txtBoxFormat(document.empresa, 'Telefone', '9999-9999', event);"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Follow-up:</font></td><td><input name="followup" type="text" class="Formulario" value="<%= OBJRS("followup")%>" id="followup" size="11" maxlength="9" onkeypress="return txtBoxFormat(document.empresa, 'followup', '99/9/99', event);"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Sinalizou enteresse:</font></td><td><%if objRS("interesse") = FALSE theninteresse = ""elseinteresse = "checked"end if%><input name="interesse" type="checkbox" id="interesse" value="interesse"<%=interesse%>></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Histórico:</font></td><td><textarea name="historico" cols="60" rows="5" class="Formulario" id="historico" value="<%= OBJRS("historico")%>"><%=OBJRS("historico")%></textarea></td><Tr><td></td><td><input name="usuarioATUAL" type="hidden" id="usuarioATUAL" value="<%= request.cookies("access")("usuario")%>"><input name="idenviodeprojeto" type="hidden" id="idenviodeprojeto" value="<%= OBJRS("idenviodeprojeto")%>"> <input name="Atualizar" type="submit" id="Atualizar" value="Atualizar" class="Formulario"><br></form></td></tr></table><%End if%> <%End if%></form><table width="450" ><tr bgcolor="#0066CC" align="center"><td><font face="Verdana, Arial" color="#FFFFFF" size="2"> Tipo:</font></td></tr> <%sub abre_conexaoset conexao = CreateObject("ADODB.Connection")Conexao.Open "DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb;Driver={Microsoft Access Driver (*.mdb)}"end subsub fecha_conexaoConexao.closeSet Conexao = nothingend subcall abre_conexaosql = "select * from ENVIOPROJETO order by idenviodeprojeto"set tab = conexao.execute(sql)%> <% while not tab.eof %> <%if backcolor = "#EAEAEA" thenbackcolor = "#F2F2F2"elsebackcolor = "#EAEAEA"end if%><form name="atualizar" method="post" action="ENVIOPROJETO-atualizar-form.asp"><tr style="background-color:<%=backcolor%>"><td align="right"><font face="Verdana, Arial" color="#0066CC" size="2"> <%= tab("INSTITUICAO")%>><font face="Verdana, Arial" color="#FF0000" size="2"><b><%data1 = date()data2 = tab("followup")fdata = DateDiff("d", data1, data2)response.write "" & fdata & " dias para o Follow-up"%> <b> </font> |<input name="idenviodeprojeto" type="hidden" id="idenviodeprojeto" value="<%= tab("idenviodeprojeto")%>"> <input name="atualizar" type="submit" id="atualizar" value="atualizar" class="Formulario"> | <a href="ENVIOPROJETO.asp?Excluir=<%= tab("INSTITUICAO")%>">Excluir</a> </form></div><%if request.querystring ("excluir") = tab("INSTITUICAO") then%><div align="center"> <br> Tem certeza que deseja excluir <font face="Verdana, Arial" color="#FF0000" size="2"> <b><%= tab("INSTITUICAO")%></b></font>? <br><br><a href="ENVIOPROJETO-atualizar-form-BD.asp?Excluir=<%= tab("idenviodeprojeto")%>">Sim</a> - <a href="ENVIOPROJETO.asp">Não</a> </div><%end if%><%tab.movenextwend%></font></td></tr></table><br></td></table></td></tr><tr><td class="menu"><!--#include file="menu.asp"--></td></tr><tr><td class="base"><img src="imagem/adm_inferior.jpg" width="750" height="161"></td></tr></table></td></tr></table></td></tr></table></body></html>

pelo que eu percebi você está abrindo um select no inicio, listando os eventos com os option e fechandosoh que na parte da instituição você nem colocou o recordset pra fazer do while e colocar os option que vao listas as opções pro cliente.a verificação você pode fazer assim

<select><%Set Rs3 = Conexao.Execute("Select * From LISTANOMEinstituicao order by id")Do While Not Rs3.eof%><option value="<%=rs3("id")%>"<%if RS3("nomeInstituicao") = instituicao then%> selected <%end if%>><%=rs3("nomeInstituicao")%></option><%rs3.movenext : loop%></select>