Script para auto ajustar a página

<%@LANGUAGE="VBSCRIPT"%>
<%
ScreenWidth=Request.QueryString("ScreenWidth")
ScreenHeight=Request.QueryString("ScreenHeight")
ScreenSize=Request.QueryString("ScreenSize")

if ScreenSize = "" then
   Response.Write("<Script Language=Javascript>")
   Response.write("document.writeln('<FORM name=FormScreen>');")
   Response.write("document.writeln('<input type=hidden name=ScreenWidth  value=' + screen.width  + '>');")
   Response.write("document.writeln('<input type=hidden name=ScreenHeight value=' + screen.height + '>');")
   Response.write("document.writeln('<input type=hidden name=ScreenSize   value=OK>');")
   Response.write("document.writeln('</FORM>');")
   Response.write("FormScreen.submit();")
   Response.write("</Script>")
end if 

Function ajusta_tela(valor)

   if (ScreenWidth / 1024) <= (ScreenHeight / 768) then
      fator = ScreenWidth / 1024
   else
      fator = ScreenHeight / 768
   end if

   ajusta_tela = int(valor * fator)

end Function
%>

<%
String largura  ="document.write (screen.width)";
String altura = "document.write (screen.height)";
out.println("<script language=javascript>");
out.println(largura);
out.println(altura);
out.println("</script>");

%>