Jump to content

W. Sales

Members
  • Content count

    49
  • Joined

  • Last visited

Community Reputation

0 Comum

1 Follower

About W. Sales

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. W. Sales

    Paginas em resultado da busca

    Pessoal aperriando vcs ainda, fiz as alterações mas ainda continua com o mesmo erro olhe o codigo com as alterações abaixo Onde estou errando? <%busca = Ucase (Request("buscando"))%> <html> <head> <title>buscando</title> </head> <style type="text/css"> a:link, a:visited { text-decoration: none } a:hover { text-decoration: none } a:active { text-decoration: none } </style> <body> <br> <% Set banco=server.CreateObject("ADODB.Connection") banco.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\home\teste\web\busca2\Allbusca.mdb" Set rs=server.CreateObject ("ADODB.RecordSet") sql = "SELECT * FROM allbusca WHERE palavrachave LIKE '%"&busca&"%'" rs.open sql, banco,3,3 '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- Const NumPorPage = 15 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conexão com o Banco de Dados, já abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA rs.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet rs.MoveFirst 'Move o RecorSet para o início rs.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = rs.PageCount rs.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT rs.EOF And Count < rs.PageSize 'paginacao And Count < rs.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#F4F4F4" else cor = "#e1e1e1" end if '------------------------------- if rs.recordcount > 0 then rs.movefirst Response.write "<Table cellpading = 0 cellspacing = 0>" while not rs.EOF if Not Left(Ucase(rs("URL")),7) = "HTTP://" then curl="http://"&rs("URL") else curl = rs("URL") end if %> <br> <br> <table width="100%"> <Tr> <td width="95"><A HREF=<%=curl%>><img src="<%=rs("foto")%>" width="90" height="68" border="0" alt=""></a></td> <td> <font color="silver" size="2" face="arial, verdana, tahoma"><%=rs("data")%> <br> <font color="#4a494b" size="3" face="arial, verdana, tahoma"><strong><%=rs("titulo")%></strong></font> <br> <A HREF=<%=curl%>><font color="#4a494b" size="3" face="arial, verdana, tahoma"><% desc = Replace (rs.fields("descricao"),chr(10),"<BR>") Response.write desc %></font></a> <br> </td> </tr> <tr> <td colspan="2"><hr size="1" color="#c0c0c0" width="100%"></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rs.movenext wend Response.write "</table>" Else Response.write busca End if LOOP %> <%'Coloca o Nº página atual / Nº Total de páginas 'Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & Pag'Atual & " de " & TotalPages & " </strong></font></B> - ") busca = Ucase (Request.QueryString("buscando")) 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(final) > CInt(TotalPages) Then final = TotalPages IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>") Response.Write("<img src='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='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>") Response.Write ("<img src='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='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>") 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=""2"" face=""Arial"">") Response.Write("<img src='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='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 '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"' style='color=#666666'>" & i & "</a></font> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>" & 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='buscando2-.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='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2-.asp?PagAtual=" & PagAtual + 1 & "&buscando="& busca &"'>") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</font></B> ") End If rs.Close Set tb = Nothing %> </body>
  2. W. Sales

    Paginas em resultado da busca

    valeu cara, é que to aprendendo asp ainda, sou muito iniciante, mas agradesço sua paciencia e tempo. mas sinceramente não sei onde colocar essa função.
  3. W. Sales

    Paginas em resultado da busca

    Ainda mesma coisa olha o codigo abaixo: <% Busca = Ucase (Request.form("buscando")) %> <html> <head> <title>Buscando</title> </head> <style type="text/css"> a:link, a:visited { text-decoration: none } a:hover { text-decoration: none } a:active { text-decoration: none } </style> <body> <br> <% Set banco=server.CreateObject("ADODB.Connection") banco.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\home\onlin\web\busca2\AllBusca.mdb" Set rs=server.CreateObject ("ADODB.RecordSet") sql = "SELECT * FROM allbusca WHERE palavrachave LIKE '%"&busca&"%'" rs.open sql, banco, 3 '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- Const NumPorPage = 15 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conexão com o Banco de Dados, já abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA rs.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet rs.MoveFirst 'Move o RecorSet para o início rs.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = rs.PageCount rs.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT rs.EOF And Count < rs.PageSize 'paginacao And Count < rs.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#F4F4F4" else cor = "#e1e1e1" end if '------------------------------- if rs.recordcount > 10 then rs.movefirst Response.write "<Table cellpading = 0 cellspacing = 0>" while not rs.EOF if Not Left(Ucase(rs("URL")),7) = "HTTP://" then curl="http://"&rs("URL") else curl = rs("URL") end if %> <br> <br> <table width="100%"> <Tr> <td width="95"><A HREF=<%=curl%>><img src="<%=rs("foto")%>" width="90" height="68" border="0" alt=""></a></td> <td> <font color="silver" size="2" face="arial, verdana, tahoma"><%=rs("data")%> <br> <font color="#4a494b" size="3" face="arial, verdana, tahoma"><strong><%=rs("titulo")%></strong></font> <br> <A HREF=<%=curl%>><font color="#4a494b" size="3" face="arial, verdana, tahoma"><% desc = Replace (rs.fields("descricao"),chr(10),"<BR>") Response.write desc %></font></a> <br> </td> </tr> <tr> <td colspan="2"><hr size="1" color="#c0c0c0" width="100%"></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rs.movenext wend Response.write "</table>" Else Response.write busca End if LOOP %> <%'Coloca o Nº página atual / Nº Total de páginas 'Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & Pag'Atual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(final) > CInt(TotalPages) Then final = TotalPages IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Busca = Ucase (Request.form("buscando")) Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & 1 & "'>") Response.Write("<img src='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='buscando2.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write ("<img src='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='buscando2.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=""2"" face=""Arial"">") Response.Write("<img src='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='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 '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.asp?PagAtual=" & i & "' style='color=#666666'>" & i & "</a></font> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.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 Busca = Ucase (Request("buscando")) Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.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='buscando2.asp?PagAtual=" & PagAtual + 1 & "&buscando="& Busca &"'>") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & TotalPages & "'>") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</font></B> ") End If Rs.Close Set RS = Nothing banco.Close Set Conn = Nothing %> </body>
  4. W. Sales

    Paginas em resultado da busca

    Fiz o que você falou mas não adiantou. alguma ideia? <% Busca = Ucase (Request.form("buscando")) %> <html> <head> <title>Buscando</title> </head> <style type="text/css"> a:link, a:visited { text-decoration: none } a:hover { text-decoration: none } a:active { text-decoration: none } </style> <body> <br> <% Set banco=server.CreateObject("ADODB.Connection") banco.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\home\onlineon1\web\busca2\AllBusca.mdb" Set rs=server.CreateObject ("ADODB.RecordSet") sql = "SELECT * FROM allbusca WHERE palavrachave LIKE '%"&busca&"%'" rs.open sql, banco, 3 '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- Const NumPorPage = 15 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conexão com o Banco de Dados, já abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA rs.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet rs.MoveFirst 'Move o RecorSet para o início rs.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = rs.PageCount rs.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT rs.EOF And Count < rs.PageSize 'paginacao And Count < rs.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#F4F4F4" else cor = "#e1e1e1" end if '------------------------------- if rs.recordcount > 10 then rs.movefirst Response.write "<Table cellpading = 0 cellspacing = 0>" while not rs.EOF if Not Left(Ucase(rs("URL")),7) = "HTTP://" then curl="http://"&rs("URL") else curl = rs("URL") end if %> <br> <br> <table width="100%"> <Tr> <td width="95"><A HREF=<%=curl%>><img src="<%=rs("foto")%>" width="90" height="68" border="0" alt=""></a></td> <td> <font color="silver" size="2" face="arial, verdana, tahoma"><%=rs("data")%> <br> <font color="#4a494b" size="3" face="arial, verdana, tahoma"><strong><%=rs("titulo")%></strong></font> <br> <A HREF=<%=curl%>><font color="#4a494b" size="3" face="arial, verdana, tahoma"><% desc = Replace (rs.fields("descricao"),chr(10),"<BR>") Response.write desc %></font></a> <br> </td> </tr> <tr> <td colspan="2"><hr size="1" color="#c0c0c0" width="100%"></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rs.movenext wend Response.write "</table>" Else Response.write busca End if LOOP %> <%'Coloca o Nº página atual / Nº Total de páginas 'Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & Pag'Atual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(final) > CInt(TotalPages) Then final = TotalPages IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Busca = Ucase (Request.form("buscando")) Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & 1 & "'>") Response.Write("<img src='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='buscando2.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write ("<img src='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='buscando2.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=""2"" face=""Arial"">") Response.Write("<img src='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='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 '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.asp?PagAtual=" & i & "' style='color=#666666'>" & i & "</a></font> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.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='buscando2.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='buscando2.asp?PagAtual=" & PagAtual + 1 & "&buscando="& Busca &"'>") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & TotalPages & "'>") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</font></B> ") End If Rs.Close Set RS = Nothing banco.Close Set Conn = Nothing %> </body>
  5. W. Sales

    Paginas em resultado da busca

    Oi Galera to precisando de uma ajudinha. Seguinte: Eu to incluindo uma paginação em um resultado de um busca ate ai tudo bem consegui fazer ele exibe certinho os resultados a la em baixo ele colocar as páginas 1,2,34,... Porem quando clica em um desses numeros pra pular pra pagina seguinte ele pula, porem mostras todos os resultados do banco e não obdece a paginação. alguém pode dizer onde ta esse erro?? abaixo o código. <% Busca = Ucase (Request.form("buscando")) %> <html> <head> <title>Buscando</title> </head> <style type="text/css"> a:link, a:visited { text-decoration: none } a:hover { text-decoration: none } a:active { text-decoration: none } </style> <body> <br> <% Set banco=server.CreateObject("ADODB.Connection") banco.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\home\onlineon1\web\busca2\AllBusca.mdb" Set rs=server.CreateObject ("ADODB.RecordSet") sql = "SELECT * FROM allbusca WHERE palavrachave LIKE '%"&busca&"%'" rs.open sql, banco,3,3 '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- Const NumPorPage = 15 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conexão com o Banco de Dados, já abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA rs.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet rs.MoveFirst 'Move o RecorSet para o início rs.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = rs.PageCount rs.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT rs.EOF And Count < rs.PageSize 'paginacao And Count < rs.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#F4F4F4" else cor = "#e1e1e1" end if '------------------------------- if rs.recordcount > 10 then rs.movefirst Response.write "<Table cellpading = 0 cellspacing = 0>" while not rs.EOF if Not Left(Ucase(rs("URL")),7) = "HTTP://" then curl="http://"&rs("URL") else curl = rs("URL") end if %> <br> <br> <table width="100%"> <Tr> <td width="95"><A HREF=<%=curl%>><img src="<%=rs("foto")%>" width="90" height="68" border="0" alt=""></a></td> <td> <font color="silver" size="2" face="arial, verdana, tahoma"><%=rs("data")%> <br> <font color="#4a494b" size="3" face="arial, verdana, tahoma"><strong><%=rs("titulo")%></strong></font> <br> <A HREF=<%=curl%>><font color="#4a494b" size="3" face="arial, verdana, tahoma"><% desc = Replace (rs.fields("descricao"),chr(10),"<BR>") Response.write desc %></font></a> <br> </td> </tr> <tr> <td colspan="2"><hr size="1" color="#c0c0c0" width="100%"></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rs.movenext wend Response.write "</table>" Else Response.write busca End if LOOP %> <%'Coloca o Nº página atual / Nº Total de páginas 'Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & Pag'Atual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(final) > CInt(TotalPages) Then final = TotalPages IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & 1 & "'>") Response.Write("<img src='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='buscando2.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write ("<img src='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='buscando2.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=""2"" face=""Arial"">") Response.Write("<img src='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='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 '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.asp?PagAtual=" & i & "' style='color=#666666'>" & i & "</a></font> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='buscando2.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='buscando2.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='buscando2.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='buscando2.asp?PagAtual=" & TotalPages & "'>") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</a></font></B> ") ELSE Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("...") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/proxima.gif' border='0' alt='Próxima página'>") Response.Write("</font></B> ") Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") Response.Write("<img src='images/ultima.gif' border='0' alt='Ultima página'>") Response.Write("</font></B> ") End If Rs.Close Set RS = Nothing banco.Close Set Conn = Nothing %> </body>
  6. Tentei mas não deu, assim (data e dê um order by) ele ordenou por data de postagem e eu queria que ele ordenasse por data escrita onde eu pudesse incluir uma noticia entre datas já passadas.
  7. Pessoal to com uma bronca to tentando exibir uma ordem por data digitada e não por data de postagem exemplo: os campos são assim: Noticia 05-02-2016 Noticia 10-02-2016 Noticia 15-02-2016 Se eu adicionar uma noticia no dia 06-02-2016, queria que ela fosse exibida assim: Noticia 05-02-2016 Noticia 06-02-2016 Noticia 10-02-2016 Noticia 15-02-2016 Alguem sabe como fazer isso segue o select SQL = "SELECT * FROM noticias WHERE Classe='Noticias' ORDER BY Dataoculta asc"
  8. A linha 151 é essa: Topico = UploadRequest.Item("Topico").Item("Value") Alguem sabe??
  9. Erro apresentado na locaweb: Microsoft VBScript runtime error '800a01a8' Object required: '[undefined]' /noticias/addnotfoto1.asp, line 151 Codigo do erro: <% @ codepage="1252" language="VBScript" %> <!-- #include file="upload.inc" --> <title>:: Web 3 ::</title> </head> <STYLE type=text/css> BODY { font-family: verdana; font-size: 12px; color: #000000; scrollbar-face-color: #DEE3E7; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-3dlight-color: #D1D7DC; scrollbar-arrow-color: #006699; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #98AAB1; } BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A { text-decoration: none; color: #000000; } A:Hover { text-decoration: none; color: #000000; } IMG { border-color: #4D4B4D; } A:Visited { text-decoration: none; color: #4D4B4D; } A:Active { text-decoration: none; color: #4D4B4D; } } INPUT { BACKGROUND-COLOR: 1C1E4C; BORDER-BOTTOM-COLOR: #1C1E4C; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #1C1E4C; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #1C1E4C; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #1C1E4C; BORDER-TOP-WIDTH: 1px; COLOR: #37ADDE; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <script language="JavaScript" type="text/JavaScript"> function ValidaCadastro(form) { if (form.frm_login.value == "") { alert("Login não Informado!"); return false; } else if (form.frm_senha.value == "") { alert("Senha não informada!"); return false; } } </script> <style type="text/css"> <!-- .link2:link { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:visited { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:hover { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: underline; } --> </style> <body leftmargin="0" topmargin="0" bgcolor="#F6F6F6"> <center> <table cellpadding="0" cellspacing="0"> <tr> <td background="img2/top.gif" width="778" height="134" valign="top"> <br> <br> <br> <br> <br> <br> <br> <br> <table cellpadding="0" cellspacing="0"> <tr> <td width="20"> </td> <td><table cellpadding="0" cellspacing="0"> <tr> <td><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></td> </tr> </table></td> </tr> </table> </td> </tr> </table> <br><br> <p align="center"><font face="verdana, arial, tahoma"><span style="font-size:10pt;"><b><% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Topico = UploadRequest.Item("Topico").Item("Value") Resumo = UploadRequest.Item("Resumo").Item("Value") Classe = UploadRequest.Item("Classe").Item("Value") Classe1 = UploadRequest.Item("Classe1").Item("Value") Autor = UploadRequest.Item("Autor").Item("Value") Noticia = UploadRequest.Item("Noticia").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto1 = UploadRequest.Item("foto1").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto1 = UploadRequest.Item("foto1").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("fotos/") nome_foto = "/"&nome_foto nome_foto1 = "/"&nome_foto1 ' pasta + nome dos arquivos cfoto = "fotos" + nome_foto cfoto1 = "fotos" + nome_foto1 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close end if Noticia = Replace(Noticia,"'","´") Noticia = Replace(Noticia,"á","á") Noticia = Replace(Noticia ,"Á","Á") Noticia = Replace(Noticia ,"ã","ã") Noticia = Replace(Noticia ,"Ã","Ã") Noticia = Replace(Noticia ,"â","â") Noticia = Replace(Noticia ,"Â","à") Noticia = Replace(Noticia ,"À","À") Noticia = Replace(Noticia ,"é","é") Noticia = Replace(Noticia ,"É","É") Noticia = Replace(Noticia ,"ê","ê") Noticia = Replace(Noticia ,"Ê","Ê") Noticia = Replace(Noticia ,"í","í") Noticia = Replace(Noticia ,"Í","Í") Noticia = Replace(Noticia ,"ó","ó") Noticia = Replace(Noticia ,"Ó","Ó") Noticia = Replace(Noticia ,"õ","õ") Noticia = Replace(Noticia ,"Õ","Õ") Noticia = Replace(Noticia ,"ô","ô") Noticia = Replace(Noticia ,"Ô","Ô") Noticia = Replace(Noticia ,"ú","ú") Noticia = Replace(Noticia ,"Ú","Ú") Noticia = Replace(Noticia ,"ü","ü") Noticia = Replace(Noticia ,"Ü","Ü") Noticia = Replace(Noticia ,"Ç","Ç") Noticia = Replace(Noticia ,"ç","ç") ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("dados/dados.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!" ' Redireciona após 5 segundos response.write "<br><br>Vc será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>" %></span></font>
  10. Erro apresentado na locaweb: Microsoft VBScript runtime error '800a01a8' Object required: '[undefined]' /noticias/addnotfoto1.asp, line 151 Codigo do erro: <% @ codepage="1252" language="VBScript" %> <!-- #include file="upload.inc" --> <title>:: Web 3 ::</title> </head> <STYLE type=text/css> BODY { font-family: verdana; font-size: 12px; color: #000000; scrollbar-face-color: #DEE3E7; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-3dlight-color: #D1D7DC; scrollbar-arrow-color: #006699; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #98AAB1; } BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A { text-decoration: none; color: #000000; } A:Hover { text-decoration: none; color: #000000; } IMG { border-color: #4D4B4D; } A:Visited { text-decoration: none; color: #4D4B4D; } A:Active { text-decoration: none; color: #4D4B4D; } } INPUT { BACKGROUND-COLOR: 1C1E4C; BORDER-BOTTOM-COLOR: #1C1E4C; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #1C1E4C; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #1C1E4C; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #1C1E4C; BORDER-TOP-WIDTH: 1px; COLOR: #37ADDE; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <script language="JavaScript" type="text/JavaScript"> function ValidaCadastro(form) { if (form.frm_login.value == "") { alert("Login não Informado!"); return false; } else if (form.frm_senha.value == "") { alert("Senha não informada!"); return false; } } </script> <style type="text/css"> <!-- .link2:link { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:visited { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:hover { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: underline; } --> </style> <body leftmargin="0" topmargin="0" bgcolor="#F6F6F6"> <center> <table cellpadding="0" cellspacing="0"> <tr> <td background="img2/top.gif" width="778" height="134" valign="top"> <br> <br> <br> <br> <br> <br> <br> <br> <table cellpadding="0" cellspacing="0"> <tr> <td width="20"> </td> <td><table cellpadding="0" cellspacing="0"> <tr> <td><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></td> </tr> </table></td> </tr> </table> </td> </tr> </table> <br><br> <p align="center"><font face="verdana, arial, tahoma"><span style="font-size:10pt;"><b><% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Topico = UploadRequest.Item("Topico").Item("Value") Resumo = UploadRequest.Item("Resumo").Item("Value") Classe = UploadRequest.Item("Classe").Item("Value") Classe1 = UploadRequest.Item("Classe1").Item("Value") Autor = UploadRequest.Item("Autor").Item("Value") Noticia = UploadRequest.Item("Noticia").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto1 = UploadRequest.Item("foto1").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto1 = UploadRequest.Item("foto1").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("fotos/") nome_foto = "/"&nome_foto nome_foto1 = "/"&nome_foto1 ' pasta + nome dos arquivos cfoto = "fotos" + nome_foto cfoto1 = "fotos" + nome_foto1 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close end if Noticia = Replace(Noticia,"'","´") Noticia = Replace(Noticia,"á","á") Noticia = Replace(Noticia ,"Á","Á") Noticia = Replace(Noticia ,"ã","ã") Noticia = Replace(Noticia ,"Ã","Ã") Noticia = Replace(Noticia ,"â","â") Noticia = Replace(Noticia ,"Â","à") Noticia = Replace(Noticia ,"À","À") Noticia = Replace(Noticia ,"é","é") Noticia = Replace(Noticia ,"É","É") Noticia = Replace(Noticia ,"ê","ê") Noticia = Replace(Noticia ,"Ê","Ê") Noticia = Replace(Noticia ,"í","í") Noticia = Replace(Noticia ,"Í","Í") Noticia = Replace(Noticia ,"ó","ó") Noticia = Replace(Noticia ,"Ó","Ó") Noticia = Replace(Noticia ,"õ","õ") Noticia = Replace(Noticia ,"Õ","Õ") Noticia = Replace(Noticia ,"ô","ô") Noticia = Replace(Noticia ,"Ô","Ô") Noticia = Replace(Noticia ,"ú","ú") Noticia = Replace(Noticia ,"Ú","Ú") Noticia = Replace(Noticia ,"ü","ü") Noticia = Replace(Noticia ,"Ü","Ü") Noticia = Replace(Noticia ,"Ç","Ç") Noticia = Replace(Noticia ,"ç","ç") ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("dados/dados.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!" ' Redireciona após 5 segundos response.write "<br><br>Vc será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>" %></span></font>
  11. W. Sales

    Editar enquete / atualizar?

    Oi Galeria estou tentando criar um pagina editar as perguntas da enquete porem não to conseguindo alguem pode dar uma ajuda to usando o sistema de enquete BR Enquete V.1 - do Bruno Linhares. Essa código aqui é da pagina de adicionar: admin-add.asp <form name="frmNewWeeklyPoll" method="post" action="br_enquete_adicionar.asp" onSubmit="return CheckPollForm();"> <table width="975" cellspacing="0" cellpadding="0" align="center" height="160" bgcolor="#ffffff"> <tr> <td height="2"> <h2> Adicionar nova enquete</h2> <table width="100%" border="0" align="center" height="23"> <tr align="left"> <td colspan="2" class="arial_sm2" height="30"><font face="Verdana"> *Campos obrigatórios</font></td> </tr> <tr> <td align="right" width="28%" height="14"><font face="Verdana">Questão*: </font></td> <td height="14" width="72%"> <font face="Verdana"> <input type="text" size="40" maxlength="150" name="Question"> </font></td> </tr> <tr> <td align="right" height="2" width="28%" class="arial"><font face="Verdana">Opção 1*: </font></td> <td height="2" width="72%"> <font face="Verdana"> <input type="text" size="40" maxlength="50" name="choice1"> </font></td> </tr> <tr> <td align="right" height="2" width="28%" class="arial"><font face="Verdana">Opção 2*: </font></td> <td height="2" width="72%"> <font face="Verdana"> <input type="text" size="40" maxlength="50" name="choice2"> </font></td> </tr> <tr> <td align="right" height="2" width="28%" class="arial"><font face="Verdana">Opção 3 : </font></td> <td height="2" width="72%"> <font face="Verdana"> <input type="text" size="40" maxlength="50" name="choice3"> </font></td> </tr> <tr> <td valign="top" align="right" height="25" width="28%"> </td> <td height="25" width="72%"> <p> <input type="reset" name="Reset" value="Limpar"> <input type="submit" name="Submit" value="Adicionar"> </p></td> </tr> </table> </td> </tr> </table> </form> Pagina: br_enquete_adicionar.asp <% 'Dimensões variáveis Dim adoCon Dim strCon Dim strAccessDB Dim strSQL Dim saryInputChoice(7) Dim blnAddNewPoll blnAddNewPoll = True strInputQuestion = Request.Form("Question") strInputQuestion = Replace(strInputQuestion, "'", "''") For intGetChoiceLoopCounter = 1 To 7 saryInputChoice(intGetChoiceLoopCounter) = Request.Form("choice" & intGetChoiceLoopCounter) saryInputChoice(intGetChoiceLoopCounter) = Replace(saryInputChoice(intGetChoiceLoopCounter), "'", "''") Next If strInputQuestion = "" OR saryInputChoice(1) = "" OR saryInputChoice(2) = "" Then blnAddNewPoll = False If blnAddNewPoll = True Then strAccessDB = "br_enquete_db" Set adoCon = Server.CreateObject("ADODB.Connection") Set adoRec = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB) strSQL = "INSERT INTO br_enquete_dados ( Question, Selection_1, Selection_2, Selection_3, Selection_4, Selection_5, Selection_6, Selection_7 )" strSQL = strSQL & " VALUES" strSQL = strSQL & "('" & strInputQuestion For intSQLChoiceLoopCounter = 1 To 7 strSQL = strSQL & "', '" & saryInputChoice(intSQLChoiceLoopCounter) Next strSQL = strSQL & "');" adoCon.Open strCon adoCon.Execute(strSQL) Set adoCon = Nothing End If %> <html> <head> <!-- BR Enquete V.1 - Desenvolvido por Bruno Linhares - www.brdesign.net --> <title> - Administração - Adicionar nova enquete</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="br_enquete_estilo.css" rel="stylesheet" type="text/css"> <body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#FF0000"> <div align="center"> <h2>Adicionar nova enquete</h2> <p><br> <% If blnAddNewPoll = True Then Response.Write " Enquete criada com sucesso!" Else Response.Write "ERRO! Sua enquete não pôde se criada!<br><br><a href=""JavaScript:history.back(1)"">Tente novamente</a>" End If %>
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.