DackAle

errrr, hmmmm num funfo hahahahaha quando apertar o botão Negrito ele não insere as tags na caixa de texto =/

Opa e ae galera =) Bom to sem nada para fazer a tava afim de praticar um pouco de ASP, até para melhorar mesmo e estou fazendo um forum, mas estou com algumas duvidas... 1 - Session, eu fiz uma session chamado ogado, quando o cara se loga é criado essa session, agora eu quero pegar o nick dele, eu poderia pegar do bd e fazer algo do estilo session("nick") = rs("nick") por exemplo, assim quando quiser mostrar o nick ? 2 - Como mostrar quais topicos são novos ? Sabe quando você entra no forum por exemplo ASP, vai ter as pastinhas dos topicos de cores diferentes, qual a logica disso ? guardar um cookie no compuador da pessoa e quando ele entrar verificar a data e ver posts novos desde a data que ele entrou ? 3 - O forum eu entendi que funciona mais ou menos assim no access eu faço um tabela chamada por exemplo "tópico" nele ponho titulo, smile, trancado e etc, as respostas eu faço uma outra tabela chamada por exemplo "respostas", só que eu vou ter que fazer um relacionamento entre as tabelas certo ? para por exemplo ele saber que as respostas sçao do tal tópico... é +/- isso ? 4 - Replace, quando o cara fizer a postagem vai ter as smiles, dai vai pro banco de dados o codigo das smiles certo ? o Replace eu vo usar para transformar em smile quando resgatar a mensagem para ser mostrada na tela certo ? o replace eu poderia deixar nume include por exemplo ? ela vai identificar toda vez e consegue transofmrar os codigos em smile ? Bom desculpe as duvidas tontas hahahaha mas boa parte do forum sei fazer e já to fazendo mas essas são as maiores duvidas minhas mesmo =) Abraços e Valeu =)

Bom victor adicionei a linha e deu isso =P erro, malditos erros ahahahahaha hahahaha valeu pela ajuda =) Abraçosss

E ae galera, sim vocês vão ma bater ainda hahahahahaha Bom primeiro queria ajuda para fazer um função que pega do banco de dados "promocao" as promoções, e só vai mostrar uma e queria que ela fosse aleatoria, alguém sabe como me ajudar ? segundo um pouco mais chato, paginação ahahahha =/ bom ta dando o seguinte erro e o codigo é o seguinte <% Dim SQL,RS,id,titulo,data SQL="SELECT id,titulo,data From noticias ORDER BY data" Call AbreConexao Set RS = Conexao.Execute(SQL) If RS.EOF Then Response.Write("Nenhum registro foi encontrado") Else RS.PageSize = 2 pagina = Request.QueryString("pagina") If pagina = "" Then AQUI DA O ERRO ---> RS.AbsolutePage = 1 pagina = 1 Else RS.AbsolutePage = pagina End If Response.Write("<p align='center'>Foram encontrados <b>" & RS.RecordCount & "</b> registros" & vbcrlf ) Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & RS.PageCount & "</b></p>" & vbcrlf ) While Not RS.EOF AND cont < RS.PageSize %> <tr> <th height="20" align="left" valign="bottom" scope="row"><%=fonte08%><%=rs("titulo")%><span class="style22"><%=fonte%></span></th> <td align="left" valign="bottom"><%=fonte08%><%=rs("data")%><span class="style22"><%=fonte%></span></td> <td valign="bottom"><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td> </tr> <% cont = cont + 1 RS.MoveNext Wend %> </table></td> <td width="10">&nbsp;</td> </tr> </table> <br><% If CInt(pagina) > 1 Then Response.Write("<p align='center'><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<p align='center'>Anterior") End If For i = 1 To rs.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next If CInt(pagina) < rs.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></p>") Else Response.Write("Próxima</p>") End If End If RS.Close Set RS = Nothing %> o local que da o erro ta marcado la emcima hehehehe alguém sabe a cagada que eu to fazendo ? Bah paginação é muito dificil pra minha cabeça hahahaha mas valeu por me aguentarem mesmo galera =) Abraçãoooooo =)

