ASP Razor CodeEngine

				<-- #Include File = "WebMatrix.INC" -->
<SCRIPT RunAt="Server" Language="VBScript">
 Set WAzure	= New WebMatrix
 Set WRPC	= New WebRemote
 Set	WMVX	= New WebWorker
 Set WRazor	= WMVX.WRazorEngine
 Private Sub WRPC_Worker
	WRPC.CreateValue "Post", "Account"
	WRPC.CreateValue "Posr", "ViewModel"
 End Sub
 Private Sub WMVX_InitModel
 Rem WRazor "RazorFile", "ModelName"
	WRazor "AppXRPC", "WAppRPC"
 Set WRPC.WebService = New WAppRPC
	WRazor "AppUser", ""
	WRazor "RazorApp", "WApp"
 End Sub
 Private Sub WApp_InitModel
	WApp.Sign WUser
 End Sub
 Private Sub WUser_InitModel
	WUser "WUCell", WRPC.ValueAs("Account", "Ghost")
 End Sub

dynamic include file "AppUser"
<SCRIPT RunAt="Server" Language="RazorEngine">
@Class WUserModel
 Private WMUser_, WUType_, WUSign_, WUPass_
 Private WUCell_, WUName_, WUNick_, WUMail_
 Private WUSuss_, WUPath_, WU_KEY_
 Public Property Let WDebug(ByVal NewValue)
 Set	WDebug_	= NewValue
	WDebug_.Define vbCrLf& ""
 End Property
 Public Default Sub Define(ByVal Value, ByVal NewValue)
 If Value = "WUCell"	Then WUCell_ = NewValue
 If Value = "WUName"	Then WUName_ = NewValue
 If Value = "WUMail"	Then WUMail_ = NewValue
 End Sub
 Public Property Get WUCell()
	WUCell	= WUCell_
 End Property
 Public Property Get WUName()
	WUName	= WUName_
 End Property
 Public Property Get WUMail()
	WUMail	= WUMail_
 End Property
End Class

dynamic include file "RazorApp"
<SCRIPT RunAt="Server" Language="RazorEngine">
@{
 WUser = New WUserModel;
 WUser.Sign();
 var WUserName = WUser.WUName;
 }
@if(WUser.WUCell == '')
 {
 WRPC.Send2Cell WRPC.RandomKey;
 } else {
 
Hello @WUserName
 }