<% Sub processTemplate() Set clsTemplate = New Template With clsTemplate .templateFile = "template/main.template.asp" .AddToken "onLoad", 5, "document.frmProfile.txtName.focus();document.frmProfile.txtName.select();" .AddToken "title.image", 5, "signup.gif" .AddToken "member.ID", 5, "" .AddToken "action", 5, "new" .AddToken "name", 5, "" .AddToken "nric", 5, "" .AddToken "password", 5, "" .AddToken "email", 5, "" .AddToken "occupation", 5, "" .AddToken "status.message", 5, "" .AddToken "member.panel", 5, getMemberPanel("") .AddToken "main.panel", 2, "template/profile.template.asp" .parseTemplateFile End With Set clsTemplate = Nothing End Sub Sub main() Call processTemplate End Sub Call main() %>