const DBDATA = 0 ' const DBPREIS = 1 const DBORDER = 2 const DBORDERTEST = 6 const DBLOG = 3 const DBEXTRA = 4 const DBCARTS = 5 const DBSUCHE = 7 'dies sind wichtige globale Variablen, die von main_suche.asp bei den Methodenaufrufen der Suchmaschine verwendet werden: dim dbType, dbPathName, dbMachine, dbAuthMode, dbUID, dbPW, activedb '******************************************************************** '***** nur dbType muss eingestellt werden, um die Content-DB fόr die gesamte Anwendung auszuwδhlen '***** dbType --> Access = 0 (Intranet), FoxPro = 1 (CD), SQL-Server 2000 = 2 (TS5), SQL-Server 2005 = 3 (TS15) '******************************************************************** 'dbAuthMode --> Windows Authentication = 0, SQL Server Auth. = 1, undefiniert = -1 function initDBProps() Dim strLinea, FileObject, Instream, strFile, currentdb, i, j, success success = 0 strFile = Server.MapPath("\dbtype.txt") Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(strFile, 1, true) strLinea = InStream.ReadAll() i = instr(1, strLinea, "dbtype=") if i > 0 then i = instr(1, strLinea, ";") if i > 0 then dbType = mid(strLinea, 8, i - 8) success = 1 end if end if if success = 1 then i = instr(1, strLinea, "currentdb=") if i > 0 then j = instr(i, strLinea, ";") if j > 0 then i = i + 10 activedb = mid(strLinea, i, j - i) success = 1 end if end if end if ' strLinea = left(strLinea, 1) InStream.Close Set InStream = Nothing Set FileObject = Nothing ' dbType = strLinea select case dbType case 0 dbPathName = Application("DBPath") & "bdata" & Session("lang") & "NEU.mdb" 'wird nur fόr Suche benutzt, unten Dateiname NOCH EINMAL!!! dbMachine = "" dbAuthMode = -1 dbUID = "" dbPW = "" case 2 dbPathName = activedb & Session("lang") dbMachine = "localhost" dbAuthMode = 0 dbUID = "" dbPW = "" case 3 dbPathName = activedb & Session("lang") ' dbMachine = "ts15" dbMachine = "213.252.14.38" dbAuthMode = 1 dbUID = "buerklinuser" dbPW = "t2f567hzu9r" end select end function function openConn(db) dim initcatalog 'nur fόr SQLServer relevant, Access nochmal gesonderte Behandlung in Funktion select case db case DBDATA initcatalog = dbPathName case DBORDER initcatalog = "buerklinorder" case DBCARTS initcatalog = "buerklinorder" 'befindet sich im SQLServer in DBORDER case DBLOG initcatalog = "buerklinlog" end select select case dbType 'definiert in includes/func_dbconn.asp case 0 set openConn = openConnAcc(db) 'Intranet case 2 set openConn = openConnSQL2000(initcatalog) 'TS5 case 3 set openConn = openConnSQL2005(initcatalog) 'TS15 end select end function function openConnODBC(dbName) dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "BuerklinWWW" set openConn = conn set conn = nothing end function function openConnSQL2000(InitCat) dim conn, conStr Set conn = Server.CreateObject("ADODB.Connection") if dbAuthMode = 0 then conStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & InitCat & ";Data Source=" & dbMachine else conStr = "Provider=SQLOLEDB.1;UID=" & dbUID & ";PWD=" & dbPW & ";Initial Catalog=" & InitCat & ";Data Source=" & dbMachine end if conn.Open conStr set openConnSQL2000 = conn set conn = nothing end function function openConnSQL2005(InitCat) dim conn, conStr Set conn = Server.CreateObject("ADODB.Connection") if dbAuthMode = 0 then conStr = "Provider=SQLNCLI;Integrated Security=SSPI;Persist Security Info=False;Database=" & InitCat & ";Server=" & dbMachine else conStr = "Provider=SQLNCLI;UID=" & dbUID & ";PWD=" & dbPW & ";Database=" & InitCat & ";Server=" & dbMachine end if conn.Open conStr set openConnSQL2005 = conn set conn = nothing end function function openConnAcc(db) dim conn, conStr Set conn = Server.CreateObject("ADODB.Connection") conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("DBPath") select case db case DBDATA conStr = conStr & "bdata" & Session("lang") & "NEU.mdb" conStr = conStr & ";Mode=Read;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" ' case DBPREIS ' conStr = conStr & "bpreis.mdb" ' conStr = conStr & ";Mode=Read;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" case DBORDER conStr = conStr & "border.mdb" case DBORDERTEST conStr = conStr & "bordertest.mdb" case DBLOG conStr = conStr & "blog.mdb" case DBEXTRA 'no Cache conStr = conStr & "bextra.mdb" case DBCARTS 'no Cache conStr = conStr & "bcarts.mdb" case DBSUCHE conStr = conStr & "buerklin" & ".mdb" conStr = conStr & ";Mode=Read;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" end select ' conStr = conStr & ";Persist Security Info=False" ' conStr = conStr & ";Mode=ReadWrite|Share Deny None;Extended Properties="""";Persist Security Info=False;Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;" ' conn.ConnectionTimeout = 15 ' conn.CommandTimeout = 30 ' conn.CursorLocation = 3 ' conn.CursorType = 3 ' conn.LockType = 3 ' conn.UserName = "Admin" ' conn.Password = "" conn.Open conStr set openConnAcc = conn set conn = nothing end function
| Schnellsuche όber KATALOG! | ||
| - Seite 17 - | ||
| Integrierte | Bestell- | €-Stόckpreis ab | ||
| Schaltungen (IC's) | Nr. | 1 | 10 | 100 |
| XR88C681J PLCC44 | 50 S 3585 | 9,15 | 7,65 | 6,90 |
| XR88C681CJ PLCC44 | 50 S 3583 | 8,35 | 6,95 | 6,25 |
| XR88C681CP/28 PDIP28 | 50 S 2906 | 7,90 | 6,60 | 5,95 |
| XR88C681CP/40 PDIP40 | 50 S 2908 | 8,20 | 6,85 | 6,15 |
| XR2206CP PDIP16 | 50 S 2950 | 3,68 | 2,94 | 2,58 |
| XR2206D SOIC16 | 50 S 2952 | 4, | 3,20 | 2,80 |
| XR2207CP PDIP14 | 50 S 3000 | 2,20 | 1,76 | 1,54 |
| XR2209CP PDIP8 | 50 S 3100 | 2, | 1,60 | 1,40 |
| XR2211ACD SOIC14 | 50 S 3101 | 1,84 | 1,47 | 1,29 |
| XR2211ACP PDIP14 | 50 S 3102 | 1,84 | 1,47 | 1,29 |
| XR2211P PDIP14 | 50 S 3152 | 3,20 | 2,56 | 2,24 |
| XR4151CP PDIP8 | 50 S 3357 | 1,18 | ,94 | ,83 |
| XR4151P PDIP8 | 50 S 3359 | 1,58 | 1,26 | 1,11 |
| XR8038ACP PDIP14 | 50 S 3500 | 2,34 | 1,87 | 1,64 |
| ZH431C1 TO92 | 51 S 1010 | ,76 | ,59 | ,51 |
| ZR431C TO92 | 51 S 1012 | ,42 | ,32 | ,28 |
| ZR431F SOT23 | 51 S 1014 | ,63 | ,48 | ,42 |
| ZR78L05C TO92 | 51 S 1016 | ,38 | ,29 | ,26 |
| ZR78L06C TO92 | 51 S 1020 | ,57 | ,44 | ,38 |
| ZRA124A01 ELINE 3 PIN | 51 S 1024 | 1,04 | ,83 | ,73 |
| ZRA125A02 ELINE 3 PIN | 51 S 1026 | ,90 | ,72 | ,58 |
| ZRA245F01 SOT23 | 51 S 1030 | 1,50 | 1,20 | 1,05 |
| ZRA245Y01 ELINE 2 PIN | 51 S 1032 | 1,23 | ,98 | ,78 |
| ZRC250A01 ELINE 3 PIN | 51 S 1034 | 1,20 | ,96 | ,77 |
| ZRC250A03 ELINE 3 PIN | 51 S 1036 | ,82 | ,65 | ,52 |
| ZRC250F01 SOT23 | 51 S 1038 | 1,17 | ,94 | ,75 |
| ZRC250F02 SOT23 | 51 S 1042 | ,85 | ,68 | ,54 |
| ZRC250N801 SO8 | 51 S 1044 | 1,08 | ,86 | ,76 |
| ZRA250R01 ELINE 3 PIN Reversed | 51 S 1046 | 1,20 | ,96 | ,77 |
| ZSR285C TO92 | 51 S 2052 | ,69 | ,53 | ,46 |
| ZSR285G SOT223 | 51 S 2054 | ,95 | ,76 | ,61 |
| ZSR300C ETO28 | 51 S 2058 | ,69 | ,53 | ,46 |
| ZSR300G SOT223 | 51 S 2060 | ,95 | ,76 | ,61 |
| ZSR330C ETO92 | 51 S 2064 | ,72 | ,58 | ,46 |
| ZSR330G SOT223 | 51 S 2066 | ,95 | ,76 | ,61 |
| ZSR400C TO92 | 51 S 2070 | ,69 | ,53 | ,46 |
| ZSR400G SOT223 | 51 S 2072 | ,95 | ,76 | ,61 |
| ZSR485C TO92 | 51 S 2076 | ,69 | ,53 | ,46 |
| ZSR485G SOT223 | 51 S 2078 | ,95 | ,76 | ,61 |
| ZSR500C TO92 | 51 S 2082 | ,69 | ,53 | ,46 |
| ZSR500G SOT223 | 51 S 2084 | 1, | ,80 | ,64 |
| ZSR520C TO92 | 51 S 2088 | ,69 | ,53 | ,46 |
| ZSR520G SOT223 | 51 S 2090 | ,95 | ,76 | ,61 |
| ZSR570C TO92 | 51 S 2094 | ,69 | ,53 | ,46 |
| ZSR570G SOT223 | 51 S 2096 | ,95 | ,76 | ,61 |
| ZSR600C TO92 | 51 S 2100 | ,69 | ,53 | ,46 |
| ZSR600G SOT223 | 51 S 2102 | ,95 | ,76 | ,61 |
| ZSR700C TO92 | 51 S 2106 | ,69 | ,53 | ,46 |
| ZSR800C TO92 | 51 S 2112 | ,69 | ,53 | ,46 |
| ZSR800G SOT223 | 51 S 2114 | ,95 | ,76 | ,61 |
| ZSR850C TO92 | 51 S 2118 | ,69 | ,53 | ,46 |
| ZSR850G SOT223 | 51 S 2120 | ,95 | ,76 | ,61 |
| ZSR900C TO92 | 51 S 2124 | ,69 | ,53 | ,46 |
| ZSR900G SOT223 | 51 S 2126 | ,95 | ,76 | ,61 |
| ZSR1000C TO92 | 51 S 2130 | ,70 | ,56 | ,45 |
| ZSR1000G SOT223 | 51 S 2132 | ,95 | ,76 | ,61 |
| ZSR1200C TO92 | 51 S 2136 | ,69 | ,53 | ,46 |
| ZSR1200G SOT223 | 51 S 2138 | ,95 | ,76 | ,61 |
| ZXSC300ESTA SOT235 | 51 S 2160 | ,83 | ,66 | ,53 |
| ZXSC310ESTA SOT235 | 51 S 2162 | 1,14 | ,92 | ,73 |
| *Auswahl erweitert bzw. Neuaufnahme | © 1998 - 2006 Bόrklin OHG |