DELPHI-Man32
-
Total de itens
895 -
Registro em
-
Última visita
Tudo que DELPHI-Man32 postou
-
bom acho que nesse exemplo em asp não da, pois os valores serao diferentes, neste caso aí com meu nome fica facil pois sei que são 6 letras. tentei fazer com 'for' e 'while' mas não deu muito certo se alguém tiver algo ai... please, help me!
-
tipo: tenho no banco de dados os nomes dos membros do site quero trocar todas as letras do nome por imagens tipo: EX. VAGNER FICARIA v.gif a.gif g.gif n.gif e.gif r.gif alguém tem algo assim ai? abs, VAGNER
-
puxa não acredito que é isso! e eu passei a tarde quase toda mexendo nisso! mas valeu!
-
aí PESSOAL TO FAZENDO UMA PAGINAÇÃO E APARECE SEMPRE O MESMO REGISTRO VEJAM: <% id = request.querystring("id") pagina = request.QueryString("pagina") %> <!--#include file="funcoes_asp/gamela.asp"--> <!--#include file="funcoes_asp/selecionabanner468.asp"--> <% '--------------------------------------------------------------------- 'Criando o sql e abrindo o objeto RS na conexao do banco de dados '--------------------------------------------------------------------- srtSQL = "select * from torpedos" Set rspag = Server.createobject("adodb.recordset") rspag.open srtSQL, conex, 3,3 %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>:-) Torpedos (-:</title> </head> <body bgcolor="#FF6600" background="imagens/back_red.jpg"> <% '--------------------------------------------------------------------- 'Definido a quantidade de registros por página rspag.PageSize = 5 if rspag.eof then else 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")= "" then intpagina = 1 ELSE 'Se a pagina atual for menor que 1, então a pagina será 1 IF cint(Request.QueryString("pagina")) < 1 then intpagina = 1 ELSE 'Se a pagina atual for maior que o numero de paginas do 'RS então a pagina atual será igual a numero total de paginas(ultima) IF cint(Request.QueryString("pagina")) > rspag.PageCount then intpagina = rspag.PageCount ELSE 'caso contrário a pagina atual será aquela enviado pelo parametro intpagina = Request.QueryString("pagina") 'Fim das verificações de exceções END IF END IF END IF END IF '--------------------------------------------------------------------- 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rspag.AbsolutePage = intpagina '--------------------------------------------------------------------- 'Inicia o contador que vai controlar os registros mostrados contador = 0 '--------------------------------------------------------------------- While not rspag.EOF AND contador < rspag.PageSize %> <table border="0" width="479" id="table1" height="70" style="border-left-width: 1px; border-right-width: 1px; border-top-style: dotted; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"> <tr> <td width="71" rowspan="3" height="65" valign="middle"> <p align="center"> <a target="_blank" href="profile.asp?id="> <img border="0" src="" width="66" height="66"></a></td> <td colspan="3" height="23"><b> <font face="Verdana" size="1" color="#FFFFCC">DE: - Em: <%=rspag("data")%></font></b></td> </tr> <tr> <td width="389" height="23" colspan="3" bordercolorlight="#FFFFCC" bordercolordark="#FFFFCC"> </td></font> </tr> <tr> <td width="314" height="24"><b> <font face="Verdana" size="1" color="#FFFFCC">O que deseja fazer com o torpedo?</font></b></td> <td width="43" height="24"> <p align="center"> <a href="torpedos.asp?act=delete&idt=<%=rspag("id")%>"> <img border="0" src="imagens/apagar.jpg" width="32" height="32" alt="APAGAR TORPEDO"></a></td> <td width="43" height="24"> <p align="center"><a href="torpedos.asp?act=send&idt=<%=rspag("id")%>"> <img border="0" src="imagens/responder.jpg" width="32" height="32" alt="RESPONDER TORPEDO"></a></td> </tr> </table> <% 'Acrescenta 1 ao contador contador = contador + 1 '--------------------------------------------------------------------- Wend 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <table border="0" width="479" height="37"> <tr> <td> <p align="center"> <font face="Verdana" size="2"> <a href = "torpedos.asp?pagina=<%= intpagina - 1%>&id=<%=id%>"> <font color="#FFFF00"><< Anterior</font></a><font color="#FFFF00"> | <% END IF %> </font> <font color="#FFFF00"> <% '--------------------------------------------------------------------- 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina, rspag.PageCount) <> 0 then %> | </font> <a href="torpedos.asp?pagina=<%= intpagina + 1%>&id=<%=id%>"> <font color="#FFFF00">Próxima >></font></a></font></p> </td> </tr> </table> <% End if Conex.close Set Conex = nothing set rspag = nothing set rsuser = nothing %> </body> </html> ESSE E O CODIGO
-
Problemas Com O Www.domaindlx.com
pergunta respondeu ao Luiz Fernando Dias Santos de DELPHI-Man32 em ASP
cara, esse servidor vive dando pau aqui no meu pc, na maioria das vezes ele da erro no site! sei lá! esse é ruim mesmo, o que compensa e o espaço que ele oferece! hehe abs, VAGNER -
opa, acho que vou precisar disso ai também, hehe! no aguardo ai de uma resposta! abs, VAGNER
-
cara, acho que seria alguma coisa com JavaScript, passaando parametros no link! já que manipula janelas, não é?? da uma olhada na seção de JavaScript.
-
seria interessante e não sei no link do amigo ai em cima fala sobre isso, mas no link postado pelo nosso amigo: http://www.wmonline.com.br/?area=figuras está sem a extensao, então vale lembrar que este tipo de link está ligado a uma pagina padrão: ex: www.site.com/figuras?tipo=jpg no link acima, figuras é uma pasta no servidor onde tem um 'default.asp' se for o caso, que receberá o parametro passado pelo ,link: no 'default.asp' deve ter o request.querystring("tipo") para pegar o valor passado, no caso 'jpg' só pra complementar, falows!!! abraços, VAGNER
-
???? sua ideia está meio vaga ainda! num tendi :huh:
-
obrigado bareta!!!!
-
que pena, caro amigo Bareta!! vamos continuar inssistindo! abraços, VAGNER
-
a paginação na hora da pesquisa funciona, gera todas as paginas e links numerados para elas, mas depois não passa para as proximas pagina quando clicamos no link para proxima. da erro no RS. ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /psd/modelo6/jacundaonline/resultado.asp, line 295 eu to usando dois tipos de pesquisa no mesmo script. completo com 3 campos e simples so com 1 campo. gerando um sql para cada de acordo com a escolha do ususario. <% response.buffer = true NomeUser = Request.form("nome") CityUser = Request.form("cidade") Estado = Request.form("estado") TIPO_P = Request.form("tipo") 'Variáveis passados pelo link informando os valores da paginação 'Pagina atual e quantidade de registros mostrados reg = request.QueryString("reg") Select Case (TIPO_P) Case "tudo" sqlpag = "select nome, id, foto from cadastro where nome = '"& NomeUser &"' and cidade = '"& CityUser &"' and estado ='"& Estado &"' order by id desc" Case "sonome" sqlpag = "select nome, id, foto from cadastro where nome like '%"& NomeUser &"%' order by id desc" end Select %> esse cod a em cima pega os valores enviados pelo form e gera a sql correta. <!--TABELA DA PAGINAÇAO--> <% '--------------------------------------------------------------------- 'Criando o sql e abrindo o objeto RS na conexao do banco de dados '--------------------------------------------------------------------- 'criando objeto recordset para manipular os dados do banco Set rspag = Server.CreateObject("adodb.recordset") '--------------------------------------------------------------------- 'Definido a quantidade de registros por página rspag.PageSize = 1 'Se for o inicio da contagem, ou seja, reg = 0 'coloca "reg" com o mesmo valor do RS.pagesize if reg = "" then reg = rspag.pageSize end if rspag.Open sqlpag, Conex, 3,3 Totalreg = rspag.RecordCount 'Verificando exceções no pagina IF rspag.EOF then Mensagem = "nenhum registro encontrado" 'paramos o programa Response.End ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")= "" then intpagina = 1 ELSE 'Se a pagina atual for menor que 1, então a pagina será 1 IF cint(Request.QueryString("pagina")) < 1 then intpagina = 1 ELSE 'Se a pagina atual for maior que o numero de paginas do 'RS então a pagina atual será igual a numero total de paginas(ultima) IF cint(Request.QueryString("pagina")) > rspag.PageCount then intpagina = rspag.PageCount ELSE 'caso contrário a pagina atual será aquela enviado pelo parametro intpagina = Request.QueryString("pagina") 'Fim das verificações de exceções END IF END IF END IF END IF '--------------------------------------------------------------------- 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rspag.AbsolutePage = intpagina '--------------------------------------------------------------------- 'Inicia o contador que vai controlar os registros mostrados contador = 0 '--------------------------------------------------------------------- 'Verifica se é a ultima página a ser mostrada para igualar os valores mostrados 'dos registros. Mostrando todos do total encontrado. IF cint(Request.QueryString("pagina")) = rspag.PageCount then reg = Total end if %> <table border="0" width="414" id="table17" height="193" cellspacing="0" cellpadding="0"> <tr> <td valign="top"> <% While contador < rspag.PageSize and not rspag.EOF %> <a href="profile.asp?id=<%=rspag("id")%>"> <img src="go/fotos/<%=rspag("foto")%>" alt="<%=UCase(rspag("nome"))%>" width="66" height="66"></a> <% 'Passa o ponteiro do RS para o próximo registro até completrar a quantidade por página rspag.MoveNext '--------------------------------------------------------------------- 'Acrescenta 1 ao contador contador = contador + 1 '--------------------------------------------------------------------- Wend %> </td> </tr> <tr> <td valign="top" height="22"> <p align="center"> <% 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href = "resultado.asp?reg=<%= reg - rspag.pageSize %>&pagina=<%= intpagina - 1%>"><< Anterior</a> | <% END IF '--------------------------------------------------------------------- 'Loop para mostrar os numeros de paginas e o link para elas 'QR é uma variável para sabermos quantos registros estão sendo mostrados 'do total encontrado. QR = 0 for pag = 1 to rspag.pagecount QR = rspag.PageSize + QR %> <a href = "resultado.asp?reg=<%= QR %>&pagina=<%= pag %>"><b> <%= pag %> </b></a> <% next '--------------------------------------------------------------------- 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina, rspag.PageCount) <> 0 then %> | <a href="resultado.asp?reg=<%= reg + rspag.pageSize %>&pagina=<%= intpagina + 1%>">Próxima >></a> <% END IF %> </td> </tr> </table> <!--FIM DA TABELA DE PAGINAÇÃO--> esse e a paginação que fiz. obs. Na hora que faço a pesquisa na primeiro vez, ele gera o resultado certinho, mas quando clico na 'proxima' pagina ele gera o erro! abs, VAGNER
-
sql4 = "select * from blog where mês=" & mes1 & " and Ano = " & ano1 "order by data desc" não está dando erro no select ai em cima não? pois o 'order by data desc' está ficando junto ao ano. já que na tem um espaço depois das aspas. tipo: '2006order by data desc'
-
POSTA OS SCRIPTS PARA VERMOS MELHOR! QUANDO A INDICAÇÃO você está MANDANDO UM EMAI E ELE não CHEGA?
-
kara, to fazendo um site parecido com o orkut! so os scripts em ASP, mas acho que você tem que usar seus conhecimentos para montar tudo e vir aqui tirar as duvidas! para isso que o forum serve e não para te dar tudo pronto! quando tiver pronto meu sistema! mando um email pra você! no MSN: design_vagner@hotmail.com ate mais! VAGNER
-
SALVE PESSOAL!! olha só! isso é um apelo para melhor usarmos o forum, esta comunidade que tanto nos ajuda a esclarecer duvidas quanto nossos sistemas que as vezes insiste em não funcionar! hehe então venho solicitar a todos usuarios desta seção, bem como o forum todo! que coloquem o probloma no titulo do tópico, assmim fica mais facil encontramos o que estamos procurando! nada de: como?, to com problema!, isso não funciona!, meu sistema! assim podemos desafogar o forum também fazendo pesquisas antes de postar nossa duvida! espero a compreensao de todos! abs, VAGNER
-
mesmo quando o email for no formato texto? to usando tudo na mesmo linha assim: usando isso: & VbCrLf & só que a linha tem mais de 800 colunas, num está grande demais?
-
bom dei uma verficada na pasta do server 'C:\Inetpub\mailroot\Queue' e as mensagens estavam lá! acho que aguarando para serem enviadas! envie o cod para a internet e lá funcionou legal, deve ter sido o lance do SMTP não estar configurado no meu IIS! AGORA OUTRA DUVIDA! COMO FAZER QUEBRA DE LINHA? TIPO; objMail.Body = "Olá seja bem vindo!" depois desta linha ai em cima da uma qubra e esrever em baixo!
-
aae pessoal este post ai em cime é meu! foi mau, não me liguei que tava off, então! to com um problema de não enviar meus emails atraves do iis no xp! ontem tava enviando normal, mas este mesmo codigo ai não funciona mais, ou pelo menos não recebo mais emails! outra coisa é! todos os emails são enviados para pastas como: spam e lixo eletronico no caso do hotmail. como resolver este problema e qual dos tres compenentes você's mais experts me recomendam! CDOTNS, ASPMAIL, JMAIL? está MAIS!
-
beleza, Bike! é o seguinte! está rolando normal, como t falei, sempre uso assim no meu pc e da certo, aprendi aqui no Forum assim! o problema e qui no outro diretorio 'go' não tava pegando! tipo: go?canal=1 no dir 'go' tinha um 'default.asp' mas este não pega o valor do parametro que entra num 'Select Case'. mas vou continuar testando se não der certo,volto a procurar ajuda da rapaziada! abs, VAGNER
-
o lance que não to precocupado com o meu pc, e sim com o pc dos vivitantes do site! como precisa do plugin do f8 será que todos que tiverem um plugin inferior vai ter que atualizar?
-
caro amigo Bicicleta, não há erro no link para passagem de parametro! eu acho porque sempre uso assim e funciona legal! no diretorio 'pega' tem um 'default.asp' com o cod acima e agora ele está pegando o valor e imprimendo: não entendi o que estava acontecendo! veja no link abaixo: http://www.jacundaonline.com/parametro.html preste atencao no link passado! depois de pegar o ID e imprimir o link na AdressBar fica assim: http://www.jacundaonline.com/pega/?id=122222222
-
tipo: fiz um pequeno este para passa parametros sem colocar a extensao! no link: pega?id=111111111 no diretorio "pega" coloquei um "default.asp" com: <% id=request.querystring("id") response.write (id) %> ele não deveria pegar o valor e imprimir? não faz isso! no meu pc não dá erro algum! mas no servidor online dá! alguém sabe como reverter isso na net?
-
acho que assim também resolve Set RS = Conexao.Execute("Select * from tabela") se não, podem corrigir por favor!
-
um "rs.movenext" resolveria o caso?