Ir para conteúdo
Fórum Script Brasil

Paulo C. Jr.

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Sobre Paulo C. Jr.

Paulo C. Jr.'s Achievements

0

Reputação

  1. Pessoal procurei muito na internet a respeito, mas não encontrei nada que orientasse no processo de criação, vi que muita coisa pode e é melhor ser feita em css, mas tb não existem tutoriais ensinando, sendo assim gostaria de pedir aos usuários mais experiente que me auxiliasse a desenvolver uma pequena página que possa ser exibida em celulares. Fico grato a quem puder ajudar. Jr.
  2. Pessoal gostaria da ajuda de vocês na resolução deste problema. Observem este link: http://www.lizbordados.com/loja/painel/Produtos.asp A lista de produtos do centro exibe abaixo de cada produto algumas opçõeszinhas como atualizar, apagar e etc... Notem que se você for apagar algum itém ele exibe um mas quer pagar outro, isso só com os produtos do centro da página. Poderia me ajudar a resolver isso... Veja o código responsável por listar os produtos do centro: <% Set ProdutosDestaque1 = Server.CreateObject("ADODB.Recordset") ProdutosDestaque1.CursorType = 3 ProdutosDestaque1.Open("SELECT * FROM Produtos WHERE Destaque = On AND Status = On"), Banco If not ProdutosDestaque1.EOF Then ProdutosDestaque1Total = ProdutosDestaque1.RecordCount Randomize() ProdutosDestaque1Valor = Int(Rnd * ProdutosDestaque1Total) ProdutosDestaque1.Move(ProdutosDestaque1Valor) Else ProdutosDestaque1Desativar = 1 End If If Not ProdutosDestaqueDesativar1 = 1 Then %> Código completo da página: <!--#include file="../Includes/Config.asp"--> <!--#include file="../Includes/ADOVBS.inc"--> <link href="../Includes/Styles.css" rel="stylesheet" type="text/css"> <% Call AbreBanco Dim VarCategoria Dim VarSubCategoria Dim VarBuscaTexto Dim VarAct Dim VarAct2 Dim Produtos Dim Categoria Dim SubCategoria Dim VarPagina Dim TotaldePaginas Dim IntI Dim ProdutosDestaque1 Dim ProdutosDestaque1Desativar Dim ProdutosDestaque1Valor Dim ProdutosDestaque1Total VarCategoria = Request("Categoria") VarSubCategoria = Request.QueryString("SubCategoria") VarBuscaTexto = Request("BuscaTexto") VarAct2 = Request.QueryString("Act2") Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING") VarAct = Request.QueryString("Act") If Request.QueryString("Pagina") = "" Then VarPagina = 1 Else VarPagina = Request.QueryString("Pagina") Select case VarAct Case "Anterior" VarPagina = VarPagina - 1 Case "Proxima" VarPagina = VarPagina + 1 End select End If Set Produtos = Server.CreateObject("ADODB.RecordSet") Produtos.CursorLocation = adUseClient Produtos.CursorType = adOpenStatic Produtos.CacheSize = TotalPorPagina If VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Estoque > 0 AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "" and VarSubCategoria <> "" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'") Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And Estoque > 0 AND CodSubCategoria LIKE '"&VarSubCategoria&"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On And Estoque > 0 ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "Busca" and VarBuscaTexto = "" Then Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText ElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then Produtos.Open "SELECT * FROM Produtos Where Estoque > 0 ORDER BY Cod Desc", Banco, , , adCmdText End If %>
  3. Oi Pessoal, boa tarde. Preciso da ajuda de vocês num cadastro. Funcionará assim... No cadastro eu irei selecionar primeiro o estado, aí irá exibir de acordo com o estado a cidade., aí quando eu enviar o cadastro, a respetiva escola será cadastrada para aquela cidade que foi selecionada neste cadastro. O cadastro eu terminei e funciona, mas eu não sei fazer a combo box que pega o estado do DB e as cidades TB. Não sei fazer esse processo de conexão com o DB e pegar os dados. Podem ajudar? Tenho o DB Cidades, neste DB tenho a Tabela DDD com os campos: ID, Cidade, UF e DDD Como é que eu chamo o Estado e para cada estado as cidades? Aguardo. Jr. Se ajudar segue código da página de cadastro. <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>::Cidades::</title> <script language="javascript"> function valida_campo() { <!-- var cidade = document.form.cidade.value if (cidade==""){ alert("Digite o nome da Cidade!"); document.form.cidade.focus() return false } var estado=document.form.estado.value; if (estado==""){ alert("Digite o Estado!") document.form.cidade.focus() return false } } //--> </script> </head> <body> <form method="post" action="insert_escola.asp" name="form" onsubmit="return valida_campo()"> <div align="center"> <center> <table width="44%" border="0" cellspacing="2" cellpadding="2"> <tr align="center"> <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#CCCCCC">Incluir</font></font></b></font></div> </td> <td bgcolor="#f5f5f5" width="30%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div> </td> <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div> </td> </tr> </table> <table border="0" width="352" bgcolor="F5F5F5"> <tr bgcolor="#FFFFFF"> <td colspan="2" height="34"> <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Cadastro de Escola</font></b></font></div></td> </tr> <tr align="center" bgcolor="#FFFFFF"> <td height="34" colspan="2"> <table width="200" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="122">Selecione o Estado:</td> <td width="72"></td> </tr> <tr> <td>Selecione a Cidade:</td> <td>&nbsp;</td> </tr> </table> </td> </tr> <tr> <td width="128"><font size="2" face="Verdana" color="#0066FF">Nome da Escola:</font></td> <td width="214"> <input name="Escola" type="text" id="Escola" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" size="20"> </td> </tr> <tr> <td width="128"><font size="2" face="Verdana" color="#0066FF">Endere&ccedil;o:</font></td> <td width="214"> <input name="Endereco" type="text" id="Endereco" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"> </td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Complemento:</font></td> <td><input name="Complemento" type="text" id="Complemento" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">CEP:</font></td> <td><input name="CEP" type="text" id="CEP" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></td> <td><input name="Telefone" type="text" id="Telefone" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fax:</font></td> <td><input name="Fax" type="text" id="Fax" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Diretor(a) Geral:</font></td> <td><input name="Diretor" type="text" id="Diretor" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td width="128"><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Site:</font></td> <td width="214"><input name="Site" type="text" id="Site" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"> </td> </tr> <tr> <td><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></td> <td><input name="Email" type="text" id="Email" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" size="20"></td> </tr> <tr> <td colspan="2"> <p align="center"> <input type="submit" value="Enviar" name="enviar"> </td> </tr> </table> </center> </div> </form> </body> </html>
  4. Pessoal preciso de um script de galeria simples em ASP com Upload, quem tiver entra em contato. MSN: junior@ideias.ppg.br Muito obrigado. Jr.
  5. Obrigado Marcos. Já que quer ajudar, vamos lá. Não sei porque motivo... esta página não está gravando as informações no DB. Esta página deveria gravar o nome da Galeria de fotos e outras informações no DB. Verifiquei o Db e realmente não tem nada. Aonde pode estar o problema. Veja o código: <% Server.ScriptTimeout = 500000 Dim Form: Set Form = New ASPForm %> <!--#INCLUDE FILE="_upload.asp"--> <% Server.ScriptTimeout = 10000 Form.SizeLimit = 10240*1024'10MB if len(Request.QueryString("UploadID"))>0 then Form.UploadID = Request.QueryString("UploadID")'{/b} end if Const fsCompletted = 0 If Form.State = fsCompletted Then 'Completted Const VirtualFolder = ("fotos") Dim DestinationPath, virtDestinationPath DestinationPath = Server.mapPath(VirtualFolder) & "\" virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _ + GetPath(Request.ServerVariables("SCRIPT_NAME") ) _ + "/" + VirtualFolder + "/" Dim RS: Set RS = OpenUploadRS Dim FileField For Each FileField in Form.Files.Items if len(FileField.FileName)> 0 then 'File is specified. Dim DestinationFileName DestinationFileName = DestinationPath & FileField.FileName FileField.SaveAs DestinationFileName 'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela RS.AddNew RS("data") = Form.Texts.Item("data")&time() RS("dia") = Form.Texts.Item("data") RS("Evento") = Form.Texts.Item("evento") RS("foto") = FileField.FileName RS("Cidade") = Form.Texts.Item("cidade") RS("local") = Form.Texts.Item("local") RS("Fotografo") = Form.Texts.Item("fotografo") '... RS.Update end if Next response.write "<meta http-equiv='refresh' content='0; url=listargalerias.asp'/>" Dim Field: For Each Field in Form.Files.Items Next ElseIf Form.State > 10 then Const fsSizeLimit = &HD Select case Form.State case fsSizeLimit: response.write "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>" case else response.write "<br><Font Color=red>Some form error.</Font><br>" end Select End If'Form.State = 0 then Function OpenUploadRS() Dim RS : Set RS = CreateObject("ADODB.Recordset") RS.Open "Galeria", GetConnection, 2, 2 Set OpenUploadRS = RS end Function Function GetConnection() dim Conn: Set Conn = CreateObject("ADODB.Connection") set Conn = createobject("adodb.connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\galeriafotos.mdb" set GetConnection = Conn end function Function SplitFileName(FullPath) Dim Pos, PosF PosF = 0 For Pos = Len(FullPath) To 1 Step -1 Select Case Mid(FullPath, Pos, 1) Case ":", "/", "\": PosF = Pos + 1: Pos = 0 End Select Next If PosF = 0 Then PosF = 1 SplitFileName = PosF End Function Function GetPath(FullPath) GetPath = left(FullPath, SplitFileName(FullPath)-1) End Function Dim UploadID, PostURL UploadID = Form.NewUploadID PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b} %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <script language="Javascript"> // Início da Marcara do Data function FormataData(evt) { vr = (navigator.appName == 'Netscape') ?evt.target.value : evt.srcElement.value; if(vr.length == 2) vr = vr+"/"; if(vr.length == 5) vr = vr+"/"; return vr; } </script> <script> function number(){ if(event.keyCode<48 || event.keyCode>57) event.returnValue=false; } </script> <TITLE>Cido Silva - Sites, softwares e aplicações para web</TITLE> <STYLE TYPE="text/css"><!--TD {font-family:Arial,Helvetica,sans-serif }TH {font-family:Arial,Helvetica,sans-serif }TABLE {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE> <meta name="robots" content="noindex,nofollow"> <meta name="generator" content="Namo WebEditor v5.0"> </HEAD> <BODY BGColor="#ECE9D8" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0"> <table align="center" cellpadding="0" cellspacing="0" width="779"> <tr> <td width="1121"><Div style=width:600> <TABLE cellSpacing="0" cellPadding="0" width="779" bgColor=white align="center"> <TR> <TD bgcolor="#2D83C0"> <p align="center">&nbsp;<font face="Arial" color="white"><span style="font-size:14pt;"><b>Adicionar Galerias</b></span></font></p> </TD></TR> <TR> <TD bgcolor="white"> <Div style=width:600> <TABLE cellSpacing="0" cellPadding="0" bgcolor="white" width="774" align="center"> <form method=post ENCTYPE="multipart/form-data" onSubmit="return ValidaFormulario();"> <TR> <TD width="195"> <p align="center">&nbsp;</TD> <TD Align=Right width="579"> <p align="center"><input type="submit" Name="Action" value="Clic aqui para criar a galeria"></TD> </TR> <TR> <TD width="774" colspan="2"><form name="formulario" method="POST" action="AdicionarGaleria1.asp" onSubmit="return ValidaFormulario();" > <table width="100%" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><span style="font-size:10pt;"><b>Foto da capa</b></span></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="file" name="SourceFile" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt" size="45"></td> </tr> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><font face="Arial" style="font-size: 8pt"><span style="font-size:10pt;"><b>Nome Festa:</b></span></font></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="text" name="evento" size="61" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt"></td> </tr> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><font face="Arial" style="font-size: 8pt"><span style="font-size:10pt;"><b>Fotografo:</b></span></font></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="text" name="fotografo" size="61" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt"></td> </tr> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><font face="Arial" style="font-size: 8pt"><span style="font-size:10pt;"><b>Data Festa:</b></span></font></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="text" name="data" maxlength="10" onkeypress="number(this)" onkeyup="this.value = FormataData(event)" size="20" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt"></td> </tr> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><font face="Arial" style="font-size: 8pt"><span style="font-size:10pt;"><b>Local:</b></span></font></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="text" name="local" size="61" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt"></td> </tr> <tr> <td width="147" align="right" bgcolor="white"> <p align="right"><font face="Arial" style="font-size: 8pt"><span style="font-size:10pt;"><b>Cidade:</b></span></font></td> <td width="13" align="right" bgcolor="white"> <p>&nbsp;</p> </td> <td width="614" bordercolor="#800000" bgcolor="white"> <p align="left"><input type="text" name="cidade" size="61" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Tahoma; font-size:8pt"></td> </tr> </table> </form> </TD> </TR> </form></Table> </Div> </TD></TR></TABLE> </Div> </td> </tr> </table> <Div style=width:600> <p align="center">&nbsp;</p> <p align="center">&nbsp;</p> <CENTER> &nbsp;</CENTER> </Div> </BODY></HTML>
  6. Oi pessoal, tudo bem. Estou procurando uma galeria de fotos com Upload. Já procurei aqui no Script, já verifiquei em vários sites como o Código livre, Imasters e HotScript, mas não funcionam e quando funcionam não tem upload. Se alguém tiver uma galeria bem simples com upload e puder gentilmente postar aqui fico grato. Independente do componente que a galeria usar não tem problema. Aguardo um contato. Meu e-mail: criacaoi7@gmail.com Grato. Jr.
  7. Oi pessoal, não consigo resolver este erro: Erro de compilação do Microsoft vb script: na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 703, 473, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a> </p> </td> <td width="107"> <p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> <font face="Arial" color="#333333"><b><span style="font-size:12pt;">Evento</span></b></font> </p> </td> <td width="325"> <p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> <span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Evento")%> </font></span> </p> </td> <td width="194"> <p align="center"><a href="config/listargalerias.asp"><span style="font-size:10pt;"><b><font face="Arial" color="red"> Adiministar galerias</font></b></span></a></p> </td> </tr> <tr> <td width="107"> <p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><font face="Arial" color="#333333"><b><span style="font-size:12pt;">Data</span></b></font></p> </td> <td width="325"> <p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Dia")%> </font></span></p> </td> <td width="194"> <p> </p> </td> </tr> <tr> <td width="107"> <p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Cidade</b></span></font></p> </td> <td width="325"> <p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Cidade")%> </font></span></p> </td> <td width="194"> <p> </p> </td> </tr> <tr> <td width="107"> <p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Fotografo</b></span></font></p> </td> <td width="325"> <p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Fotografo")%> </font></span></p> </td> <td width="194"> <p align="center"> </p> </td> </tr> <tr> <td width="779" colspan="4"> <p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p> </td> </tr> </table> <p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center"> <% i = i+1 Count = Count + 1 RS.MoveNext LOOP %> <% Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") var01 = Len(PagAtual) var02 = var01 - 1 var03 = Left(PagAtual,var02) var04 = Right(PagAtual,1) var05 = var03 & 0 IF var04 <> 0 THEN inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 indice_f = 10 - var04 If CInt(final) > CInt(TotalPages) Then final = TotalPages IF PagAtual > 1 THEN Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & 1 & "'>") Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write ("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") Response.Write("</a></font></B> ") IF PagAtual > 10 THEN Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>") Response.Write("...") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("....") Response.Write("</font></B> ") END IF Else Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") End If For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> " END IF Next IF CInt(PagAtual) <> CInt(TotalPages) THEN p1 = Left(PagAtual,var02) p2 = Left(TotalPages,var02) p3 = Left(TotalPages,var02) & 0 IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>") Response.Write("...") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") END IF Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>") Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</font></B> ") End If Rs.Close Set RS = Nothing Conn.Close Set Conn = Nothing %></p> </td> </tr> </table> <p> </p> </body> </html> Se alguém puder ajudarm fico grato. Jr.
×
×
  • Criar Novo...