baladaclick
-
Total de itens
173 -
Registro em
-
Última visita
Tudo que baladaclick postou
-
vai ter q comprar um modem roteador !
-
pelo que conheço pouco sobre redes, você pode ta fazendo o conhecido RAID via software ou via Hardware, ele seencontra em todas as versoes do windows 2000,2000server e 2003server. procure algum tópico como "Espelhamento de Hds via RAID "
-
beleza, gente deu certo aqui com oMappath ! Valewwwwwwwww de novo !!!
-
ae irmaozinho alex, o banco ta na raiz juntocom os arquivos asp beleza, bom gente vou tentar aqui... qualquer coisa grito vcsdenovo
-
pessoal, não to achando o erro q da essa autenticação... ele diz q é na linha 4, o quepode ser... <% 'Conexão com o banco de dados conexao="DBQ=senha.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao login=(Request.QueryString("login")) senha=(Request.QueryString("senha")) set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ") ' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm if acesso.eof then Response.Redirect"negado.asp" else Session("login")=login 'Session("usuario")= acesso("usuario") 'Session("Email")= acesso("Email") Session("login")= acesso("login") 'você pode colocar quais sessions você quiser aqui que o restante do site vai ler. Response.Redirect"acesso.asp" end if DB.close %> tipo, na linha " conexao="DBQ=senha.mdb;Driver={Microsoft Access Driver (*.mdb)}"' eu posso deixar o banco desta forma ou tenho que digitar o endereço fisico dele??? já tentei das duas formas e dá erro, e o erro q dá é esse: " Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xab8 Thread 0xe00 DBC 0x21c5e0c Jet' do Registro. /baladaclick/teste/login.asp, line 4 " valewwww
-
BaladaClick.Com
-
valeu Andréia e o irmaozinho Alex! Deu certo aqui !!! FUIIII
-
ou aparece esse erro aqui "Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /baladaclick/admin/agenda/adicionar.asp, line 22 " o duro q no server da certo
-
Galera alguém pode me informar o que deve ser o problema q estou tendo no IIS, ele funciona parciamente, alguns códigos funcionam tal, mas se eu quiser inserir um dado na tabela ele fala q não pode ser exibida, fiz o teste e enviei p meu server e deu certo meu codigo ! meu iis ta td liberado p acessar qualquertipo de executavel e scripts alguém já passou por isso ???? VALEWWWWW
-
Precisava de um script p cinema, qualquer coisa,não tenho ideia como fazer ! me deem uma dica vlewww
-
Pessoal sou eu denovo, tenho um script aqui de um cartao virtual mas ele esta com o componente CDONTS mas meu server não aceita, ele só funciona com CDO ou CDOSYS alguém tem ideia como posso reformar esse script ? VAlewwwwwwwww <!--#include file = "conexao.asp"--> <!--#include file="config.asp"--> <% 'Gero um código para o cartão Randomize cod = int((9000000 * RND)+1) 'Capturo os dados do formulário nome = request("nome") de_email = request("de_email") para = request("para") para_email = request("para_email") assunto = request("assunto") fonte = request("fonte") musica = request("musica") tamanho = request("tamanho") mensagem = request("mensagem") img = request("img") 'Set salvar = Server.CreateObject("ADODB.Recordset") 'sql = "Select * from enviados INNER JOIN fontes on (fontes.id = enviados.fonte) where enviados.id=1" 'salvar.open sql, conex, 3,3 'Salva os dados no banco if session("envia") = true then Set salvar = Server.CreateObject("ADODB.Recordset") sql = "Select * from enviados" salvar.open sql, conex, 3,3 salvar.addnew salvar("cod") = cod salvar("nome") = nome salvar("de_email") = de_email salvar("para") = para salvar("para_email") = para_email salvar("assunto") = assunto salvar("mensagem") = mensagem salvar("data") = date salvar("musica") = musica salvar("img") = img salvar("fonte") = fonte salvar("tamanho") = tamanho salvar.update 'Envia o e-mail utilizando o coponente C'donts mensagem = "<html><head><title>Cartão virtual</title><style type='text/css'>a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: underline;}a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}</style></head><body bgcolor='#999999'><table width='100%' border='0' cellspacing='0' cellpadding='0' style='Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;'> <tr> <td height='141' valign='middle' bgcolor='#CCCCCC'> <div align='center'> <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='efefef' style='Border-top:#000000 1px solid;Border-bottom:#000000 1px solid;'> <tr> <td height='112' valign='middle'> <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'> <tr> <td height='92'> <p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>"¶&"<br> <br> </strong><font size='1'> Você acaba de receber um cartão virtual de ""&nome&"", ele ficará salvo em nosso banco de dados por um período de "&dr&" dias, passado este período o mesmo será removido de nosso sistema!</font></font></p> <p align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><font size='1'> Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a></font></font></p></td> </tr> </table> </td> </tr> </table> </div></td> </tr></table><br><br><div align='center'><font color='#CCCCCC' size='1' face='Verdana, Arial, Helvetica, sans-serif'>--------------------------------------------------------- <br><br>Developed by Diógenes Götz<br>E-mail-diogotz@bol.com.br<br>Http://www.salamito.fdp.com.br/forum</font> </div></body></html>" 'Envia uma mensagem de boas-vindas ao usuário cadastrado (Por e-mail) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = nome&"<"& de_email &">" objmail.to = para_email objmail.subject = "Cartão virtual!" objmail.body = mensagem objMail.Bodyformat = 0 objMail.MailFormat = 0 objmail.send 'Apago a seção utilizada session("envia") = false alerta = ("O cartão foi enviado com sucesso!") else alerta = ("Não é perimito fazer SPAM!") end if %> <meta http-equiv="refresh" content="5;URL=index.asp"> <title><%=titulo%></title><body bgcolor="#999999"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td><table width="40%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" style="Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;"> <tr> <td height="22" bgcolor="#666666"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Alerta</strong></font></div></td> </tr> <tr> <td height="90"> <div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=alerta%><br> Redirecionando ...</font></div></td> </tr> </table></td> </tr> </table> </body>
-
valeu
-
Galera gostaria de saber como fazer um código q pegue o endereço das imagens do meu pc e envia p banco de dados !!! ex: diretorio/fotox.jpg Valewwwwww
-
CONTRATO DE PRESTAÇÃO DE SERVIÇOS Pelo presente instrumento, a nome da empresa, aqui denominada CONTRATADA, empresa representada por nomedofulano, CPF xxx.xxx.xxx-xx, aqui denominada CONTRATANTE, (ambos estabelecidos em RIBEIRÃO PRETO têm entre si justo e contratado o seguinte): I. OBJETO DO CONTRATO O presente contrato tem como objeto a formulação do conjunto de páginas eletrônicas e gráficas, aqui denominado simplesmente por "SITE" ou "HOME PAGE", para uso exclusivo na Internet, com referências institucionais da CONTRATANTE, demonstrando os seus produtos, serviços e tecnologia e suporte técnico. II. OBRIGAÇÕES DA CONTRATADA A CONTRATRADA se obriga a desenvolver o objeto deste contrato da maneira mais adequada e dinâmica, dando ênfase à marca e a qualidade dos produtos e serviços da CONTRATANTE. Fazem parte ainda os seguintes serviços a serem executados pela CONTRATADA: - Elaboração do projeto gráfico e fluxo das informações; - Programação das páginas em HTML; - Programação das páginas em ASP; III. DAS OBRIGAÇÕES DO CONTRATANTE Ficará sobre responsabilidade da CONTRATANTE, a entrega de todo o material necessário para execução dos trabalhos ora tais como: - Textos descritivos; - Logotipo; - Fotos e imagens a serem adicionadas nas páginas; O CONTRATANTE deverá efetuar corretamente os pagamentos à CONTRATADA, segundo item V. IV. SUPORTE TÉCNICO A CONTRATADA dará suporte técnico, sendo Preventivo e/ou Corretivo, manterá o "SITE" em condições de navegabilidade, efetuando os necessários ajustes, configurações e reparos visuais, pelo período de 03 (três) meses gratuitos, a contar da data de publicação do site.* * Obs. A CONTRATADA se reserva o prazo de 72 horas para atualizações do conteúdo do site. 1º. Somente os técnicos da CONTRATADA poderão executar serviços técnicos preventivos e ou corretivos, a que se refere esta cláusula. 2º. No término do período do Suporte Técnico Gratuito (03 meses), fica reservado o direito de renovação de suporte à empresa ELITI DESIGN, mediante um novo contrato; 3º. A manutenção dos serviços aqui contratados não incluem: - Os serviços adicionais aos mencionados neste contrato; - Elaboração e construção de bancos de dados; - Produção de vídeos; - Configuração de estação de usuário da Internet; - Problemas apresentados nos equipamentos de comunicação, tais como modem e cabos de redes; - Problemas apresentados em conseqüência da presença de vírus no equipamento; - Problemas apresentados em conseqüência de softwares defeituosos, mal instalados ou mal configurados; - Criação de novas páginas ou alterações de layout diferenciado para o "SITE" do CONTRATANTE; - Problemas de Hospedagem do SITE - Problemas de Configuração das Contas de Email - Problemas que não estão ligados diretamente a ELITI DESIGN. V. PREÇO E FORMA DE PAGAMENTO Para os serviços de construção, manutenção e inclusão do "SITE", objeto deste contrato, ora estipulado terá um custo no valor de: Construção: R$ 700,00. Uma vez que a CONTRATADA cumpra todos os requisitos, o CONTRATANTE efetuará o pagamento do serviço prestado de construção do "SITE" da seguinte forma: 2 Pagamentos: 0/30 – Recebimento nas datas Entrada - R$ 350,00 - 01 de Dezembro de 2003. 30 DD - R$ 350,00 - 01 de Janeiro de 2004. VI. PRAZO DE VIGÊNCIA DO PRESENTE CONTRATO O presente contrato vigorará pelo prazo determinado de 3 (três) meses, onde se cumpra o desenvolvimento e publicação do “site”. E, por assim estarem justos e contratados, firmam o presente contrato em duas vias de igual teor e forma, Ribeirão Preto, ______ de __________________ de 2003. Contratada Contratante spero q ajude, !!!
-
hicarocastro, no peso tenta coloca 0.3 e não 0,3, aqui deu certinho
-
valeu pessoal
-
sinto lhe dizer, mas como faço isso??? gente to aprendendo ainda!!! valeu
-
Galera eu to tentando fazer uma galeria de fotos essa parte do codigo é o Thumbs! aqui ta td ok ! <html> <title>BaladaClick.Com - 14-3283-3960 / 9744-5082</title> <% 'Aqui será feito o Javascript que abrirá os resultados em Pop-up %> <script language="JavaScript" type="text/JavaScript"> <!-- function abrirjanela(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> <html> <style type="text/css"> <!-- .style1 {font-size: 9px} .style2 {font-family: Verdana, Arial, Helvetica, sans-serif} .style4 {color: #FFFFFF} .style5 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; } .style6 { font-size: 10px; font-weight: bold; } .style16 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; font-weight: bold; } .style17 { color: #FFFFFF; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; } --> </style> <head> <title>index</title> <meta http-equiv="Content-Type" content="text/html;iso-8859-1"> <meta name="description" content="FW MX CSS Layer"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> </head> <body bgcolor="#333333"> <div id="Camada1" style="position:absolute; left:0px; top:90px;width:800px; height:150px;z-index:1; visibility:visible"><img name="Camada_1" src="../Camada_1.gif" width="800" height="150" border="0"></div> <div id="Layer1" style="position:absolute; left:0px; top:247px; width:190px; height:501px; z-index:2"> <div align="center"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="186" height="455"> <param name="movie" value="../fla/menu.swf"> <param name="quality" value="high"> <embed src="../fla/menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="186" height="455"></embed> </object> <br> <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% =application("activevisitors") %> usuários online.<br><!-- Inicio banner Somar Meteorologia --> </font></p> <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <iframe src="http://www.tempoagora.com.br/selos/custom/selo.php?cid=Pederneiras-SP;" name="seloPederneiras-SP" width="120" height="125" frameborder="0" marginheight="0" marginwidth="0" scrolling="no"></iframe> <!--Fim banner Somar Meteorologia --> </font></div> </div> <div id="Layer11" style="position:absolute; left:645px; top:228px; width:160px; height:1px; z-index:13"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Última Atualização:</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 23/08</font></div> </div> <div id="Layer2" style="position:absolute; left:195px; top:246px; width:604px; height:477px; z-index:14"> <div align="center"></div> </div> <div id="Layer3" style="position:absolute; left:200px; top:250px; width:595px; height:70px; z-index:15"><strong> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong> <table width="100%" border="0" align="center"> <tr> <td><div align="left"><strong> <% ' Definindo o caminho do banco de dados caminho = "flagra.mdb" ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) objconn.Open DSN ' String SQL para consulta SQL = "select * from foto where idfesta="&request.querystring("id") ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 30 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <%While Not objRS.EOF AND cont < objRS.PageSize%> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:window.open('pop.asp?id=<%=objRS("idfoto")%>','_blank','status=0,width=500,height=500,top=80,left=150,');void(0);"><img src=<%=objRS("fotop")%> width="100" height="75" border="0"></a> <% cont = cont + 1 objRS.MoveNext Wend %> <br> </font> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "&id="&request.querystring("id")&"'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 11 then For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ") Next end if if objRs.PageCount > 10 then inicio=pagina fim=pagina + 9 tot = pagina + 9 if tot > ObjRS.PageCount then inicio = pagina-((pagina+9)-ObjRs.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "&id="&request.querystring("id")&"'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %> </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></div></td> </tr> </table> <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <br> </font> <br> </strong></div> <br> <strong> </strong> </body> </html> </div> </body> </html> acima ta td ok, agora eu fiz outro codigo p quando a pessoa clicar na foto ela abrir maior como nesses sites de festa, aqui q ta o problema, não consigo paginar as fotos do respectivo ID da festa. No banco de dados tem a tabela festa com as fotos correspondente deste ID. <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> </head> <body bgcolor="#FFCC00"> <div id="Layer3" style="position:absolute; left:14px; top:6px; width:589px; height:70px; z-index:15"> <div align="center"><strong> </strong> <table width="100%" border="0" align="left"> <tr> <td><div align="left"><strong> <% ' Definindo o caminho do banco de dados caminho = "flagra.mdb" ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) objconn.Open DSN ' String SQL para consulta SQL = "select * from foto where idfoto="&request.querystring("id") ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 1 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <%While Not objRS.EOF AND cont < objRS.PageSize%> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><img src="<%=objRS("fotog")%>" width="466" height="352" border="1"> <font color="#FFFFFF"> <% cont = cont + 1 objRS.MoveNext Wend %> <br> </font></font> <font color="#FFFFFF"> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "&id="&request.querystring("id")&"'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 11 then For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ") Next end if if objRs.PageCount > 10 then inicio=pagina fim=pagina + 9 tot = pagina + 9 if tot > ObjRS.PageCount then inicio = pagina-((pagina+9)-ObjRs.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "&id="&request.querystring("id")&"'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %> </font></font></strong></div></td> </tr> </table> </div> </div> <strong></strong> </body> </html> valeu galera !!! Quem puder me ajudar
-
Galera gostaria de saberondeeu consigo um script de calculo de fretes !!! c alguém souber como fazer melhor ainda que eu aprendo Valewww
-
<% ' Definindo o caminho do banco de dados caminho = "flagra.mdb" ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) objconn.Open DSN ' String SQL para consulta SQL = "select * from foto where idfesta="&request.querystring("id")&"" ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 10 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <% ' Imprime o número de registros, o total de páginas e a página atual Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf ) Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>") %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 11 then For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next end if if objRs.PageCount > 10 then inicio=pagina fim=pagina + 9 tot = pagina + 9 if tot > ObjRS.PageCount then inicio = pagina-((pagina+9)-ObjRs.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <%While Not objRS.EOF AND cont < objRS.PageSize%> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> <tr bgcolor="#0099CC" bordercolor="0"> <td height="7" width="110" align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="#" onclick="MM_openBrWindow('','','')"><img src="<%=objRS("fotop")%>" width="100" height="75" border="0"></a></font></strong> </a> </td> <td height="7" width="55" align="center"> </td> <% cont = cont + 1 objRS.MoveNext Wend %> </tr> </table> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %> galera o código ta ai quem puder ajudar, a paginação esta ok se eu tirar o querystring, mas quando eu clico em próximo ele dá erro, me ajudem é urgente!!! Valewwwwwwwwwww
-
Colega, nãosou expert no assunto mas quem sabe posso ajudar, tenta esse código abaixo e só troca aas variaveis, se precisar adicione mais campos. Valewq <% 'Recupero os dados nome = (Request("tnome")) email = (Request("temail")) assunto = (Request("ttelefone")) mensagem = (Request("tmensagem")) 'Faço a conexão com o banco de Dados cnpath="DBQ=" & Server.MapPath("dados/db_teste.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Adiciono no bd sqlString = "INSERT INTO tb_contato"&_ "(nome, email, assunto, mensagem) VALUES ( '" & nome & "', '" & email & "', '" & assunto & "', '" & mensagem & "')" Conn.Execute sqlString response.Write("Cadastro efetuado com sucesso !!! Obrigado !!!") response.Redirect("../index.asp") %>
-
Meu amigo,como eu já disse a paginação esta ok, o meu problema é incluir querystring dentro dela, eu tenho uma conexao com banco dados ACCESS esse é o problema... c você tem algo pronto desta forma você poderia disponibilizar para a comunidade estudar Obrigado !!!
-
Galera, estou comdificuldades de fazer paginação com querystring, minha idéia é para uma galeria de fotos com determinadas ID's, com o link de proximo e anterior, a paginação ta ok, mas não consigo incluir o querystring . tipo esses sites de festas que mostram asfotos dabalada, quem puder meajudar ficareigrato.. Obrigado!!! MSN: balaclickeventos@hotmail.com