dudujm

Perfeito! Muito Obrigado Crystian!!

Melhorando.. function DisponiveisDblClick(select) { var index = select.selectedindex; alert(index); if (index > -1) { var novoitem = document.createElement("option"); novoitem.value = select.value; novoitem.text = select.text; document.frmColunas.disponiveis.remove(index); document.frmColunas.selecionadas.add(novoitem, document.frmColunas.selecionadas.options.length); } else { alert("Selecione um item na lista de Colunas Disponíveis"); } }

function DisponiveisDblClick([COLOR=green]select[/COLOR]) { var index = [COLOR=green]select.selectedindex[/COLOR]; [COLOR=red]alert(index);[/COLOR] if (index > -1) { var novoitem = document.createElement("option"); novoitem.value = select.value; novoitem.text = select.text; document.frmColunas.disponiveis.remove(index); document.frmColunas.selecionadas.add(novoitem, document.frmColunas.selecionadas.options.length); } else { alert("Selecione um item na lista de Colunas Disponíveis"); } } Ok Crystian, alterei aqui, porém ele vai logo pra mensagem: alert("Selecione um item na lista de Colunas Disponíveis"); e no alert(index); Ele está retornando ainda, 'Undefined'.. Que que ta pegando aí? Muito Obrigado cara..

select.remove(select.selectedIndex); Erro Constatado na Barra do IE Nessa linha: "Object doesn´t suport this property or method" Que que pode ser? Abraços!!

Meu JS function DisponiveisDblClick(select, selectRecebe) { var obj = select.options[select.selectedIndex]; selectRecebe.options[selectRecebe.options.length] = obj; select.remove(select.selectedIndex); } MEU HTML <select name="selecionadas" size="20" id="selecionadas" ondblclick="DisponiveisDblClick(this, document.frmColunas.disponiveis)"> <%=html_aceitas%> </select> . . . <select name="disponiveis" size="20" id="disponiveis" ondblclick="DisponiveisDblClick(this, document.frmColunas.selecionadas)"> <%=html_disponiveis%></select> E Ainda não está Funcionando :/

Concerteza.. Muito Fácil e Muito Melhor, dúvida sanada.. Abraços!!

Pessoal, Estou fazendo Paginação com o Mysql, e o rs.Pagecount não retorna o valor correto, o rs.PageSize Não obedece à quantidade de registros que eu quero. vide fonte: conn.CursorLocation = 3 Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = conn rs.CursorType = 3 'Tipo do cursor do RecordSet rs.PageSize = 50 'Qtde de registros a serem exibidos Set rs = conn.execute(sql) If pagina="" or isnull(pagina) Then pagina = 1 End If If rs.eof or rs.bof Then htmlDados = htmlDados & "<tr bgcolor='#FFFFFF'><td colspan=" htmlDados = htmlDados & numColunas + 1 & " align='center'><font color='#CC0000'><strong>NENHUM RESULTADO ENCONTRADO</strong></font></td></tr>" Else rs.AbsolutePage = pagina TotalPaginas = rs.Pagecount O que que pode ser? Obrigado

ok, desculpa.. Mas rodo as páginas com o IIS sim, e instalei ele normalmente, o que faz com que o servidor SMTP também deva estar instalado. As diferenças são: . Não envia um e-mail; . E na empresa é usado um programa de proxy, pra que todas as máquinas em rede da empresa possam se conectar à internet, enviar e-mails etc.. Isso pode influenciar? Obrigado

Tá blza Crystian, Muito Obrigado cara... Abraços!!

blza já consegui o codigo e brigadao ae galera...

Aos admin do forum gostaria de pedir desculpas por ter feito topicos semelhantes.. concerteza eu não soube especificar corretamente e consequentemente a duvida ficou ambigua o que tornou semelhante ao outro tópico, me desculpem.. Eu gostaria de saber se alguém tem ou sabe onde tem ou teria como me passar um exemplo simples de uma enquete em asp, com banco access.. Muito Obrigado e Desculpem o Transtorno..

Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0006) Estouro /hackz/enquete.asp, line 100

do while not rs.eof 'vared=rs("edmais") fimed=fimed+rs("edmais") 'varbm=rs("bom") fimbm=fimbm+rs("bom") 'varrm=rs("ruim") fimrm=fimrm+rs("ruim") 'vartotal=rs("total") fimtotal=fimtotal+rs("total") loop end if perced=(fimed*100)/fimtotal percbm=(fimbm*100)/fimtotal percrm=(fimrm*100)/fimtotal o erro esta ocorrendo na linha... perced=(fimed*100)/fimtotal erro: Erro de tempo de execução do Microsoft VBScript (0x800A0006) Estouro o while esta passando por todos os registros ta pegando a variavel vared q ta recebendo rs("edmais") q ta sendo somada a fimed... todos os campos e variaveis são numericos...gostaria de uma ajuda e o porque desse erro... Desde já, Muito obrigado, Valeus

sim, deletar o valor do campo,deixando o CAMPO e não o registro todo, vazio

ou vei, eu postei a duvida e depois postei a rotina completa... daquele jeito ali, ta deletando o regitro inteiro e eu queria q só deixasse o campo ip do registro vazio, isso q eu queria... valeuuu