<%@ Language=VBScript %> <% option explicit Response.Expires = 0 on error resume next '********************************************************** 'Variablendeklaration dim Result '********************************************************** 'Initialisierung '********************************************************** 'Lokale Prozeduren und Funktionen %>


 


 

 

 

 

 

 

Mail to: Pontiac Power Page, Carlo Bettinelli

 

 

 

Umrechnung Inch in Millimeter

Wert in Inch erfassen:  

<% if Request.Form ("InchBer") ="Berechnen" then Result = Request.Form ("Inch")* 25.4 Response.Write (Request.Form ("Inch")& " Inch" & " * " & "25.4" & " = " & Formatnumber(Result,3,false,false,false) & " mm") end if %>

Umrechnung Millimeter in Inch

Wert in mm erfassen:  

<% if Request.Form ("mmBer") ="Berechnen" then Result = Request.Form ("mm")/ 25.4 Response.Write (Request.Form ("mm")& " mm" & " : " & "25.4" & " = " & Formatnumber(Result,3,false,false,false) & " Inch") end if %>

Umrechnung Cubic Inch in Kubikzentimeter

Wert in Cubic Inch erfassen:  

<% if Request.Form ("ccmBer") ="Berechnen" then Result = Request.Form ("CuInch")* 16.387 Response.Write (Request.Form ("CuInch")& " Cubic Inch" & " : " & "16.387" & " = " & Formatnumber(Result, 3, false, false, false) & " Kubikzentimeter") end if %>