Gnomo

E aí bareta.. vlw pela resposta.. fiz o que pediu mais deu o seguinte erro:

Seguinte galera.. to com fazendo um script mais ele esta dando erro mais eu já olhei em tudo fiz todo o possivel procurei em um monte de fórum e não achei nada parecido com o meu caso. O codigo é esse: <!-- #include file="lib/DBAbre.asp" --> Set rstEditar = Server.CreateObject("ADODB.Recordset") intSecaoCodigo = 0 If Len(Request("cat")) > 0 And IsNumeric(Request("cat")) Then intSecaoCodigo = Request("cat") If Request("aco") = "atu" Then rstEditar.Open "SELECT * FROM Secoes WHERE Secoes.Codigo = " & intSecaoCodigo & ";", conn, adOpenKeyset, adLockOptimistic, adCmdText If Not rstEditar.EOF Then O código continua só postei a parte do erro.. está dando o seguinte erro: a linha 14 é essa: rstEditar.Open "SELECT * FROM Secoes WHERE Secoes.Codigo = " & intSecaoCodigo & ";", conn, adOpenKeyset, adLockOptimistic, adCmdText Me ajuda galera.. não to conseguindo de jeito nenhum.. vlw.. Desde já agradeço.

Esse sub-forum trata de ASP e não de PHP. vlw...

Seguinte galera.. fiz uma função aqui que mostra o conteúdo quando <option> estiver selecionada mostra um conteúdo em uma <DIV> com ID=texto Código: <script> function Classifica(lngValor) { var strAdmin = ""; var strLimit = ""; var strMode = ""; strAdmin += "<BR>" + "<B>Conta Selecionada:</B> <FONT STYLE=font-weight:normal;>Administrador Geral<BR><BR>" strLimit += "<BR>" + "<B>Conta Selecionada:</B> <FONT STYLE=font-weight:normal;>Limitado<BR><BR>" strMode += "<BR>" + "<B>Conta Selecionada:</B> <FONT STYLE=font-weight:normal;>Moderador<BR><BR>" if (lngValor != 0){ if (lngValor == 'selecione'){ texto.innerHTML = ""; } if (lngValor == '1'){ texto.innerHTML = strAdmin; } if (lngValor == '2'){ texto.innerHTML = strLimit; } if (lngValor == '3'){ texto.innerHTML = strMode; } } } </SCRIPT> <TABLE border=0 cellpadding=1 cellspacing=0 width=100%> <TR> <TD class=ipti nowrap> <FORM name=form1> <SELECT name="tipo" OnChange="Classifica(options[selectedIndex].value);"> <OPTION value=selecione>Selecione</OPTION> <OPTION value=1>Administrador Geral</OPTION> <OPTION value=2>Limitado</OPTION> <OPTION value=3>Moderador</OPTION> </SELECT> </FORM> </TD> </TR> </TABLE> <TABLE border=0 cellpadding=1 cellspacing=0 width=100%> <TR><TD> <DIV id=texto> </DIV> </TD></TR> </TABLE> Só que por exemplo a <OPTION value=1>Administrador Geral</OPTION> está selecionada automaticamente não aparece nada no conteúdo da <div id=texto> mais se você selecionar outro <OPTION> e selecionar a <OPTION value=1>Administrador Geral</OPTION> de novo o conteúdo aparece... então tentei fazer isso: mais não deu certo alguém sabe como eu faço isso? Desde já agradeço.

são mais de 60 frases pra colocar.. vai ficar mais trabalhoso eu fazer cada uma é melhor fazer um movie com um texto dinamico e puxar os valores de um txt fica bem melhor. So que eu não sei fazer isso.. de por exemplo quando dar 30 segundos passar pra outra frase.. Desde já agradeço.

Galera beleza? qria fazer uma animação com frases passando.. so que essas frases estão em um *.txt como eu faço para um frase aparecer e depois de 30s ela some e aparece outra. Desde já agradeço.

Isso é outra coisa. Na verdade eu puxo o valor de: Response.Cookies("Seguranca")("Ultimo") = rstLogin("UltimaVisita") como abaixo: Olá <B><%=Request.Cookies("Seguranca")("AdminNome")%></B>, sua Ultima Visita foi em: <B><%=Request.Cookies("Seguranca")("Ultimo")%></B>. Desde já agradeço.

