<%@ LANGUAGE="VBScript" %>
<%
If IsEmpty(Request("blm_position")) Then
blm_position=1
Else
blm_position=CInt(Request("blm_position"))
End If
If IsEmpty(Request("days")) Then
days=1
Else
days=CInt(Request("days"))
End If
If IsEmpty(Request("height")) Then
height=300
Else
height=CInt(Request("height"))
End If
If IsEmpty(Request("width")) Then
width=300
Else
width=CInt(Request("width"))
End If
seed=-(second(now())+60*minute(now())+3600*hour(now())+3600*24*day(now()))
Dummy=CStr(CLng(100000.*rnd(seed)))
%>
Radiation Dose