<% Response.Buffer = "True" %> <% pageUSERRIGHT = "NoGuest" %> <% pageGROUPRIGHT = "All" %> <% Response.End End If '********************* '********************* function getUserParentType(sUserType,lParentID) dim mSQL,rsRec Set rsRec = Server.CreateObject("ADODB.Recordset") if ucase(sUserType)="DEALER" then mySQL = "SELECT OEMID FROM Dealer WHERE DealerID=" & lParentID else mySQL = "SELECT UserType FROM OEM WHERE OemID=" & lParentID end if rsRec.Open mySQL, dbs If CmdCheckUser.EOF And CmdCheckUser.BOF Then getUserParentType="Guest" else if ucase(sUserType)="DEALER" then Dim lOEMID lOEMID=rsRec.Fields("OEMID") rsRec.Close mySQL = "SELECT UserType FROM OEM WHERE OemID=" & lOEMID rsRec.Open mySQL, dbs If CmdCheckUser.EOF And CmdCheckUser.BOF Then getUserParentType="Guest" else getUserParentType=trim(rsRec.Fields("UserType")) rsRec.Close end if else getUserParentType=trim(rsRec.Fields("UserType")) rsRec.Close end if end if SET rsRec=nothing end function %>

Dealer resources

What's New From Esna

Put our NEW Telephony Office-LinX™ to work for you! Simplify the way your business communicates!

Esnatech provides communication solutions for businesses and people to communicate anytime, anywhere - using any device!