|    Quem Somos    |   Indique este Site   |   Fale Conosco        

  

  
  
 

Procurar por Estado


 

Recomendamos
 


 

EM DESTAQUE NO GUIA

Venha conhecer o FENIX MOTEL no Rio de Janeiro. Aproveite o desconto promocional para os internautas.
    

Venha conhecer o HOTEL SNOB no Rio de Janeiro. Requinte e Privacidade. Aproveite o desconto promocional para os internautas.
  

Venha conhecer o HOTEL SERRANO no Rio de Janeiro. Não deixe de visitar este cantinho do amor. Aproveite: o almoço é grátis.
   

Venha conhecer o HOTEL AMAZONAS no Rio de Janeiro. Suítes com Sauna, Frigobar, Hidromassagem e Garagem
     
   

Sem ter o que fazer ?
 
É só procurar no Estado de sua preferência
    

Dicas para quem vai viajar. Não deixe de conferir...
         
Motel Ilha de Capri   - Em São Paulo, não deixe de conferir - 0800 771 2850
Hotel Eros - Em Pernambuco, linda suíte temática e serviços de primeira qualidade. - (81) 3428-3377 / 3428-2727
Motel Caribe   - Em São Paulo, bom gosto e suítes modernas - (11) 3619-3488
Motel dos Alpes - No Rio Grande Sul, um excelente recanto suíço. - (51) 3339-1399
Tai-Yo Motel - No Paraná, não deixe de visitar este paraíso. Bons momentos de prazer. - (41) 382-3322
Motel Snob - Em Minas Gerais, com decoração moderna, requintada e aconchegante. - (31) 3388-0300
 

 
Quantas vezes você transa por semana?

Não transo
Uma a duas vezes
Duas a três vezes
Três a quatro vezes
Mais de cinco vezes

Votar
resultado parcial...


Erotismo
 

 Copyright © 1999 - 2005 - All Rights Reserved - www.guiafantasy.com.br - Tel.: (21) 2205-1009
Proíbido para menores de 18 anos.
<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "/hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> <% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "/hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> <% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next %>