<%@ Language="vbscript"%> EuSei.com - Cartoons virtuais
   

     
<%If Len(Trim(Application("QuantosAgora"))) = 1 Then%> <%=Application("QuantosAgora")%> visitante On-Line. <%Else%> <%=Application("QuantosAgora")%> visitantes On-Line. <%End If%> <% dim meses(12) meses(1)="Janeiro" meses(2)="Fevereiro" meses(3)="Março" meses(4)="Abril" meses(5)="Maio" meses(6)="Junho" meses(7)="Julho" meses(8)="Agosto" meses(9)="Setembro" meses(10)="Outubro" meses(11)="Novembro" meses(12)="dezembro" dim semana(7) semana(1) ="Domingo" semana(2) ="2ª Feira" semana(3) ="3ª Feira" semana(4) ="4ª Feira" semana(5) ="5ª Feira" semana(6) ="6ª Feira" semana(7) ="Sábado" sem = weekday(date) dia = day(date) mes = month(date) ano = year(date) function diadomes(d) nc = len(dia) if nc < 2 then diadomes = 0&dia else diadomes = dia end if end function data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano %>  <%=data%>
Serviços

 ● Anedotas e humor

 ● Astrologia e horóscopos

 ● Empregos em Portugal

 ● E-mail gratis

 ● Forum Miminhos   Novo

 ● Miminhos   Novo

 ● Paginas pessoais grátis

 ● Pesquisa Nacional

 ● Pesquisa Mundial

 
On Line

 ● Jornais

 ● Cartoons virtuais

 ● Encontros

 ● Empregos no Brasil

 ● Empregos em Portugal

 ● Jogos

 ● Postais virtuais

 ● Radios on line

 ● Super chat

 

<% If Request.Querystring("record") <> "" Then msql = ("SELECT subjectID, imageName, " & "subjectID FROM [postcard]" & "ORDER BY subjectID ASC;") Set RS=Conn.Execute(msql) coluna = 0 Linha = 1 conta = 0 minimo = CSng(Request.QueryString("conta")) maximo = CSng(Request.QueryString("conta") + 9) Do While Not RS.EOF If Request.QueryString("record") = RS("subjectID") then conta = conta + 1 If conta >= minimo and conta <= maximo then coluna = coluna + 1 If coluna = 4 then coluna = 1 linha = Linha + 1 End If %> <%If coluna = 1 and linha < 4 then %> <%End If %> <%If coluna = 2 then %> <%End If %> <%If coluna = 3 then %> <%End If %> <% End If End If RS.MoveNext Loop RS.Close Set RS = Nothing %> <%End If%>
" width="150" height="150" align="center"> " width="150" height="150" align="center"> " width="150" height="150" align="center">

 

<%If (Request.QueryString("conta") - 9) < 0 then%> <%Else%> &conta=<%=(Request.QueryString("conta") - 9)%>" dynamicanimation="fpAnimformatRolloverFP1" fprolloverstyle="font-family: Arial; color: #0000FF; font-weight: bold" onmouseover="rollIn(this)" onmouseout="rollOut(this)" language="Javascript1.2" style="text-decoration: none"> Anteriores   <%End If%>      <%If conta <= maximo then%> <%Else%> &conta=<%=(Request.QueryString("conta") + 9)%>" style="text-decoration: none" dynamicanimation="fpAnimformatRolloverFP1" fprolloverstyle="font-family: Arial; color: #0000FF; font-weight: bold" onmouseover="rollIn(this)" onmouseout="rollOut(this)" language="Javascript1.2">Proximos

 

Pagina Principal



<% End If %>


EuSei.com Rede de Banners

Para algum problema contactar: webmaster@mail.eusei.com
       
EuSei.com All rights reserved.© 1999 - 2007