Bom ai são duas coisas o primeiro para voc^clicar e inserir o desenho é JavaScript, clica no meu nick e procura meus ultimos topicos, eu postei pedindo essa função e me passaram ela e o segundo é o metodo REPLACE do asp que vai transformar o desenho numa imagem... é facil esse metodo da uma procuradinha tb Abraçosss

Não consegui arrumar nenhum dos 2 =/ Não deu certo tb victor, desculpa mesmo ta incomodando eheheh Bah qualquer ajuda ou sugestão é bem vindo =) Abraçosss

Victor ele já me ajudou muito e tem estado mais on-line Abraços

Agora que vi que o negrito não funcionada dentro da tag code aki eheheheh o TOP 3 era pra pegar os 3 ultimos registros...

E ae galera to precisando de uma ajudinha =P Nº 1 - Top não funciona Ele mostra 3 ele não ta mostrando os ultimos 3 só =/ Nº 2 - Função 3 pontinhos... e eu chamo pelo codigo <%=Fonte01%><%response.write Preview%><%=Fonte%> Só que ele mostra como "... mais" ele não mostra o campo conteudo que ele pegou do banco de dados, como eu faço para chamar o recordset conteudo ? pegar o campo conteudo do bd mostrar e por os ... Nº 3 - Paginação Facil alguém conhece alguma pagina de facil entendimento ? hehehe Abraços e Valeuuu =)

Entre os dois sem duvidas Dreamweaver por ter suporte a varias linguagens, design mais bonito e ser bem mais professional...

Bom tinha realmente esquecido de pegar a id e declarar ela, eu fiz isso <!--#include file="includes/config.asp"--> <!--#include file="includes/verificacao.asp"--> <% Dim SQL,RS,id,titulo,conteudo id=request.querystring("id") titulo=trim(Request.form("titulo")) conteudo=trim(request.form("conteudo")) SQL="UPDATE noticias SET titulo=" & titulo & " , conteudo=" & conteudo & " WHERE id=" & id Call AbreConexao Conexao.Execute(SQL) Call FechaConexao SET RS = NOTHING if error=0 Then Response.Redirect("mod_sucesso.asp") else Response.Redirect("exc_sucesso.asp") end if %> e deu esse erro teste 2 foi o conteudo que mudei tipo tava teste e mudei pra teste2 Bom to tomando um coro do update hahahahahahaha Abraços e Valeuuu

poxaaa ninguém ? hehehehe Abraçosss =)

E ae galera, seis vão me bater né ahauhhau calmaaa que ta no final ahahaha bom seguinte agora to com erro numa coisa besta o UPDATE, consegui mexer sussa com INSERT, DELETE e SELECT, mas o UPDATE já tentei de tudo um pouco mas num achei a sintaxe certa <!--#include file="includes/config.asp"--> <!--#include file="includes/verificacao.asp"--> <% Dim SQL,RS,titulo,conteudo titulo=trim(Request.form("titulo")) conteudo=trim(request.form("conteudo")) [B]SQL="UPDATE noticias SET titulo='" & titulo & "' conteudo='" & conteudo & "' WHERE id=" & id[/B] Call AbreConexao Conexao.Execute(SQL) Call FechaConexao SET RS = NOTHING if error=0 Then Response.Redirect("mod_sucesso.asp") else Response.Redirect("exc_sucesso.asp") end if %> Bom tentei isso, sem aspas, mas não da tambem, já tei tudo junto, pondo só virgula para separar mas tambem não deu... Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression ''Teste 3' conteudo='lalalalala3''. /Las Tapas/editar_noticias2.asp, line 10 da esse erro bom e para terminar estou com p*** problimnha de paginação o erro é esse ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /Las Tapas/edit_noticias3.asp, line 136 e o codigo é esse <% Dim SQL,RS,id,titulo,data SQL="SELECT id,titulo,data From noticias ORDER BY data" Call AbreConexao Set RS = Conexao.Execute(SQL) RS.PageSize = 5 IF RS.EOF then Response.Write "Nenhum Registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF %> <tr> <th height="20" align="left" valign="bottom" scope="row"><%=fonte08%><%=rs("titulo")%><span class="style22"><%=fonte%></span></th> <td align="left" valign="bottom"><%=fonte08%><%=rs("data")%><span class="style22"><%=fonte%></span></td> <td valign="bottom"><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td> </tr> <% RS.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="edit_noticias.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="edit_noticias.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF Rs.Close SET RS=Nothing Call FechaConexao %> bom essas são minhas duvidas para enxer vocês hahahaha desculpa enxer e tal, espero um dia poder ajudar igual vocês fazem, valeu mesmo galera =) Abraçãooooo

