<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim GOraCn Dim GSysCn Dim GOracle Sub dbconnect() on error resume next set GOraCn = Server.CreateObject("ADODB.Connection") GOraCn.Open "dsn=item_info;" if err.number <> 0 then Response.Write(err.Description):Response.End set GSysCn = Server.CreateObject("ADODB.Connection") GSysCn.Open "dsn=system;" if err.number <> 0 then Response.Write(err.Description):Response.End End sub sub dbclose() GOraCn.Close GSysCn.Close end sub Function RunQuery(SqlQuery) set RunQuery = GOraCn.Execute(SqlQuery) End Function Function SysRunQuery(SqlQuery) on error resume next set SysRunQuery = GSysCn.Execute(SqlQuery) if err.number <> 0 then Response.Write(err.Description) Response.End end if end function Sub dbconnectOracle() set GOracle = Server.CreateObject("ADODB.Connection") GOracle.Open "DSN=ERPPP;UID=TCI1;SERVER=ERPPP;PASSWORD=TCI1;" '"Provider=MSDASQL.1;Password=b2b;Persist Security Info=True;User ID=b2b;Data Source=tci1b2b;Extended Properties=""DSN=tci1b2b;UID=b2b;SERVER=tci1;"";User Id=b2b;PASSWORD=b2b;" End sub Function RunQueryOracle(SqlQuery) set RunQueryOracle = GOracle.Execute(SqlQuery) End Function sub dbcloseoRACLE() GOracle.Close end sub Function PutSelectActionv3Oracle(Fname, Cname, Sname, LQuery, rsEdit, FId, Action, strval) Dim rsbrand Response.Write("") End Function %> <%call dbconnectOracle%> Taitron Components, Inc. <%'First Graphic%>
<%'Horizontal Menu%>
Home Products Investors About Us Sales Vmi CDS/WOE Inventory Forms
Sales & Support  
WELCOME to the TAITRON Sales Room.
Here you will find the information on the following:

  Worldwide Locations    US Locations
State <%sql = "SELECT ' Choose a state..' STATE FROM DUAL UNION ALL SELECT DISTINCT STATE FROM TCI1.TCI_WEB_SALES_INFO ORDER BY STATE" call PutSelectActionv3Oracle("STATE", "STATE", "STATE", sql, rsEdit, 1, "ONCHANGE='frmState.submit()'", " Choose a state..")%>


Our team of professionals are there for you, Please give us a call...

  US Authorized Distributors
  World Authorized Distributors
  Sales Representatives
  Outside Sales
  Inside Sales
  About Us
  Corporate Overview
  Management Team
  Worldwide Offices
Taitron Components, Inc. 2014