rafaeltejeda
-
Total de itens
88 -
Registro em
-
Última visita
Tudo que rafaeltejeda postou
-
como faço pra coloca no meu site ou criar sei lá com a ajuda de vcis um sistema de formatação de texto igual ao do forum aqui... aquele de deixar o texto em negrito, mudar temanho da fonte, etc... por favor me ajudem... atenciosamente. eu
-
galerinha gostaria de saber como faço pra realizar várias conexões ao bd na mesma página.... assim tenho tabelas no bd noticias, destaques, colunas, imagens etc e eu gostaria de mostrar ela na minha página inicial como é fazer várias conexões bom sei lá me deem uma força. grato
-
o arquivo global.asa tem que estar localizado no diretório raiz do site e só pode ter um...
-
não sei o porque do erro foi só eu colocar o java script ele não acha o bd... porque esse é o erro <% Response.Expires = 0 %> <!--# include File="adovbs.inc"--> <% Const test_NumPerPage = 3 if Request.QueryString("CurPage") = "" then CurPage = 1 Else CurPage = Request.QueryString("CurPage") End if Set conexao = server.createobject("ADODB.connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../db/banco_dados") Set rs = Server.CreateObject("ADODB.recordset") rs.CursorLocation = 3 rs.CacheSize = NumPerPage strSQL = "SELECT * from noticia order by id desc" rs.Open strSQL, conexao rs.MoveFirst rs.PageSize = test_NumPerPAge TotalPages = rs.PageCount rs.AbsolutePage = CurPage if rs.eof then response.write " Não há testemunhos para ser exibido " response.write aspSQL &"<br> Não retorna informação alguma..." Conexao.close Set conexao = nothing end if %> <HTML> <HEAD> <TITLE>Fogo Suave</TITLE> <script language="JavaScript"> <!-- var top; var base; var pos; var speedy; speedy = 1; function Iniciar() { top = document.all.Layer1.offsetHeight + 3; base = 0 - (document.all.Layer2.offsetHeight + 3); pos = parseInt(document.all.Layer2.style.top); Mover(); } function Mover() { pos = pos - 2; document.all.Layer2.style.top=pos; if (pos<base) { pos=top;} if (speedy==1) { setTimeout("Mover()",100) } } window.onload = Iniciar // --> </SCRIPT> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000"> <TABLE WIDTH="18%" BORDER="0" HEIGHT="34%"> <TR> <TD> <% Count = 0 Do While Not rs.EOF And Count < rs.PageSize %> <DIV ID="Layer1" STYLE="border: 1px solid #000000; width:100%; height:100%; overflow:hidden;" OnMouseOver="speedy=0" OnMouseOut="speedy=1;Mover()"> <DIV ID="Layer2" STYLE="position:absolute; left:15px; top:18px; width:192px; height:105px; background-color:yellow"> <p align="justify"> <a href="fogo_suave/ver_noticia.asp?id=<%=rs("id")%>"> <font face="Tahoma" size="2" color="#808080"><%=left(rs("noticia"),50)%>...</font></a></p> <font face="Tahoma" size="2" color="#FF9900">Adicionado: <%=rs("data")%></font> </DIV> </DIV> <% Count = Count +1 rs.MoveNext Loop %> </TD> </TR> </TABLE> </BODY> </HTML> <% Rs.close conexao.close Set rs = nothing Set conexao = nothing %> pf me ajudem
-
urso loco eu montei mas ele não ta achando o bd porque esse é o código. <% Response.Expires = 0 %> <!--# include File="adovbs.inc"--> <% Const test_NumPerPage = 3 if Request.QueryString("CurPage") = "" then CurPage = 1 Else CurPage = Request.QueryString("CurPage") End if Set conexao = server.createobject("ADODB.connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../db/banco_dados") Set rs = Server.CreateObject("ADODB.recordset") rs.CursorLocation = 3 rs.CacheSize = NumPerPage strSQL = "SELECT * from noticia order by id desc" rs.Open strSQL, conexao rs.MoveFirst rs.PageSize = test_NumPerPAge TotalPages = rs.PageCount rs.AbsolutePage = CurPage if rs.eof then response.write " Não há testemunhos para ser exibido " response.write aspSQL &"<br> Não retorna informação alguma..." Conexao.close Set conexao = nothing end if %> <HTML> <HEAD> <TITLE>Fogo Suave</TITLE> <script language="JavaScript"> <!-- var top; var base; var pos; var speedy; speedy = 1; function Iniciar() { top = document.all.Layer1.offsetHeight + 3; base = 0 - (document.all.Layer2.offsetHeight + 3); pos = parseInt(document.all.Layer2.style.top); Mover(); } function Mover() { pos = pos - 2; document.all.Layer2.style.top=pos; if (pos<base) { pos=top;} if (speedy==1) { setTimeout("Mover()",100) } } window.onload = Iniciar // --> </SCRIPT> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000"> <TABLE WIDTH="18%" BORDER="0" HEIGHT="34%"> <TR> <TD> <% Count = 0 Do While Not rs.EOF And Count < rs.PageSize %> <DIV ID="Layer1" STYLE="border: 1px solid #000000; width:100%; height:100%; overflow:hidden;" OnMouseOver="speedy=0" OnMouseOut="speedy=1;Mover()"> <DIV ID="Layer2" STYLE="position:absolute; left:15px; top:18px; width:192px; height:105px; background-color:yellow"> <p align="justify"> <a href="fogo_suave/ver_noticia.asp?id=<%=rs("id")%>"> <font face="Tahoma" size="2" color="#808080"><%=left(rs("noticia"),50)%>...</font></a></p> <font face="Tahoma" size="2" color="#FF9900">Adicionado: <%=rs("data")%></font> </DIV> </DIV> <% Count = Count +1 rs.MoveNext Loop %> </TD> </TR> </TABLE> </BODY> </HTML> <% Rs.close conexao.close Set rs = nothing Set conexao = nothing %> esse é o erro atencioasamente.
-
alguém sabe como juntas java script, dhtml sei lá com asp + bd gostaria de fazer um sistema de jornal online aonde o texto rola horizontalmente já tentei com um script que peguei na net mais sem sucesso... atenciosamente. Rafael Tejeda
-
eu peguei um site de uma empresa, mas eu nunca fiz um site com essas proporções. o site vai ter area de administração catalogo de produtos sistema de busca do site completo ex: cliente, produto etc.. cadastro de cliente area de donwloads area para clientes e mais algumas cositas mais mais então galerinha o quanto cobrar??? atenciosamente.
-
gostaria de contruir um script pra saber quantos registros tem em uma tabela mas não sei como... poderiam me ajudar...
-
galerinha pf me ajudem alguém... estou querendo desenvolver um site de baladas quer dizer já fiz quase tudo só falta o principal o sistema das fotos gostaria de fazer um sistema aonde eu use bd pra buscar baladas e mostrar as fotos, onde ele clique e compre a foto etc... alguém poderia me ajudar ou falar alguma coisa a respeito atenciosamente.
-
mas e se eu quisece abrir em um pop-up
-
iai galerinha tudo bom eu desenvolvi um sistema de imagem que que mostra as imagens de um determinado diretório <%@ Language=VBScript %> <% Option Explicit %> <% Const ImageFilePath = "D:\Rafael Tejeda NetWorks\Sites\Site - Portal de Eventos\www\fotos\moia_guela" Dim objFSO Dim objFolder Dim objFile Dim strFileName Dim strFileExtension %> <html> <head> <title>teste</title> </head> <body bgcolor="#000000"> <table border="1" bordercolor=silver cellpadding=2 cellspacing=0 bordercolorlight=silver bordercolordark=White width="145"> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(ImageFilePath) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Or strFileExtension = "png" Then %> <tr> <td> <p align="center"> <a href="fotos/galeria.asp" target="_blank"> <img src="<%= ImageFilePath & "/" & objFile.Name %>?foto=<%= ImageFilePath &+"/"+=&+objFile.Name+>="></a><a href="javascript:galeria()" style="text-decoration: none; font-weight:700"> <a/> </td> <% End If Next Set objFolder = Nothing Set objFSO = Nothing %> </table> </body> </html> deem uma analizada e agora eu gostaria de abrir essas imagens em uma nova janela ou em pop-up como faço eu paçaria essas informaçoes por parametros não muito usar isso. por favor me ajudem... grato.
-
iai galerinha blza... estou querendo desenvolver um site de baladas só que tenho algumas duvidas, bom o sistema do site será feito em asp, só que eu quero fazer no site um sistema pra cadastrar as baladas até ai tudo bem moleza, o problema ta nas fotos e pra mim mostrar em asp as fotos das baladas relacionadas de cada foto. assim uma balada que tem 20 fotos , ai o usuario faz busca de balada e aparece as fotos dessa balada ai ele faz uma outra busca ai aparece outras fotos da balada que ele procurou... a minha duvida é como organizar isso no banco de dados... atenciosamente ....
-
eu instalei o xp e não tinha criado contas de usuario e ele estava como padrão administrador, ai eu criei uma conta e tb atribui pra ela atributos de administrador só que eu perdi tudo que eu tinha da outra conta meus e-mails do outlook, meus favoritos, etc e eu não podia perder meus emails atenciosamente...
-
e como eu faço pra deixar ele com carinha de calendario
-
preciso criar um sistema de agenda aonde ele me mostra o mes e os dias desse mês e quando eu clicko em um determinado dia ele me mostra eventos relacionados a aqueles dia .... seria muito dificil atenciosamente;;;
-
fiz uma compra na internet depois de efetuada a compra ele me mandou um email automático com a confirmação da minha e tinha la um item assim: Host de origem: 201-13-154-15.dial-up.telesp.net.br como conseguiu essas informações.
-
eu andei passando por alguns sites de web designer e vi que em alguns sites eles oferecem uma área para seus cliente, e gostaria de saber que tipo de serviços eles estariam disponibilizando para seus clientes... alguém poderia me falar alguma coisa... obs: sim mas éssa administração seria em um site da empresa de web-designer e não no site do cliente... grato
-
sim mas ... eu gostaria assim tem eu e você como administrador e eu criei uma pagina sua e uma minha de administração quando você loga você vai pra sua pagina e quando eu logo eu vou pra minha que é diferente da sua
-
preciso contruir um script de login aonde um usuário entra com um nome de usuario e senha e o mesmo é redirecionado para uma respectiva página de acesso sua. por exemplo... eu logo ele me manda pra minha area de administração, outras pessoas logan e vão pra suas áreas de administração. será que fui claro é possível fazer isso. atenciosamente.
-
como faço pra criar um sistema de usuarios on-line
-
sem o response.end volta o erro porque o que eu fiz de errado no código
-
porque sem o response.end fica com erro
-
so que ele não mostra a pagina so mostra o texto só mostra o trexto tabela vazia e não mostra nada na página porque
-
sem sucesso este é o codigo de em uma analizadae me falem <%@ language="vbscript"%> <% Response.Expires = 0 %> <% seguro=session("seguro") if seguro="" then response.redirect("../login") end if %> <!--#include file="../../data.asp"--> <!--#include file="../../status.asp"--> <!--# include File="adovbs.inc"--> <% Const NumPerPage = 10 if Request.QueryString("CurPage") = "" then CurPage = 1 Else CurPage = Request.QueryString("CurPage") End if Set conexao = server.createobject("ADODB.connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../../dados/banco_dados") Set rs = Server.CreateObject("ADODB.recordset") rs.CursorLocation = 3 rs.CacheSize = NumPerPage strSQL = "SELECT * from noticias order by id desc" rs.Open strSQL, conexao rs.MoveFirst rs.PageSize = NumPerPAge TotalPages = rs.PageCount rs.AbsolutePage = CurPage %> <head> <title>Grupo de Oração Jesus Fonte de Água Viva</title> </head> <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000"> <div align="center"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0px" width="780" align="left" bordercolor="#000000"> <tr> <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="780" height="138" id="titulo_sitercc" align> <param name="movie" value="../titulo_portal.swf"> <param name="menu" value="0"> <param name="quality" value="High"> <param name="bgcolor" value="FFFFFF"> <param name="_cx" value="20638"> <param name="_cy" value="3651"> <param name="FlashVars" value> <param name="Src" value="../titulo_portal.swf"> <param name="WMode" value="Window"> <param name="Play" value="0"> <param name="Loop" value="-1"> <param name="SAlign" value> <param name="Base" value> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ShowAll"> <param name="DeviceFont" value="0"> <param name="EmbedMovie" value="0"> <param name="SWRemote" value> <param name="MovieData" value> <param name="SeamlessTabbing" value="1"> <embed src="../titulo_portal.swf" menu="false" quality="Best" bgcolor="#ffffff" width="780" height="138" name="titulo_sitercc" align type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer"> </embed></object> </td> </tr> <tr> <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px"> <div align="center"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px" width="100%" align="left" bordercolor="#000000"> <tr> <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px" height="22" width="705"> <font size="2" face="Tahoma">Taquaritinga, <% response.write diaformatado%> </font></td> <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px" height="22" valign="middle"> <img border="0" src="../../imagens/setaVol.gif" width="19" height="21" align="center"> <u><font size="2" face="Tahoma"> <a href="principal.asp">VOLTAR</a></font></u></td> </tr> </table> </div> </td> </tr> <tr> <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" width="98%"> <form method="POST" action="grava_noticia.asp"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber1" height="172"> <tr> <td width="100%" style="border-style: none; border-width: medium" height="170" valign="top"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%" style="border-style: none; border-width: medium"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber3"> <tr> <td width="100%" style="border-style: none; border-width: medium" valign="bottom"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber4"> <tr> <td width="100%" style="border-style: none; border-width: medium"> <p align="center"> <img border="0" src="../../imagens/tit_noticias.png"></td> </tr> <tr> <td width="100%" style="border-style: none; border-width: medium"> </td> </tr> <tr> <td width="100%" style="border-style: none; border-width: medium"> <%if rs.eof then response.write " Não há notícias para serem exibidos nesta página " response.write aspSQL &"<br> Não retorna informação alguma... Clique em Anterior!" end if%> <% Count = 0 Do While Not rs.EOF or Count < rs.PageSize %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber5"> <tr> <td width="3%" style="border-style: none; border-width: medium"> <img border="0" src="../../imagens/tarracha_azul.gif"></td> <td width="65%" style="border-style: none; border-width: medium"> <font size="2" face="Tahoma"> Titulo: <%=rs("titulo")%></font></td> <td width="25%" style="border-style: none; border-width: medium"> <font size="2" face="Tahoma">| adicionado: <%=rs("data")%></font></td> <td width="7%" style="border-style: none; border-width: medium"> <a href="deletar_noticias.asp?id=<%=rs("id")%>"> <img border="0" src="../../imagens/apagar.gif" alt="para deletar a noticia clique aqui "></a></td> </tr> <tr> <td width="3%" style="border-style: none; border-width: medium"></td> <td width="65%" style="border-style: none; border-width: medium"></td> <td width="25%" style="border-style: none; border-width: medium"></td> <td width="7%" style="border-style: none; border-width: medium"></td> </tr> </table> <% Count = Count +1 rs.MoveNext Loop %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber6"> <tr> <td width="100%" style="border-style: none; border-width: medium"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber7"> <tr> <td width="100%" style="border-style: none; border-width: medium" colspan="5"> </td> </tr> <tr> <td width="100%" style="border-style: none; border-width: medium" colspan="5"> <% Response.write("<b><p align=""right""><font color=""#000000"" size=""2"" face=""tahoma"">Página " &CurPAge& " de " &TotalPAges& "</font></b></p><br><br>") %> </td> </tr> <tr> <td width="100%" style="border-style: none; border-width: medium" colspan="5"> </td> </tr> <tr> <td width="35%" style="border-style: none; border-width: medium"> </td> <td width="12%" style="border-style: none; border-width: medium"> <% if CurPage > 1 then Response.write("<a href=apagar_noticia.asp?curpage="&curpage-1&">") Response.write("[Anterior]") End if %> </td> <td width="2%" style="border-style: none; border-width: medium"> </td> <td width="11%" style="border-style: none; border-width: medium"> <% if CInt(CurPage) <> CInt(TotalPage) then Response.write("<a href=apagar_noticia.asp?curpage="&curpage + 1&">") Response.write("[Próximo]") End if %> </td> <td width="40%" style="border-style: none; border-width: medium"> </td> </tr> <tr> <td width="35%" style="border-style: none; border-width: medium"> </td> <td width="12%" style="border-style: none; border-width: medium"> </td> <td width="2%" style="border-style: none; border-width: medium"> </td> <td width="11%" style="border-style: none; border-width: medium"> </td> <td width="40%" style="border-style: none; border-width: medium"> </td> </tr> <tr> <td width="35%" style="border-style: none; border-width: medium"> </td> <td width="12%" style="border-style: none; border-width: medium"> </td> <td width="2%" style="border-style: none; border-width: medium"> </td> <td width="11%" style="border-style: none; border-width: medium"> </td> <td width="40%" style="border-style: none; border-width: medium"> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> </td> </tr> <tr> <td style="border-style: none; border-width: medium" bgcolor="#000000" height="22"> <p align="center"><font size="2" face="Tahoma" color="#C0C0C0">Todos os Direitos Reservados - 2004<sup>®</sup> - NETS Art<sup>®</sup></font></p> </td> </tr> </table> </div> </body> </html>
-
sim usei Do While Not rs.EOF And Count < rs.PageSize