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

ip_user=request.servervariables("remote_addr") do while not rs.eof if ip_user=rs("ip") then dataenquete= rs("data") resultdata=datevalue(date) - datevalue(dataenquete) if resultdata>0 then con.execute("delete from tabela WHERE ip='" ip_user "'") exit do a rotina é essa ae

con.execute("delete from tabela where ip='"& ip_user &"'") ta deletando o registro todo como q eu faço pra deletar apenas o valor do campo ip?

blza mas e quanto ao delete que não esta funcionando ae? valeu..

não, não sei usar ID ainda.. foi ate bom lembrar disso que alem dessa ajuda ae, você poderia me ensinar a usar em meus links pagina.asp?Id=100 qual sua utilidade se é mais viavel ou não.. Muito Obrigado e parabéns pelo fórum..

if resultdata>0 then con.execute("delete from tabela where ip='"& ip &"' and data="&datars&"") exit do end if eu queria deletar os valores DESTE REGISTRO(o registro que entre na condiçao) dos campos IP e DATA apenas, só q não ta deletando... deletar o ip onde o ip fosse = à variavel (ip) e deletar a data onde a data fosse igual à variavel (datars).. deletar apenas os valores contidos q entrou na condiçao... como que eu faço, já que a minha rotina não ta deletando nada...