Ayuda con un programita

[Chikis]

mi codigo es:

Código:

 <%

'===============================
' Display Menu Form
'-------------------------------
Sub Header_Show()
  Dim sFormTitle: sFormTitle = ""

'-------------------------------
' Header Open Event begin
'Replace {welcomename} amd {logaction} with Username or Login URL
welcomename = DLookup("members","member_first_name","member_id=" & Session("UserID"))
if welcomename <> "" then
  fldwelcome = welcomename
  SetVar "welcomename",welcomename
  SetVar "logaction","Logout"
else
  SetVar "welcomename",""
  SetVar "logaction","Login"
end if
SetVar "Extension","asp"
SetVar "PortalTitle",getConfig("portal_title")

if left(sFileName,7)="Default" then
  setvar "HomeActive","_on"
elseif left(sFileName,5)="Event" then
  setvar "EventsActive","_on"
elseif left(sFileName,4)="Link" then
  setvar "LinksActive","_on"
elseif left(sFileName,6)="AdView" or left(sFileName,11)="Classifieds" then
  setvar "ClassifiedsActive","_on"
elseif left(sFileName,6)="Forums" or left(sFileName,4)="Disc" then
  setvar "DiscussionsActive","_on"
elseif left(sFileName,12)="Registration" then
  setvar "JoinActive","_on"
end if
' Header Open Event end
'-------------------------------

'-------------------------------
' Set URLs
'-------------------------------
  fldField1 = "Welcome {welcomename}!"
  fldField2 = "Login.asp"
'-------------------------------
' Header Show begin
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Header BeforeShow Event begin
' Header BeforeShow Event end
'-------------------------------

'-------------------------------
' Show fields
'-------------------------------
  SetVar "Field1", fldField1
  SetVar "Field2", fldField2
  Parse "FormHeader", False
  
'-------------------------------
' Header Show end
'-------------------------------
End Sub
'===============================


%>