Combo
#1
Posted 12/06/2004, 22:18
<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>
<option value=""></option>
<%
aqui tem o codigo asp que puxa do banco
%>
</select>
Onde esse script ele atualiza a pagina e no endereço do browse fica assim: nome_do_arquivo.asp?turma=teste
__
O unico problema é o seguinte, ele atualiza e deixa esse endereço no browse, mas o combo perde o valor, fica em branco novamente, pois a pagina atualizou quando selecionou o combo,
unica coisa queeu quero fazer é com que quando ele atualize ele volte com o mesmo valor;
VLW;
#2
Posted 13/06/2004, 03:09
<? $slct=' selected="selected"';
<select style="width: 350px" name="turma" onchange="self.location.href+=((self.location.href.indexOf('?') != -1)?'&':'?')+"turma"+this.options[this.selectedIndex].value;" class="campos_formulario">
<option value="bla"<?=($_REQUEST['turma']=='bla')?$slct:''?>>Texto</option>
<option value="teste"<?=($_REQUEST['turma']=='teste')?$slct:''?>>Texto</option>
</selected>
Talvez tenha algum erro nesse código, mas a idéia é essa,
[]s
diego nunes
web engineer
~ ~~
#3
Posted 13/06/2004, 11:05
Eu queria em ASP;
#4
Posted 13/06/2004, 16:21
Kr isso é PHP.
Eu queria em ASP;
<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario> <% do until rs.eof if request("turma") = rs("turma") then strSelect = " selected" else strSelect = "" end if %> <option value="<%=rs("turma") & strSelect %>"><%=rs("texto")%></option> <% rs.movenext loop %> </select>
Num sei como q tah seu loop..ajeita u codigo aew .. mas achu q issu deve funciona..
Qaulquer coisa.. tamos ai
Edição feita por: hdz*, 13/06/2004, 16:21.
#5
Posted 13/06/2004, 17:00
#6
Posted 13/06/2004, 17:07
Edição feita por: |KILLING|, 13/06/2004, 17:09.
#7
Posted 13/06/2004, 17:13
Sorry, num sabia o valor neh kara.. vc num pois a sql nem como chama o campo.. eu inventei.. mas substitui rs("texto") pelo campo q vc quer como texto do item da combo q nem u killing feiz..cara estou fazendo aki mas estou tendo problemas em criar vetores apartir do For Next!
Num eh pra pega o codigo e cola lah neh.. modifica.. ou senaum passa o codigo intero teu pra faze
#8
Posted 13/06/2004, 17:15
O codigo q eu fiz funciona.. agora vc tem q adaptar o codigo ao seu script.. num eh só copy & paste..
Desculpe o flood, pensei q estava editando...
Edição feita por: hdz*, 13/06/2004, 17:16.
#9
Posted 13/06/2004, 17:16
<form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);">
<TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario>
<TR class=titulo_campos>
<TD>turma<br>
<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>
<option value=""></option>
<%
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.CursorLocation = 3
objRS2.CursorType = 3
objRS2.LockType = 1
strQ = "SELECT turma FROM professores, dados_professores where dados_professores.matricula = '" & Session("matricula") &"' And dados_professores.matricula = professores.matricula ORDER BY materias ASC"
objRS2.Open strQ, objCon, , , &H0001
If Not objRS2.EOF Then
while not objRs2.EOF
Response.Write "<OPTION value=""" & objRs2("turma") & """>" & objRs2("turma") & "</OPTION>"
objrs2.movenext
wend
End If
%>
</select>
#10
Posted 13/06/2004, 18:00
heheh, ficou bem legal!
<% Dim total, turma(15) total = 0 SQL = "SELECT * FROM professores WHERE matricula = '" & session("matricula") & "'" set rs = objCon.execute(sql) Do while not rs.eof total = total + 1 rs.movenext loop SQL = "SELECT * FROM professores WHERE matricula = '" & session("matricula") & "'" set rs = objCon.execute(sql) For y = 0 to total - 1 turma(y) = rs("turma") RS.MoveNext Next %> <select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario> <% For i = 0 to total - 1 %> <option value=<% If request.querystring("turma") <> "" then for x = 0 to ubound(turma) if request.QueryString("turma") = turma(x) then StrCfg = x next If StrCfg <> "" then if i = CInt(StrCfg) then response.Write(turma(i) & VbCrlf & "selected") else response.Write(turma(i)) End if Else if i = 0 then response.Write(turma(i) & VbCrlf & "selected") else response.Write(turma(i)) End if %>> <%= response.Write(turma(i)) %> </option> <% next %> </select>
Legal neh?
todo doido o código e fiz com vetores e funcionou legal!
ABRAÇOS!
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)