<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "index.html" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_delta_vb_STRING Recordset1.Source = "SELECT * FROM tbl_cards ORDER BY item_catagory ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Delta Imports - Products

Products

<% Dim accessLevels Function InArray(a, str) Dim idx For idx = 0 to UBound(a) If CStr(a(idx)) = CStr(str) Then InArray = idx : Exit Function Next InArray = -1 'Not found, set to -1 End Function %> <% accessLevels = Array("1", "2", "3", "4") If InArray(accessLevels, Session("MM_UserAuthorization")) > -1 Then %>

Log out

<% End If %> <% accessLevels = Array("1", "2", "3", "4") If InArray(accessLevels, Session("MM_UserAuthorization")) = -1 Then %> Login

<% End If %>

Catagorys

SCSI Cards
Serial Cards
Parallel
USB Cards, Hubs and COMBO's
PCI Controller Cards
ISA Card
PCMCIA Cards
Fans
Miscellaneous
Express Card/Cardbus/PCMCIA Products
PCI Express Card

<% Recordset1.Close() Set Recordset1 = Nothing %>