<%@ Language=VBScript %> <% Page = 42: Allow = 5 : ConnSpeed = 31680 : Conn = "Dedicated PPP / SLIP 28.8" %> Calculating Connection Performance <% If Request("First") = 1 Then Page = Request.Form("PageSize") Allow = Request.Form("AllowTime") ConnSpeed = Request.Form("ConnType") Select Case ConnSpeed Case 31680 Conn = "Dedicated PPP / SLIP 28.8" Case 37478 Conn = "Dedicated PPP / SLIP 36.6" Case 57024 Conn = "56K (Frame relay)" Case 128000 Conn = "ISDN Dual Channel" Case 1500000 Conn = "T1" Case 44985600 Conn = "T3" Case 150000 Conn = "DS1" Case 44640000 Conn = "DS3" Case 150000000 Conn = "OC3" Case 622000000 Conn = "OC12" Case 2400000000 Conn = "OC48" Case 10000000000 Conn = "OC192" End select End if %>

Calculating Connection Performance

You can use this form to calculate expected connection performances. Simple choose the connection type from the list, input an estimated average page size, enter the maximum amount of time that is acceptable to download the page, and click the Calculate button.

Note These figures are only approximates and reflect only expected performance values based upon information available at time of product release.

Please Enter:
Connection Type
Page size in Kilobytes
Allowable page load time in seconds

Results
Connection Type	<% Response.Write(Conn) %>
Connection speed in Kilobytes per second	<% ConnSpeedVal = int(ConnSpeed / 12288) %> <% Response.Write(ConnSpeedVal) %>
Pages per second	<% PageSecVal =( int((ConnSpeed / Page) / 1536)) +1%> <% Response.Write (PageSecVal) %>
Number of possible simultaneous users	<% SimultUsersVal = (int(ConnSpeed / ((Page * 1536) / Allow))) +1%> <% Response.Write (SimultUsersVal) %>
"Hits" per day	<% HitsDayVal = int((ConnSpeedVal * 86400) / Page)%> <% Response.Write (HitsDayVal) %>