alguém? :( grato.

Estou usando access. tenho uma tabela AdministradoresVisitas com as colunas: Codigo que é a chave primaria, Administrador, Inicio, Ultimo, IP e UltimaVisita. Estou fazendo assim: A coluna UltimaVisita esta com o valor padrão "Agora()" so que o valor e inserido com a hora de agora. Codigo: Criando o cookie: Dim lngAdminCodigo, strAdminNome lngAdminCodigo = rstLogin("Codigo") strAdminNome = rstLogin("Nome") rstLogin.Close() rstLogin.Open "AdministradoresVisitas", conn, adOpenKeyset, adLockOptimistic, adCmdTable rstLogin.AddNew() rstLogin("Administrador") = lngAdminCodigo rstLogin("IP") = Request.ServerVariables("REMOTE_ADDR") rstLogin("Inicio") = Now() rstLogin("Ultimo") = Now() rstLogin.Update() Response.Cookies("Seguranca")("Ultimo") = rstLogin("UltimaVisita") Response.Cookies("Seguranca")("VisitaCodigo") = rstLogin("Codigo") Response.Cookies("Seguranca")("AdminNome") = strAdminNome Puxando valor: Olá <B><%=Request.Cookies("Seguranca")("AdminNome")%></B>, sua Ultima Visita foi em: <B><%=Request.Cookies("Seguranca")("Ultimo")%></B>. Desde já agradeço.

Galera.. seguinte.. to fazendo um sistema de usuarios so que eu queria guardar as informações da ultima visita do usuario, para retonar assim: Sua ultima visita foi em: dd/mm/aa hh:mm so que o valor retornado é o da data atual alguém pode me ajudaR? Desde já agradeço.

fercosmig teria como isso: if (valor != 0){ if (valor == 'a'){ document.form1.opc1.checked = true; document.form1.opc1.disabled = true; } ser assim: if (valor != 0){ if (valor == 'numero'){ document.form1.opc + numero.checked = true; document.form1.opc + numero.disabled = true; } que o input checkbox seria assim: <select name="teste" onchange="testando(options[selectedIndex].value);"> <option></option> <option value="numero">Administrador</option> <option value="numero">Limitado</option> </SELECT> <input type=checkbox name="opc + numero" value="1"> <input type=checkbox name="opc + numero" value="2">

fercosmig olha aí: http://www.foxmdesigner.com.br/teste.html Quando seleciona 'a" ele marca e fica desabilitado. Mais quando seleciona "b" o "a" ainda fica marcado e desabilitado. Teria como quando clicar em "b" o "a" ficasse desmarcado e ativado e assim por diante? Desde já agradeço.

fercosmig Queria algo assim: http://www.foxmdesigner.com.br/checkbox.gif vê se você intende. Eu sei o que eu to qrendo mais não sei explicar.. ai fiz essa imagem ai é o maximo que consegui explicar rsrsrsrsss.. A imagem não está aparecendo :( desde já agradeço.

e ai galera beleza? Seguinte.. queria fazer algo +- assim: a página terá um <SELECT> <OPTION name=1>Sel 1</OPTION> <OPTION name=2>Sel 2</OPTION> </SELET> ai esse OPTION vai selecionar as seguintes checkbox: <INPUT TYPE=CHECKBOX NAME=1> <INPUT TYPE=CHECKBOX NAME=2> O <OPTION name=1>Sel 1</OPTION> irá selecionar a checkbox <INPUT TYPE=CHECKBOX NAME=1> e o <OPTION name=2>Sel 2</OPTION> vai selecionar a checkbox <INPUT TYPE=CHECKBOX NAME=2> e assim a checkbox selecionada ficará "desativada" alguém sabe como fazer? Desde já agradeço.

aí galera to fazendo um sistema de usuarios no meu site e tal.. So que eu qria fazer se tp a pessoa cadastra um usuario ai já tem esse nome de usuario ou o email é o mesmo ele mostrava a msg de que o nome de usuario já existe ou email. desde já agradeço.

Verifique se seu firefox aceita cookies: Ferramentas/Opções/Privacidade/Cookies Fiz o login com os cookies habilitados e consegui logar. Ai desabilitei os cookies e não consegui apareceu a seguinte msg: Senha ou Login inválido! Volte e tente novamente. Valeu.

E aí galera... seguinte.. estou desenvolvendo um site para uma revista da minha cidade.. Eles estão pedindo uma area onde o leitor irá assinar a revista. Eu não tenho nenhuma experiencia em E-commerce. Queria fazer atraves de boleto. Minhas duvidas são: Como faço para gerar esses boletos? e como faço para o usuario efetuar a compra? alguém poderia tirar essa duvida?! Desde já agradeço.

Coe galera.. seguinte queria saber como faço para usar o ObjetoMath.Length? para saber o tamanho de um texto que esta no bd rs("texto") e retonar o valor.. Tipo assim: Este texto contém: 1000 caracteres tipo isso aí.. Desde já agradeço.

Muito obrigado por avaliarem meu trabalho.. Falando ao amigo ::frenetico:: Eu deixei vazio, pois quando a pessoa estiver usando a resoluçao 800x600 a pagina fica no tamanho padrão.. Muito obrigado a todos..

http://www.foxmdesigner.com.br/NegociosOffshore/v2 ficou bom meu trabalho? dê sua sugestão para mudanças... Grato;

Seguinte eu já tenho meu sistema de enquete.. mais queria que ela ficasse alternando.. esse é o codigo que uso para exibir-la: <% If lngEnquete > 0 Then Set rstEnquete = CreateObject("ADODB.Recordset") rstEnquete.Open "SELECT * FROM Enquetes WHERE Codigo = " & lngEnquete & ";", conn If Not rstEnquete.EOF Then %> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%> <TR> <TD COLSPAN=3><IMG SRC=img/cab-win-enquete.gif BORDER=0></TD> </TR> <TR> <TD WIDTH=11 background=img/esq-win-fotos.gif></TD> <TD width="300" BGCOLOR=#A0A0A0> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%> <script language=JavaScript> <!-- function abreEnquete(pagina,janela,w,h) { window.open(pagina,janela,'width='+w+',height='+h+',scrollbars=yes,toolbar=no,location=no,status=no,menubar=no,resizable=no,left=550,top=5'); } //--> </SCRIPT> <FORM action=?cat=7 method=post target=jenquete onsubmit="abreEnquete('','jenquete',320,350);"> <INPUT type=hidden name=enquete value=<%=rstEnquete("Codigo")%>> <TR> <TD WIDTH=1><img src=img/b.gif></TD> <TD WIDTH=299 COLSPAN=2> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR><TD COLSPAN=2><BR><CENTER><B><FONT size=1 color=#CC0000> <%=rstEnquete("Pergunta")%></FONT></B></CENTER> </TD></TR> <% Set rstRespostas = CreateObject("ADODB.Recordset") rstRespostas.Open "SELECT * FROM EnquetesRespostas WHERE Enquete = " & rstEnquete("Codigo") & " ORDER BY Resposta;", conn While Not rstRespostas.EOF %> <TR><TD WIDTH=5%><DIV ALIGN=RIGHT><input style="width:12px" type="radio" name="voto" value="<%=rstRespostas("Codigo")%>"> </DIV></td><td WIDTH=50%><FONT size=1>&nbsp;&nbsp;<%=rstRespostas("Resposta")%></FONT></td></tr> <% rstRespostas.MoveNext() Wend rstRespostas.Close() Set rstRespostas = Nothing %> <TR><TD COLSPAN=2><CENTER><input type=image src="img/quadro-enqte-bt.gif"></CENTER></td></tr></TABLE> </TD> </TR> </form> </table> </TD> <TD WIDTH=10 background=img/dir-win-fotos.gif></TD> </TR> <TR> <TD COLSPAN=3><IMG SRC=img/rod-win-fotos.gif BORDER=0></TD> </TR> </TABLE><% End If rstEnquete.Close() Set rstEnquete = Nothing End If %> alguém sabe como deixar em aleatório? Desde já agradeço, GnomO!

Ok.. muito obrigado.. consegui o que eu qria x)

Qria fazer com que os registros do bd aparecerem lado a lado... tipo isso: <TABLE> <TR> <TD>Nome1</TD> <TD>Nome2</TD> </TR> <TR> <TD>Nome3</TD> <TD>Nome4</TD> </TR> <TR> <TD>Nome5</TD> <TD>&nbsp;</TD> <!-- Registros Acabam aqui --> </TR> </TABLE> alguém sabe como fazer? Desde já agradeço...

Seu servidor aceita o componente aspemail? []'s

Retirei o Wend mas outro erro aparece: ADODB.Recordset (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /NegociosOffshore/Paginacao.asp, line 51 :( O que faço agora?! Desde já agradeço...