|
|
This is only a preview of the paper
Click here to register and get the full text.
Existing members click here to login
|
|
|
<% '***************************************************************************** '* Page Name: i_TopNavStd.asp '* System: Navigation '* Function: '* '* Usage: '* '* Global Data: '* '* Arguments / QueryString / Header Data: '* '* Include Files: '* '* '* '* '* '* Calls To: '* '* Functions / Subs '* '* History: '* 19-DEC-2001 EMWR Changed the MDI link to display if user is type 3 or above. '* 08-JAN-2002 Mike Baggett, (cmb) Removed Drop down list for Reporting on Demand and set to direct to ReportingOverview.asp page '* 15-MAR-2002 David Brenner - Disable My Contract's links for user_id 26242 (SAR RP084641) '***************************************************************************** 'Database Connection set SQLconn = server.CreateObject("adodb.connection") SQLconn.Open application("DSNSSI") 'menu flags Response.Write vbNewLine Response.Write "" & vbNewLine '* billto info tn_intBillToID = Shopper.billto_id tn_strUsageCountry = Shopper.country_id 'after this If tn_intBillToID <> "" And tn_intBillToID <> 0 And Not (IsNull(tn_intBillToID)) Then tn_strSQLQuery = "select cb.Company_Name, " tn_strSQLQuery = tn_strSQLQuery & "cb.City, " tn_strSQLQuery = tn_strSQLQuery & "cb.State_ID, " tn_strSQLQuery = tn_strSQLQuery & "cb.Country_ID, cb.Payment_Method_ID " tn_strSQLQuery = tn_strSQLQuery & "from cust_billto cb " tn_strSQLQuery = tn_strSQLQuery & "where cb.billto_no = " & tn_intBillToID Set tn_rsCustBillto = Datasource.Execute(tn_strSQLQuery) tn_intCount = tn_rsCustBillto.Count Else tn_intCount = 0 End If If tn_intCount <> 0 Then tn_strCompanyName = tn_rsCustBillto.Company_Name tn_strCity = tn_rsCustBillto.City tn_strStateID = tn_rsCustBillto.State_ID tn_strCountryID = tn_rsCustBillto.Country_ID End If If Trim(tn_strStateID) <> "" Then tn_DisplayInfo = tn_strCity & ", " & tn_strStateID & " " & tn_strCountryID Else tn_DisplayInfo = tn_strCity & " " & tn_strCountryID End If If tn_rsCustBillto.Payment_Method_ID = "CRCD" Then tn_DisplayInfo = "Credit Card Account" End If Set tn_rsCustBillto = Nothing '* Check for and configure the logo for the user tn_blnUseLogo = false If IsNull(objAUO("Logo_Filename")) Then tn_strLogoFilename = "" Else tn_strLogoFilename = CStr(objAUO("Logo_Filename")) tn_strLogoFilename = "/images/logos/" + tn_strLogoFileName End If Set tn_objFileStream = Server.CreateObject("Scripting.FileSystemObject") If (tn_objFileStream.FileExists(Server.MapPath("/") & tn_strLogoFilename)) Then tn_blnUseLogo = True End If Set tn_objFileStream = Nothing strUserAgent = Request.ServerVariables("HTTP_USER_AGENT") If InStr(1,strUserAgent,"Netscape6") > 0 Then strBrowser = "NS6" Else strBrowser = "Other" End If 'after this '******************************************************** 'eGain OnLine Help - check if enabled here blnOnHelp = False Set rsHelp = Server.CreateObject("ADODB.Recordset") sSQLOnHelp = "select User_ID from cust_user_online_help where User_ID = " & shopper.user_id set rsOnHelp = server.CreateObject("adodb.recordset") rsOnHelp.Open sSQLOnHelp, SQLconn, adOpenForwardOnly If Not rsOnHelp.EOF Then If rsOnHelp("User_ID") <> "" Then blnOnHelp = True End If End If rsOnHelp.Close If InStr(1, strUserAgent, "MSIE 4.") > 0 Then blnOnHelp = False End If If blnOnHelp Then If UCase(eGainURLCheck) = "SHOP.SOFTWARESPECTRUM.COM" Then strQueue = "PSOLACWAIT" Else strQueue = "PSBETAOLACWAIT" End If %> <% End If '********************************************************%> <%If blnOnHelp Then%> '); <%End If%> <% If strBrowser = "NS6" Then %> <% Else %> <% End If '* B2B customers have their own topnav.
Approximate Word count = 4247
Approximate Pages = 17
(250 words per page double spaced)
|
|
|
|
|
|