visual_online
-
Total de itens
38 -
Registro em
-
Última visita
Tudo que visual_online postou
-
Cade o FTP? num ta funcionando não o link.... to precisando dele ai
-
o download do arquivo num ta funcionando não... ta baixando apenas o index.php
-
titulo = Replace(request.form("name1"), "'", "''") entry1 = Replace(Request.Form("Entry1"), "'", "''") SQL = "Insert Into noticias (data, titulo, materia) Values('"&data&"', '"&titulo&"','"&entry1&"')" olha, é o seuguinte: até deu certo sim, mas so que tive que tirar uma linha abaixo de cada requisição de form que tava la acima, num sei porque, talvez tava dando algum conflito e a quebra de linha foi embora junto ... e agora? tava assim antes: titulo = Replace(request.form("name1"), "'", "''") titulo = Replace(Request.Form("name1"), Chr(13), "<br>") entry1 = Replace(Request.Form("Entry1"), "'", "''") entry1 = Replace(Request.Form("Entry1"), Chr(13), "<br>") SQL = "Insert Into noticias (data, titulo, materia) Values('"&data&"', '"&titulo&"','"&entry1&"')"
-
Gente é o seguinte: Estou com um pequeno problema .... quando insiro um texto no informativo, com aspas simples , ocorre a seguinte mensagem: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '''gdfg dfg '''. /email/bloggus/admin/publicando.asp, line 65 esta é a parte no codigo que insere no bd: Dim chamada, txt, data, nome, hora, SQL chamada = Request.Form("titulo") txt = Request.Form("journalItem") data = Request.form("data") nome = Request.form("nome") hora = Request.form("hora") If chamada = "" or txt = "" Then Response.redirect "publicando.asp" SQL = "Insert Into posts (titpost, post, datapost, autorpost, horapost) Values('"&chamada&"', '"&txt&"','"&data&"','"&nome&"','"&hora&"')" ConnDB.Execute(SQL) Response.Redirect "publicando.asp?erro=1" já quando coloco alguma "aspa" normal, tudo ok... Então, vamos lá... preciso da ajuda de alguém ai.... Té mais
-
estte site não é pra mim, é pra um cliente meu que faz umas viajens de vez em quando. o problema é quando ele estiver viajando. Como ele vai ter acesso a esta imagem (sem foto.gif) que ficou na casa dele, em seu computador? então o mais provavel, na minha opinião seria um script que, quando a noticia fosse postada sem foto, no bd fosse incluido uma imagem previamente guardada no servidor, mas ou menos como citei no codigo acima. obs.: o "v.gif", seria no caso, o "sem foto.gif"
-
é desse jeito mesmo, tenho um sistema de noticias com foto, e quando cadastro uma noticia sem foto, no bd aparece logicamente o campo foto sem nada, e quando visualizo a noticia, onde era pra aparecer a foto fica aquele lindo x vermelho. é o seguinte: queria que quando cadastrasse a noticia sem foto, ou seja, o campo "foto" vazio, ele listasse uma outra imagem, do tipo, "sem foto".. é mais ou menos assim que quero: <% if rs("foto") = "" then %> <img src="sistema fotos/imagens/v.gif" border="0" vspace="2" hspace="8" align="left"> <% else %> <img vspace="2" hspace="8" src="sistema fotos/imagens/<%=rs("foto")%>" > <% end if %> ou se alguém tiver um sistema desses e quiser contribuir com o forum, favor colocar ai Desde já agradeço aos amigos
-
Olá gente, estou com um problema, pois tenho uma pagina com tabelas e algumas layers e consegui um codigo que centraliza a pagina no meio da tela, mas so que as layers não atendem ao codigo CSS, somente o html. O que posso fazer pra resolver isso? Aqui, o codigo CSS: <style type="text/css"> body { margin:0; padding:0; background:#cccccc; text-align:center; /* hack para o IE */ } #tudo { width: 790px; margin:0 auto; padding: 10px; text-align:left; /* "remédio" para o hack do IE */ } #conteudo { padding: 5px; background-color: #eeeeee; } </style> Aqui engloba tudo, dentro do body: <body ... <div id="tudo"> <div id="conteudo"> </body... </html>
-
está meio dificil minha situação :( , pois ainda não encontrei, mas agradeço a todos que ajudaram. Só mais uma coisa... : quem puder ajudar, favor disponibiliza aqui no forum que ira ajudar mais gente. :) ..
-
Cacique, este sistema realmente é perfeito. Se você puder disponibilizar, realmente vai ser de grande ajuda, pois irei estuda-lo e aprimorar meus conhecimentos. um grande abraço e fico no aguardo.
-
Descupe, mas nóis tamu precisando é de galeria de fotos, onde se possa cadastrar categorias, criar albuns, entende??
-
Ô rapaz, :( , ajuda nóis ai pois tenho certeza que muitos que não entendem da área estao precisando e muitos outros aprenderam porque outros ajudaram então se você puder disponibilizar este sistema aqui mesmo no forum, muita gente ficará grata. Fico aguardando uma resposta sua aí. :)
-
eu já conheço estes sites ai. o problema é que eles não tem sistema de noticias com foto, mas agradeço sua ajuda
-
:( Será que algum amigo, filho de deus, pode nos ajudar aí??
-
bem legal o sistema de fotos, mas eu tava querendo um gratuito ate pra estudar também porque como sou iniciante no asp, ainda apanho muito desta linguagem, mas valeu pela ajuda :unsure:
-
Ih, rapaz, num é que deu certo mesmo?? valeu ai pela ajuda.. é que às vezes a burrice toma conta e não enxergamos o que esta em nossa frente.. Valeu cara, pela disponibilidade. Continue assim :) :lol:
-
Olá gente, gostaria de saber se alguém sabe onde posso encontrar um sistema de fotos com upload, criação de categorias e albuns. Tentei fazer um mas é muito complicado, tendo em vista que ainda me considero iniciante no ASP. De já, agradeço a alguém que possa me ajudar :)
-
Olha Henderson, não deu muito certo não... acho que estou fazendo algo de errado. está dando erro na conexao com o bd mas eu juro que está tudo ok...O código do amigo "fantasma" não deu muito certo não, pelo menos do jeito que fiz aqui, pois como eu coloco id's fixas, o codigo acaba pegando sempre os mesmos registros. Algum de vocês poderia me dar uma ajuda mais forte ai? já saquei que vocês entendem do assunto, mas devem estar pecando em algo por eu não estar sendo bem claro a voces... se quiserem me add no MSN: visualturbo2@hotmail.com Se tiverem uma outra possibilidade pra tentarmos... Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset") busca = request("txtBusca") sql = "Select TOiP 20 titpost from posts where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC" set rs = conexao.execute(sql) i = 0 while not rs.eof i = i + 1 if i >= 1 and i <= 4 then response.write (RS("titpost"))&"<br>" else end if rs.movenext wend If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>" %>
-
vo testar ambas as possibilidades agora a tarde e posto o resultado aqui pros amigos... mas desde já agradeço a ajuda :)
-
humm, mas tem um porem... já estou utilizando um "top" no codigo: </div> <font face="Geneva, Arial, Helvetica, sans-serif"> <% function LimitaTexto(palavra) tamanho = 140 if len(palavra) > tamanho then palavra = left(palavra, tamanho) palavra = palavra & "...Leia mais." end if LimitaTexto = palavra end function Dim ConnDB Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset") SQL2 = "Select titblog From login" Set RS = ConnDB.Execute(SQL2) %> <% busca = request("txtBusca") SQL = "Select TOP 4 titpost, post from posts where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC" Set RS = ConnDB.Execute(SQL) do until RS.EOF post = rs("post") response.write "<font face='Geneva, Arial, Helvetica, sans-serif' size='4' color='#006699'>" response.write (RS("titpost"))&"<br>" response.write "</font>" response.write LimitaTexto(post) &"<br><br>" RS.MoveNext loop If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>" %> Dessa forma, estou pegando as 4 ultimas noticias postadas no bd e se eu colocar o "top 15", vai pegar as 15 primeiras, incluindo as 4 primeiras que já irei mostrar no topo da pagina, entende? Quero mostrar as 4 primeiras no topo da pagina (O QUE já CONSEGUI) e o restante das mesmas, quero mostrar num local mais abaixo... se eu colocar o top 15, vou listar tudo de novo, entende, e eu não queria repetir o que coloquei no topo do site ultimas noticias 1 2 3 4 ----------------------------------------------Listar so daqui pra baixo 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ...
-
Mas se eu colocar este codigo ai, ele vai listar todas as noticias, e estou querendo que liste apenas do 5º ao 20º registro, entendeu? a minha conexao é a seguinte: Dim ConnDB Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset")
-
É isso mesmo, quero mostrar somente do 5 registro ao vigesimo, isso porque os quatro primeiros registros estou colocando num local de destaque num site de noticias e o restante das noticias quero colocar mais embaixo, com fonte menor, e tal, só não sei como fazer isso... me deem uma força ai, please...
-
<% function LimitaTexto(palavra) tamanho = 180 if len(palavra) > tamanho then palavra = left(palavra, tamanho) palavra = palavra & "...Leia mais." end if LimitaTexto = palavra end function Dim ConnDB Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset") SQL2 = "Select titblog From login" Set RS = ConnDB.Execute(SQL2) %> <% busca = request("txtBusca") SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC" Set RS = ConnDB.Execute(SQL) do until RS.EOF post = rs("post") response.write "<font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#006699'><b>" response.write (RS("titpost"))&"<br>" response.write "</font></b>" response.write LimitaTexto(post) &"<br>" RS.MoveNext loop If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>" %> isso é o codigo que esta buscando todas as mensagens do bd acsess. O site é de noticias e na parte superior, tera 4 noticias com o titulo grande e uma pequena chamada em baixo.... com isso que postei acima, ele faz isso, mas está puxando tudo no bd. então to precisando fazer o seguinte: 1 - Limitar, como disse, a exibir somente as quatro ultimas noticias postadas. porque isso? porque na parte mais em baixo, com o titulo de "outras noticias" vou colocar o restante das noticias em fonte pequena (tamanho 1 no DreamWeaver) e se euexibir todas as noticias com o titulo grande (igual ao oglobo.globo.com) a página fica super lotada. então resumindo, supondo que meu bd tem 30 registros, na parte superior quero exibir somente as quatro primeiras noticias e em algum lugar da pagina, exibir por exemplo, da quinta noticia até a vigésima... rapaz, já to de cabeça quente com isso e se você me der uma mão nisso... será uma gloria. e se você tiver por ai, um sisteminha de noticias que você ache legal e quiser me fornecer, será bem vindo também... :rolleyes: ... e também aceito sugestões... :)
-
olá gente, estou com uns probleminhas em meu sistema de noticias que to montando... quero que apareçam em cima as 3 primeiras noticias e logo abaixo, em outra seção, da quarta noticia pra frente, entendem? Como faço isso? já tentei de varias formas o comamdo select, mas acho que to fazendo errado pois so iniciante ainda.. tenho que terminar isso urgentemente e preciso da ajuda de algum filho de deus ai... valeu!! <% busca = request("txtBusca") SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC" Set RS = ConnDB.Execute(SQL) do until RS.EOF
-
Limitar O Texto Exibido Com Os Famosos "3 Pontinhos"
pergunta respondeu ao visual_online de visual_online em ASP
Olha, realmente você é fera.. deu certo hein... agora vou estudar este codigo que você enviou e agora so me resta agradecer demais , muito mesmo por sua ajuda e disponibilidade. Fico muito grato. Um abraço e Sucesso! -
Limitar O Texto Exibido Com Os Famosos "3 Pontinhos"
pergunta respondeu ao visual_online de visual_online em ASP
olha, so pra ser mais claro, as noticias estao sendo puxadas de um bd access. abaixo, segue o codigo, lembrando que na variavel "post", é que eu quero que o conteudo seja resumido. <% Dim ConnDB Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset") SQL2 = "Select titblog From login" Set RS = ConnDB.Execute(SQL2) %> <% busca = request("txtBusca") SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC" Set RS = ConnDB.Execute(SQL) do until RS.EOF response.write "<font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#006699'><b>" response.write (RS("titpost"))&"<br>" response.write "</font></b>" response.write (RS("post"))&"<br>" RS.MoveNext loop If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>" %>