<html>
<head>
<title>Beispiel</title>
<script language="VBScript">
<!--
Function Display_Project
Dim ocRM, oProject
Set ocRM = window.external
Set oProject = ocRM.CurrentProject
document.write oProject.Name
Set oProject = Nothing
Set ocRM = Nothing
End Function
//-->
</script>
</head>
<body>
<h1>Aktuelles Projekt:</h1>
<p><script language="VBScript">Display_Project</script></p>
</body>
</html>