<% Dim remoteAddress remoteAddress = Request.ServerVariables("REMOTE_ADDR") if len(Request.QueryString)= 0 Then if len(Request.Form("userID"))=0 then msg = "Please enter a UserID compatible with your language" else ' let's check Set DBWebServer = createObject("DBWorksWeb.DataServer") noMoreLicenses = DBWebServer.maxNumberOfUsersReached() if noMoreLicenses then msg = "No licenses available for login" Set DBWebServer = nothing else Dim userId Dim password if len(Request.QueryString)>0 Then userId = Request.QueryString("userID") password = Request.QueryString("password") else userId = Request.Form("userID") password = Request.Form("password") end If loginResult = DBWebServer.checkLogin2(cstr(userId),cstr(password)) Set DBWebServer = Nothing if len(loginResult) > 0 then msg = "Welcome, " & userID & "
Loading client..." Response.Redirect "tabella.asp?session=" & loginResult else msg = "User not recognized. Please retry." end if end if end if Else ' message for first time Msg = "Login to DBWorksWebViewer" Set DBWebServer = createObject("DBWorksWeb.DataServer") noMoreLicenses = DBWebServer.maxNumberOfUsersReached() if noMoreLicenses then msg = "No licenses available for login" Set DBWebServer = nothing else loginResult = DBWebServer.checkLogin2(Request.QueryString("userID"),Request.QueryString("password")) Set DBWebServer = nothing if len(loginResult) > 0 then on error resume next projectUid = Request.QueryString("projectUID") if len(projectUid) > 0 then set wvss = CreateObject("WebViewerStaticServer.LicensesManager") wvss.assignProjects CStr(Request.QueryString("userID")),CStr(projectUid) set wvss = nothing end if on error goto 0 msg = "Welcome, " & userID & "
Loading client..." Response.Redirect "tabella.asp?session=" & loginResult else msg = "User not recognized. Please retry." end if on error goto 0 Set DBWebServer = nothing end if end if %>
 

 

<% Set DBWebServer = createObject("DBWorksWeb.DataServer") if DBWebServer.maxNumberOfUsersReached() Then Response.write "

Max number of users reached

" Response.write "

Please refresh this page until this message disappears, or contact the WebViewer Administrator for further information

" else Response.write "

" & Msg & "

" end if Set DBWebServer = nothing %>

If you are vieweing this page using Internet Explorer 8 in order to run Web Client you need to uncheck the Advanced Internet Option that enables memory protection as displayed in the image below.

Web Client does not perform any illegal operation, but ie 8 may detect it as a false positive threat, blocking the software.

Go back to the login page