Oi galera. Preciso criar um efeito q é + - assim. Digamos q eu tenha um desenho e ao lado tenho uma paleta de cores. O usuario clica na cor e depois clica no desenho para ele mudar de cor. Detalhe o desenho sera divido por exemplo cabeça, pé, braço, etc. :huh:
Oh. Eu fiz de outra maneira e deu certo. Agora o problema é q eu preciso guardar valores no combo , caso o ususario precise voltar à pagina para não ter q selecionar td d novo. Eu teno este codigo + ta duplicando o campo selecionado. Da uma olhada ai <select name="fNivel1" id="select2"><%
set rs=server.CreateObject("adodb.recordset")
consulta = "SELECT * FROM formacao "
Set rs = conexao.Execute(consulta)
Dim strAuxiliar
strAuxiliar = "<option value="&fNivel1_form&" selected>"&fNivel1_form&"</option>"
do while not rs.EOF
strAuxiliar = strAuxiliar & "<option value=""" & rs("fNivel") & """ " & vbCrLf
If Request.QueryString("fNivel") = rs.Fields("fNivel") Then strAuxiliar = strAuxiliar & "selected=""selected"""
strAuxiliar = strAuxiliar & ">" & rs("fNivel") & "</option>"
rs.movenext
loop
rs.close
Response.Write(strAuxiliar)%> Alguma sugestão?
da uma olhada. Set rs = conexao.Execute(consulta)
response.Write "<select name='fNivel1'>"
response.Write "<option selected value="&fNIvel1_form&">"&fNIvel1_form&"</option>"
Do while Not rs.Eof
fNivel1=trim(rs("fNivel"))
response.write "<option value="&fNivel1&">"&fNivel1&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write "</select>"
%> Veja se eu coloquei no lugar certo? porque não deu certo assim.
OK. Valeu deu certo + quando ele encontra um espaço ele para. Ex: Se escrevo Ensino Fundamental ele mostra ensino fundamental + so grava ensino. Qualquer palavra depois do espaco ele elimina. Como tiro isto? Não sei da pra tirar com replace + eu não sei usar replace. O codigo q estou usando é este eu fiz algumas alterações <% set rs=server.CreateObject("adodb.recordset") consulta = "SELECT * FROM formacao " Set rs = conexao.Execute(consulta) response.Write "<select name='fNivel1'>" response.Write "<option selected value="&fNIvel1_form&">"&fNIvel1_form&"</option>" Do while Not rs.Eof fNivel1= rs("fNivel") response.write "<option value="&fNivel1&">"&fNivel1&"</option>" rs.movenext loop rs.close set rs=nothing response.Write "</select>" %>