![]() |
|||||||||||
|
|||||||||||
|
Tabiiki işyerinin kurulmasında buranın seçilmesindeki amaç imalatta kullanılacak
ve Zonguldak'tan ahşap mavnalarla getirilecek kok kömürünün nakliyesini
kolay ve ekonomik olarak gerçekleştirmekti. Daha sonraları İstanbul Edirnekapı
ve Demirkapı'da çeşitli nalburiye emtiaları imalatı ile devam eden ve 1950'li
yıllarda Topkapı'da bugün ağır sanayinin bulunduğu , o dönemde ise Mithat
Paşa'nın torunlarının çiftlik arazilerinin bulunduğu mevkide bugünkü Firmamız ,tel sektöründe nihai tüketicinin kullandığı ürünlerin imalatını yapan kuruluşlar arasında , ürün çeşidi en fazla olan kuruluşlardandır. Satışını yaptığımız ürün çeşitlerinin tümü kendi imalatımız olup en son teknoloji ile üretilmektedir. İdealimiz ; Ülkemizde sektörünün en eskilerinden ve ikinci kuşak tarafından ticari ve sınai faaliyetini sürdürebilen ender kuruluşlardan olan işletmemizi , ileri seviyelere ulaştırabilmek ,kaliteden ödün vermeden ,ürün yelpazemizi dahada genişleterek , Avrupa'nın sayılı tel üreticileri arasına girmektir. |
|||||||||||
| <%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'If the session variable is null or does not exsist then increment the counter number
If isEmpty(Session("blnCounterSet")) = True Then
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Set the session variable to true
Session("blnCounterSet") = True
End if
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'HTML output to display the visitor number
Response.Write("Ziyaretçi Sayısı ")
'Display the hit count as text
'Response.Write(lngVisitorNumber)
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write(" |
|||||||||||