<%@ LANGUAGE="VBSCRIPT" %> <% Dim strEmail, intLoginRequest, _ strPassword, strMainPrompt, intPassChk If Request.ServerVariables("REQUEST_METHOD") = "POST" Then strEmail = Request.Form("Email") strPassword = Request.Form("Password") CheckPassword Else strMainPrompt = "Please enter your email address and password." End If %> Integrated Systems Technology - Distribution Software, Internet Solutions 301 Moved

Home | Contact Us | Support Login
  Home
 
 Solutions
  NewVision Software
  Intrust Software
  e-Business
  Mobile Solutions
  VMI Solutions
  Business Intelligence
  Data Warehousing
  Warehouse Solutions
 Services
  Education
  Project Management
  Customer Support
  Web Services
  Network Services
  Web Hosting Solutions
 News & Events
  New Products
  See us at
  In the News
   
 

Integrated Systems Technology


 

 

IST USERS ONLINE

 

Attn: IST Users:

If you are on the phone with IST support they can create your login for you over the phone
or simply click here to re-register/register.

Please enter email address :
Please enter your password :

       

 

       Forgot your password ? Click here for help
 
 

 


 Copyright © 2006 Integrated Systems Technology, Inc. All Rights Reserved | Terms of use | Privacy Policy | 800-633-5583
<% Sub CheckPassword() on error resume next 'Declare Variables Dim objLogin, intPassResult, intCheckResult, rstLogin 'Instantiate COM Object Set objLogin = Server.CreateObject("ISTweb.ISTusers") If Err.Number <> 0 Then strMainPrompt = err.number & err.description & " An error occurred while trying to create an instance of the Users component. Please try to log in again later." Exit Sub End If 'Check password and retrieve numerical confirmation. 0 for failure, non-0 for success intPassResult = CLng(objLogin.CheckPassword(Application("DSN"), strEmail, strPassword)) If Err.Number <> 0 Then 'strMainPrompt = "An error occurred (" & Hex(Err.Number) & ") while checking the database. Please try to log in again later." strMainPrompt = Hex(Err.Number) & Err.Description Exit Sub End If 'If password is correct, then take appropriate action If intPassResult = 1 Then 'Set session variable for authentication Session("UserID") = strEmail 'Set session variables for user rstLogin = objLogin.GetUserInfo(Application("DSN"), strEmail) Session("CompanyName") = Trim(rstLogin("companyname")) Session("UserApplication") = Trim(rstLogin("userapplication")) Session("AccountNo") = Trim(rstLogin("accountno")) 'Redirect to proper page based on User Application If Session("UserApplication") = "Navision" Then Session("SearchDatabase") = "NAVdocs" Session("DocPath") = "navdocs" Response.Redirect("navusers.asp") Else Session("SearchDatabase") = "IMSdocs" Session("DocPath") = "imsdocs" Response.Redirect("imsusers.asp") End If 'Prepare error message for display because password is incorrect Else strMainPrompt = "You did not provide the correct password for this user. Please check your password and try again." End If End Sub %>