Glemte da vist lige den lille kode
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<form name="form1" method="post" action="/tapecalc.asp">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150">Thicknes</td>
<td width="150"><input name="Thick" type="text" id="Thick" value="1"></td>
</tr>
<tr>
<td>Outer Diameter </td>
<td><input name="OutDia" type="text" id="OutDia" value="50"></td>
</tr>
<tr>
<td>Inner Diameter </td>
<td><input name="InDia" type="text" id="InDia" value="40"></td>
</tr>
<tr>
<td><input name="Calc" type="submit" id="Calc" value="Calc"></td>
<td><input name="Reset" type="submit" id="Reset" value="Reset"></td>
</tr>
</table>
</form>
<p>
</p>
<p>
<%
Dim Length, OutDia, InDia, Thick, TempLength
Length = 0
OutDia = CDbl(Request.Form("OutDia"))
InDia = CDbl(Request.Form("InDia"))
Thick = CDbl(Request.Form("Thick"))
Do Until OutDia =< InDia
TempLength = OutDia * 3.14
OutDia = OutDia - Thick - Thick
Length = Length + TempLength
TempLength = 0
Response.Write "" & Length & "<br>"
Response.Write "" & OutDia & "<br>"
Response.Write "" & inDia & "<br><br>"
Loop 'Until OutDia > InDia
Response.Write "Total length is " & Length
%>
</p>
</body>
</html>