As vezes o trabalho do cara nem e lixo, as vezes é UM sistema pronto, que ele usa em variosssssssssss sites que ele vende, eu vejo muito isso, um sistema, e el vende para varios, so muda o layout que é praticamnte padrão, eu sou totalmente contra isso, eu acho que tem que ser tudo feito na raça, sou a favor de olhar outros sites como forma de ter ideias, mas não copia-las e sim modifica-las de preferencia para melhorar hehehehehe é como falam "meu sobrinho é webdesigner" hahahahaha não que eu seja algum professional, mas estudo para isso, pago cursos caros para isso, me dedico para isso, para ser bom e ter reconhecimento para trabalhar não empresa grande um dia. Dai é foda esses que querem ser mais espertos, na realidade depende muito do cliente isso, se o ciente tiver o minimo de conhecimento ele vai pedir outros trabalhos do cara e vai ver se ele é bom ou não. lugares grandes, empresas grandes não fecham assim com qualquer um não, então acho que em termos não precisamos nos preocupar tanto. Abraços

aaa valeu velho, mas agora ta praticamente tudo OK =D Pro site ficar OK só falta trabalhar emcima da paginação, que eu me f*** =( Não sei fazer, dai peguei um script pronto e esta dando o seguinte erro: ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /2/tapas/edit_noticias3.asp, line 136 e o codigo é esse: <% Dim SQL,RS,id,titulo,data SQL="SELECT id,titulo,data From noticias ORDER BY data" Call AbreConexao Set RS = Conexao.Execute(SQL) RS.PageSize = 5 IF RS.EOF then Response.Write "Nenhum Registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF %> <tr> <th height="20" align="left" valign="bottom" scope="row"><%=fonte08%><%=rs("titulo")%><span class="style22"><%=fonte%></span></th> <td align="left" valign="bottom"><%=fonte08%><%=rs("data")%><span class="style22"><%=fonte%></span></td> <td valign="bottom"><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td> </tr> <% RS.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="edit_noticias.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="edit_noticias.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF Rs.Close SET RS=Nothing Call FechaConexao %> A parte de paginação é totalmente scrip pronto adaptado e errado ahauhahua praticamente só falta isso para o site. Só para avisar, sem a paginação ta ok, ele retorna os resultados, mas preciso da paginação senão vai quebrar tudo a pagina hehehe Bom se alguém souber me ajudar tavalendo, brigadão por me aguentar galera hahahaha é fodis, meu ASP é basico e mandam eu fazer um site com um p*** sistema hahahahaha Abraçosssss e Valeu =)

E ae galera blzim ? Bom vou aproveitar e por 3 duvidas de uma vez a primeira é com um looping, fiz uma consulta no banco de dados e fiz o looping para ele ir mostrando resultado mas aparece esse erro: Microsoft VBScript compilation error '800a0400' Expected statement /2/tapas/edit_noticias.asp, line 123 WEND ^ e o codigo é o seguinte <% Dim SQL,RS,id,texto,data SQL="SELECT id,texto,data From novidades ORDER BY data" Call AbreConexao Set RS = Conexao.Execute(SQL) %> <tr> <th align="left" valign="top" scope="row"><%=rs("texto")%></th> <td align="left" valign="top"><%=rs("data")%></td> <td><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td> </tr> <% RS.MoveNext WEND Rs.Close SET RS=Nothing Call FechaConexao %> Aonde estou errando ? Bom segunda duvida para eu deletar um registro no banco de dados eu faço ao invés de insert ou select SQL="DELETE * from noticias WHERE id=" & id assim por exemplo ? e o UPDATE no caso eu uso um SELECT pego pelo ID e pego os dados, dai eu uso um text area por exemplo e no conteudo inicial eu ponho por exemplo <input name="titulo" type="text" id="titulo" value="<%=rs("texto")%>" size="40"> dai quando mandar vou para outra pagina e la faço ao invés de INSERT ponho o comando UPDATE ? desculpe as ignorancias ehhehehe mas é falta de pratica =P Abraçosss e valeu

Valeuuu velho isso mesmo vou usar ASP mas sei usar o metodo Replace =) Abração e valeu

