<% DBQ="server=127.0.0.1; driver=MySQL; uid=root; password=cmbadmin; db=cmbcomp" DBQparts="server=127.0.0.1; driver=MySQL; uid=root; password=cmbadmin; db=cmbcomp" PDFtaker="Provider=SQLOLEDB; Data Source=192.168.1.157; Initial Catalog=GCS; User ID=sa; Password=sagcs; Network Library=dbmssocn" %> <% dim anArray(300) dim anArray2(300) dim partArray(3,300) mydate=year(date) & "-" & right("0" & month(date),2) & "-" & right("0" & day(date),2) 'on error resume next mypart = trim(Request("part") & "") mypart = replace(mypart,"%","") mypart = replace(mypart,"\","") mypart = replace(mypart,"/","") mypart = replace(mypart,"-","") mypart = replace(mypart,"*","") mypart = replace(mypart,"'","") mypart = replace(mypart,"""","") mypart = split(mypart & chr(13) & chr(10),chr(13) & chr(10)) InvalidParts = "" set cnn=Server.CreateObject("ADODB.Connection") cnn.Open PDFTaker mycount = 0 ' Main Array --> SE + added others searchcounter = 0 ' Doom + CMB stock array for j=0 to ubound(mypart)-1 lastpartsearched = mypart(j) if len(lastpartsearched) > 2 then ' dim httpSiliconExpert ' set httpSiliconExpert = Server.CreateObject("AbsoluteHttp.Conn") ' ' httpSiliconExpert.AllowRedirect = false ' status = httpSiliconExpert.SendRequestURL(httpSiliconExpert.HTTP_GET,"http://www.siliconexpert.com/SEWS/Ws?invoke=getPart&partNumber=" & lastpartsearched & "&key=cmbpartaccess") ' status = httpSiliconExpert.SendRequestURL(httpSiliconExpert.HTTP_GET,"http://www.siliconexpert.com/se_pn/PartSearch?invoke=getPart&partNumber=" & lastpartsearched & "&userName=gold&password=goldsemi1") ' ' 'Response.Write "status= " & status ' 'Response.Write httpSiliconExpert.ResponseBody ' 'Response.End ' ' ' if status = 0 then ' ' html = httpSiliconExpert.ResponseBody ' ' 'cmbpart msgarray = split(html,"") msgarray = split(html,"") ' 'Response.Write ubound(msgarray) ' 'Response.End ' ' ' for i=0 to ubound(msgarray) '(1st entry, last entry of XML) ' ' ' ' ' partArray(0,mycount) = replace(FindPattern(msgarray(i),"().*?(?=<.part_number>)",""),"","") ' partArray(1,mycount) = replace(FindPattern(msgarray(i),"().*?(?=<.man_name>)",""),"","") ' partArray(2,mycount) = replace(FindPattern(msgarray(i),"().*?(?=<.description>)",""),"","") ' partArray(3,mycount) = replace(FindPattern(msgarray(i),"().*?(?=<.data_sheet>)",""),"","") ' ' ' '''''''''adam ' if len(partArray(0,mycount)) >= 2 and len(partArray(1,mycount)) > 2 and len(partArray(2,mycount)) > 2 and len(partArray(3,mycount)) >= 7 then ' ' mysql="select search from datasheets where search = '" & replace(replace(replace(replace(partArray(0,mycount),"'","`"),"\",""),"-",""),"/","") & "'" ' dim objRS ' dim irecordcount ' irecordcount = 0 ' set objRS = server.createobject("ADODB.Recordset") ' objRS.Open mysql, PDFTaker ' do while not objrs.eof ' irecordcount = irecordcount + 1 ' objrs.movenext ' loop ' ' if irecordcount = 0 then ' MySQL = "INSERT INTO datasheets (search,part,mfg,description,link) VALUES ('" & replace(replace(replace(replace(partArray(0,mycount),"'","`"),"\",""),"-",""),"/","") & "','" & replace(replace(partArray(0,mycount),"'","`"),",",":") & "','" & replace(replace(partArray(1,mycount),"'","`"),",",":") & "','" & replace(replace(partArray(2,mycount),"'","`"),",",":") & "','" & replace(replace(partArray(3,mycount),"'","`"),",",":") & "')" ' 'Response.Write mySQL ' 'response.end ' set rs=cnn.Execute(mySQL,,adCmdText) ' end if ' ' ' end if '''''''''''''adam ' mycount = mycount + 1 ' ' next ' ' ' end if 'cnn.close '----------- Get Part Numbers INFO -------------------------------------------------------------------- 'CMB STOCK FILE --------------------------------------------------------------------------------------- set cnn=Server.CreateObject("ADODB.Connection") cnn.Open PDFTaker 'MySQL = "Select distinct part,mfg,description,link from partlink where part like '" & lastpartsearched & "%' order by part,mfg" MySQL = "Select distinct part,mfg,description,link from datasheets where part like '" & lastpartsearched & "%' order by part,mfg" 'MySQL = "Select search,mfg,link from partlink where search like 'BAV99%' order by search,mfg" 'Response.Write mySQL 'response.end set rs=cnn.Execute(mySQL,,adCmdText) do while not rs.eof anArray(searchcounter)= rs("part") & "" anArray2(searchcounter)= rs("mfg") & "" search = rs("part")& "" mfg = rs("mfg")& "" partArray(0,searchcounter) = rs("part") & "" partArray(1,searchcounter) = rs("mfg") &"" partArray(2,searchcounter) = rs("description") &"" partArray(3,searchcounter) = rs("link") &"" 'Response.Write "
" & searchcounter & ") " & rs("part") searchcounter = searchcounter + 1 rs.movenext loop cnn.close 'DOOM STOCK -------------------------------------------------------------------------------------------- 'Response.Write "

Doom.com" ''' dim httpDoom ''' ''' set httpDoom = Server.CreateObject("AbsoluteHttp.Conn") ''' httpDoom.AllowRedirect = true ''' ''' status = httpDoom.SendRequestURL(httpDoom.HTTP_GET,"http://beta.doom.com/xml/xml_sic.php?v=0&p=" & lastpartsearched) ''' ''' if status = 0 then ''' ''' html = httpDoom.ResponseBody ''' msgarray = split(lcase(html),"") ''' ''' for i=1 to ubound(msgarray) ''' ''' anArray(searchcounter)= ucase(FindPattern(msgarray(i),"().*?(?=)","part")) ''' anArray2(searchcounter)= ucase(FindPattern(msgarray(i),"().*?(?=)","mfg")) ''' 'Response.Write "
" & searchcounter & ") " & ucase(FindPattern(msgarray(i),"().*?(?=)","part")) ''' ''' searchcounter = searchcounter + 1 ''' ''' next ''' end if end if next 'end of multi search loop set rs= nothing set cnn=nothing set rsparts= nothing set cnnparts=nothing mycount = 0 '----------- remove duplicates INFO --------------------------------------------------------------------END 'for i=0 to unbound(partArray) ' unique = true ' dup_part = anArray(i) ' dup_mfg = AnArray2(i) ' ' if len(dup_part) > 1 then ' ' for j=0 to searchcounter ' if dup_part = partArray(0,j)then ' unique = false '' unique = true ' end if ' next ' ' if unique = true then ' partArray(0,searchcounter) = dup_part & "" ' partArray(1,searchcounter) = dup_mfg & "" ' mycount = mycount +1 ' end if ' ' end if 'next '----------- Sort INFO -------------------------------------------------------------------- 'none yet '----------------------------------------------------------------------------------------------- %> <%=partArray(0,1) & " - " & partArray(1,1) & " : " & partArray(2,1)%>
 
 
   
  For more information call (631) 630-6511 or email info@gcsemi.com


<% if Request("btnsearch") & "" = "Search Inventory" or Request("btnleftnav" & "" ) = "Search Inventory" then %>

Part Search  

UL Certified DistributorGold Coast Semiconductor is ISO-9001:2000 and AS9120:2002 certified!

Please Click the Part Number to Order Online / Send RFQ, or call (631) 630-6511 to speak directly with one of our sales representatives.
Looking for alternative parts to save money? Give us a call and let us find them for you.

<% '----------------------- write parts --------------------------- for i=0 to searchcounter 'ubound(partArray) if len(partArray(0,i)) >2 then Response.Write "" Response.Write "" Response.Write "" Response.Write "" if len(partArray(3,i)) > 4 then 'replaced with view.aspx code ./ViewDatasheet/view.aspx?SEARCH=replace(replace(partArray(0,i),"'","`"),",",":") & ";" & replace(replace(partArray(1,i),"'","`"),",",":") Response.write "" 'Response.Write "" else Response.Write "" end if if len(partarray(2,i)) > 1 then Response.Write "" else Response.Write "" end if Response.Write "" end if next dim newcnt dim bFound bFound=false for newcnt=0 to mycount if ucase(trim(part))=ucase(trim(partArray(0,newcnt))) then bFound=true exit for end if next ' bfound=false if bFound=false then part=ucase(part) Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "" if len(part) > 4 then Response.Write "" else Response.Write "" end if Response.Write "" Response.Write "" searchcounter = searchcounter + 1 end if %>
Results for Part Number(s)
<% msg = "" dim part for k=0 to ubound(mypart)-1 msg= msg & " " & mypart(k) & " -" part=mypart(k) next Response.Write(mid(msg,1,len(msg)-2)) %>
Part Number
Mfg
Quantity
Price
Availability
RFQ
Datasheet
" & partArray(0,i) & "
" & partArray(1,i) & "
Call
Call
Available
Click here to request a quote for " & partArray(0,i) & "
Description:           " & partArray(2,i) & "
            
" & part & " 
Call
Call
Available
Click here to request a quote for " & part & "
  adam holden
            
*Minimum order of $150.00
Found <%=mycount%> Electronic Parts.

<% Function FindPattern(str, pattern,field) ' dim tmp Dim regEx, Match, Matches ' Create variable. Set regEx = New RegExp ' Create regular expression. regEx.Pattern = pattern ' Set pattern. regEx.IgnoreCase = True ' Set case insensitivity. ' regEx.Global = true ' match all strings Set Matches = regEx.Execute(str) ' Execute search. For each match in Matches x = replace(match.value,"<" & field & ">","") x = replace(x,"","") FindPattern = x Next End Function %>
Inventory Search  
<% end if %>

UL Certified DistributorGold Coast Semiconductor is ISO-9001:2000 and AS9120:2002 certified!

Gold Coast Semiconductor has an inventory of over 50,000 line items. To see if we have stock in the part number that you need, use 
our Part Search capability. It's the most flexible and accurate system in the industry. You'll get a search 
result even if you have only a partial part number.

Untitled Document

Home| Products & Services | Locations | Languages | Contact Us | Site Map
Copyright © 2007 Gold Coast Semiconductor

 

 

 



Privacy Notice: Any and all information collected by Gold Coast Semiconductor will be used solely for the purposes of getting accurate information about the product, obtaining pricing information and contact with the requestor for followup and information delivery. Gold Coast Semiconductor does not sell customer information or specifications to any third party orginizations.

A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U3 | V3 | W3 | X3 | Y3 | Z3 | 13 | 23 | 33 | 34 | 53 | 63 | 73 | 83 | 93 | A31 | B31 | C31 | D31 | E31 | F31 | G31 | H31 | I31 | I32 | J31 | K31 | L31 | M31 | N31 | O31 | P31 | Q31 | R31 | S31 | T31 | U31 | V31 | W31 | X31 | Y31 | Z31 | 131 | 231 | 331 | 431 | 531 | 631 | 731 | 831 | 931 | Q31 | R31 | S31 | T31 | U31 | V31 | W31 | X31 | Y31 | Z31 | 131 | A311 | B311 | C311 | D311 | E311 | F311 | G311 | H311 | I311 | I312 | J311 | K311 | 231

 






























PartSearchToolV2.2