<% if request.QueryString("id") = "5" then response.Redirect("http://wishreport.com.br/internas_blogs_2.asp?id=5") end if if request.QueryString("id") = "3" then response.Redirect("http://wishreport.com.br/internas_blogs_2.asp?id=3") end if if request.QueryString("id") = "2" then response.Redirect("http://wishreport.com.br/internas_blogs_2.asp?id=2") end if if request.QueryString("id") = "15" then response.Redirect("http://wishreport.com.br/internas_blogs_2.asp?id=15") end if if request.QueryString("id") = "17" then response.Redirect("http://wishreport.com.br/internas_wishcasa.asp?id=17") end if if request.QueryString("id") = "10" then response.Redirect("http://wishreport.com.br/internas_blogs_2.asp?id=10") end if %> <% Session.LCID = 1046 %> <% if request.Form("bt") = "0" then 'Chamando a classe que possui a função incluir que grava no banco de dados dim ag 'INSTÂNCIA A CLASSE set ag = new newsletter 'atribui os valores digitados nos campos àquelas variáveis que criamos na classe. tratasql_injection(ag.nome) = request.Form("nome_news") tratasql_injection(ag.email) = request.Form("email_news") 'Chama o nome da função ag.incluir end if %>
<%=tratasql_injection(nome_colunista)%>
<%=tratasql_injection(subtitulo_colunista)%>
<% 'PAGINAÇÃO 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs_conf_blog_interna_texto.AbsolutePage=intpagina 'Inicia o contador que vai controlar os registros mostrados intrec=0 'essa variável "i" é para o esquema do spry dos comentários!!!! i = 0 'enquanto o contador dos registros mostrados for menor que a quantidade de pagina e não chegar no fim da tabela, continua o enquanto.... While intrec < rs_conf_blog_interna_texto.PageSize and not rs_conf_blog_interna_texto.EOF response.Write "

" response.Write "" & tratasql_injection(rs_conf_blog_interna_texto("TITULO")) & "
" response.Write tratasql_injection(rs_conf_blog_interna_texto("SUBTITULO")) & "
" response.Write "Por: " & tratasql_injection(rs_conf_blog_interna_texto("POR")) response.Write("

Foto: ") & tratasql_injection(rs_conf_blog_interna_texto("CREDITO_FOTO")) & "

" response.Write("

") response.Write tratasql_injection(rs_conf_blog_interna_texto("TEXTO")) response.Write("

") conteudo = tratasql_injection(rs_conf_blog_interna_texto("ID_BLOG_MATERIAS")) %>

<% response.Write("


") rs_conf_blog_interna_texto.movenext intrec=intrec+1 IF rs_conf_blog_interna_texto.EOF then response.write " " END IF Wend %>

<% 'PAGINAÇÃO, CONTA SE AS PAGINAS FOREM MAIOR QUE 1 IF intpagina > 1 then %>    &page=<%=intpagina-1%>"> < Anterior <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,rs_conf_blog_interna_texto.PageCount) <> 0 then %>   <% if request.QueryString("page") = "" or request.QueryString("page") = 1 then 'NÃO MOSTRA A NUMERAÇÃO! else 'NUMERAÇÃO DAS PÁGINAS!!! TotalPages=rs_conf_blog_interna_texto.PageCount PagAtual = Request.QueryString("page") max_n_mostrados = 5 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For c = inicio To final If CInt(c)=CInt(PagAtual) Then Response.Write " [ " & c & " ] " END IF If CInt(c) < CInt(PagAtual) Then %> &page=<%=c%>"> <%=c%> <% END IF If CInt(c) > CInt(PagAtual) Then %> &page=<%=c%>"> <%=c%> <% 'Response.Write "" & i & " " END IF Next END IF %>   &page=<%=intpagina+1%>"> Próximo > <% END IF %>
<% bco_conf_blog_interna_texto.Close Set bco_conf_blog_interna_texto = Nothing %>
Pesquisa personalizada
+ POSTS ANTERIORES


Wishonline Copyright todos os direitos reservados
Av. Brig. Faria Lima, 1306 - 6º andar - Jardim Paulistano - São Paulo
CEP 01451-914 - tel 3093-6900
Política de Privacidade Expediente Comercial
<% 'For b=1 to i 'Response.Write b & "," 'Next %>