AHAUAHAHAUAHAUAUAAHAHA muitooooooo boaaaaaaasss

E ae galerinhaaa =) Bom queria saber se alguém tem aquele scrpit de botão para inserir codigo no formulario, sabe quando tem um botão por exemplo de Bold, dai se clica e aparece o codigo na caixa de texto, dai depois se joga um replace e vira um bold mesmo, igual o que tem aqui emcima ó ahahhaa mas não precisa ser esse botão tão foda hehehe é um botão simples, dai só o codigo que eu não sei, pode ser mais simples =) como não manjo NADA de javascript fico boiando ahahahah Abraços

E ae galera =) Seguinte em casa uso o IIS normalmente para testar minhas paginas e funciona perfeitamente, dai aqui no trampo eu instalei o IIS, configurei dentro do IIS aparece todas as pastas normais e tal, mas quando abro alguma pagina aparece essa mensagem HTTP 403.1 Proibido: acesso de execução proibido Internet Information Services -------------------------------------------------------------------------------- estranho porque ta configurado normal, a mesma configuração que uso em casa praticamente, já tentei por rede, no caso eu colocquei "um compartilhamento localizado em outro computador" e indica o local e tambem não funcionava Pior que é um saco ter que ficando pagina pro servidor pra ficar testando a cada uma modificaçãozinha alguém sabe como arrumar ? Aqui é Windows XP Pro... Abraços e Valeu =)

err hmmm hããm hauhuaha burroo ahuauhauh tinha esquecido de dar autorização para gravar no bd =P burro hauaahuauh Valeu galera =)

Access, estranho ontem tava normal... =(

E ae galerinha blzzz ? Bom pra variar me ferro com ASP hauuhahuauha to fazendo as paginas para inserir dados, praticamente todas as paginas são as mesmas só mudam os campos e tal, e ontem tava OK, hj fui tentar inserir e deu esse erro Microsoft JET Database Engine error '80004005' Operation must use an updateable query. /2/tapas/add_noticias2.asp, line 16 O codigo da pagina para inserir é esse <!--#include file="includes/config.asp"--> <% Dim SQL,RS,nome,email,nascimento nome=trim(request.form("nome")) email=trim(request.form("email")) nascimento=trim(request.form("nascimento")) SQL="Insert INTO news " &_ "(nome, email, nascimento) " &_ "VALUES ('" &_ nome & "','" &_ email & "','" &_ nascimento & "')" Call AbreConexao Conexao.Execute(SQL) Call FechaConexao SET RS = NOTHING if error=0 Then Response.Redirect("cadastro_news.asp") else Response.Redirect("erro_inserir.asp") end if %> O codigo para ligar no bd ta no config.asp com outras coisas, alguém tem ideia da cagadinha que eu fiz ? =P Abraçossss

Image --> Canvas Size ou Image --> Image Size Abraços

Não quebrando a estrutura do site, faz um site com tamanho de no maximo 778 (quando for 800X600) que dai não aparece =) Mas deve ter codigo em javaScript tipo pra pop-ups que não aparece barra nenhuma =)