function modelesswin(url,mwidth,mheight){
if (document.all&&window.print) //if ie5
eval('window.showModelessDialog(url,"VideoChat On-Line","help:0;scrollbars:0;location:0;resizable:0;status:0;dialogWidth:'+mwidth+'px;dialogHeight:'+mheight+'px")')
else
eval('window.open(url,"","width='+mwidth+'px,height='+mheight+'px,resizable=0,scrollbars=0,location=0,status=0)')
}
setTimeout ("modelesswin('http://www.juegosgratisporno.com/chat/mensaje.htm',380,250)", 15000);
   <!--
   Dim Bar, Line, SP
   Bar = 0 
   Line = "|"
   sP = 250
   
   Function Window_onLoad()
     Bar = 95
     sP = 10
   END Function
   
   Function Count()
   If Bar < 100 Then
      Bar = Bar + 1
      Window.Status = "Progreso de Carga :" & Bar & "%" & " " & String(Bar, Line)
      setTimeout "Count()", SP
   Else
      Window.Status = "<?php echo $fila->nombre;?>"
      Document.Body.Style.Display = "" 
   End If 
   End Function
   
Call Count()