<% '******************************************************************************* '* XUD Copyright 1995-2005 XCENT - www.xcent.com * '* XUD is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* If gbEnabled Then OpenDBConn If gbShowNotLoginOnMain Then If IsUserLoggedIn Then bMainDisplay = True Else bMainDisplay = False End If Else bMainDisplay = True End If DoPageHeader TableHead If False Then LoadUserSettings Response.Write "gsLoginKey:" & gsLoginKey & "
" Response.Write "gsUserName:" & gsUserName & "
" Response.Write "glUserID:" & glUserID & "
" Response.Write "gsUserEmail:" & gsUserEmail & "
" Response.Write "gsUserCurrency:" & gsUserCurrency & "
" End If ShowMainDisplay ShowSystemsDisplay TableFoot DoPageFooter CloseDBConn Else Response.Redirect "XUDDisabled.asp" End If Sub ShowMainDisplay If bMainDisplay Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\XUD.htm")) Else sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\XUDNotLogin.htm")) End If sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~AUC~", gsAUCURL) sFile = Replace(sFile, "~CAD~", gsCADURL) sFile = Replace(sFile, "~NP~", gsNPURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%AUC%", gsAUCURL) sFile = Replace(sFile, "%CAD%", gsCADURL) sFile = Replace(sFile, "%NP%", gsNPURL) sFile = Replace(sFile, "%MSG%", gsMSGURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End Sub Sub ShowSystemsDisplay If gbShowSystemsOnMain And bMainDisplay Then If Len(Trim(gsAUCURL)) > 0 Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\AUC.htm")) sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~AUC~", gsAUCURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%AUC%", gsAUCURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End If If Len(Trim(gsCADURL)) > 0 Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\CAD.htm")) sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~CAD~", gsCADURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%CAD%", gsCADURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End If If Len(Trim(gsDIRURL)) > 0 Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\DIR.htm")) sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~DIR~", gsDIRURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%DIR%", gsDIRURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End If If Len(Trim(gsMSGURL)) > 0 Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\MSG.htm")) sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~MSG~", gsMSGURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%MSG%", gsMSGURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End If If Len(Trim(gsNPURL)) > 0 Then sFile = ReadFile(Server.MapPath(".\XUDHtmlTxt\NP.htm")) sFile = Replace(sFile, "~URL~", gsXUDURL) sFile = Replace(sFile, "~NP~", gsNPURL) sFile = Replace(sFile, "%URL%", gsXUDURL) sFile = Replace(sFile, "%NP%", gsNPURL) sFile = Replace(sFile, "%DATETIME%", DispShortDateTime(Now)) Response.Write sFile End If End If End Sub Sub TableHead Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" & gsTabTextOpen & GLS_MainTabTitle & gsTabTextClose & "

" Response.Write "" Response.Write "" Response.Write "

" End Sub Sub TableFoot Response.Write "

" ShowNavBar End Sub %>