sss
<%
@Language = "VBscript"
%>
<%
'*******************************************************************
' Darkroom Gallery v.1.0
'*******************************************************************
' Copyright (C) 2004 bjawnie.com
'
' This script is freeware specified as follows:
'
' You may modify the script To fit your needs in anyway you like.
' If you wish To redistribute it, non-commercial or commercial, however
' you are obligated To contact the author To get his permission.
'
' All copyright notices regarding bjawnie.com or links To bjawnie.com
' must remain intact in the scripts and in the outputted HTML.
'
' Support can be obtained through our site at bjawnie.com
'*******************************************************************
'*********
' SETTINGS
' -->
dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
PageTitle = "Darkroom Gallery"
ImageDirectory = "image_directory"
ThumbnailHeight = 480
ThumbnailWidth = 640
ItemsPerPage = 1
ItemsHorizontal = 5
' <--
dim TotalItems, CurrentPage
Sub PrintGallery()
CurrentPage = Request.QueryString("page" )
If CurrentPage = "" OR Int(CurrentPage) = 0 Then
CurrentPage = 1
End If
dim StartItem
StartItem = ((CurrentPage - 1) * ItemsPerPage) + 1
If Int(StartItem) = 0 Then
StartItem = 1
End If
dim FileSystemObject, FileSystemObjectFiles
Set FileSystemObject = server.createobject("scripting.filesystemobject" )
Set FileSystemObjectFiles = FileSystemObject.getfolder(Server.MapPath(ImageDirectory))
dim item, ItemArray
For Each item in FileSystemObjectFiles.files
TotalItems = TotalItems + 1
If Int(StartItem) <= Int(TotalItems) AND Int(StartItem + ItemsPerPage) > Int(TotalItems) Then
If ItemArray = "" Then
ItemArray = ItemArray & item.name
Else
ItemArray = ItemArray & "," & item.name
End If
End If
Next
ItemArray = Split(ItemArray, "," )
response.write "
" & vbnewline
dim i, ItemPrints
For i = 0 To Ubound(ItemArray)
ItemPrints = ItemPrints + 1
If Int(ItemPrints) = 1 Then
response.write "" & vbnewline
End If
response.write "" &_
" " &_
"" &_
" | " & vbnewline
If Int(ItemPrints) = Int(ItemsHorizontal) OR i = Ubound(ItemArray) Then
ItemPrints = 0
response.write "
" & vbnewline
End If
Next
response.write "
" & vbnewline
End Sub
private Sub PrintPaging()
dim TotalPages
TotalItems = TotalItems
TotalPages = TotalItems/ItemsPerPage
If Int(TotalPages) < TotalPages Then
TotalPages = Int(TotalPages) + 1
End If
dim PageName
PageName = Request.ServerVariables("script_name" )
response.write "
"
If Not CurrentPage=1 then
response.write "
< |"
End If
response.write i
If Not CurrentPage=TotalPages then
response.write "|
> "
End If
response.write "
"
End If
End Sub
response.write "" & vbnewline &_
"" & vbnewline &_
"
" & PageTitle & "" & vbnewline &_
"" & vbnewline &_
"" & vbnewline &_
"" & vbnewline
Call PrintGallery()
Call PrintPaging()
response.write "
" & vbnewline &_
"
" & vbnewline &_
"
" &_
"
" & vbnewline &_
"" & vbnewline &_
""
%>
Temeli 1996 yılında atılmıştır. Faaliyetlerimizde temel prensibimiz müşteri memnuniyetidir. Bilinenin aksine belleklerde yer edinen eski, düzensiz binalar yerine günün koşullarına uygun, radyal temelli, yasal prosedürlere uygun,resmi hiçbir problemi olmayan kat mülkiyetli tapular dâhilinde teslim edilen dairelerle yeni bir geleceğe imza attık. Truva İnşaat olarak sektörde kalite ve uygun fiyatın takipçisi olduk. Bu doğrultuda bugüne kadar üstlendiğimiz işlerin tamamını başarıyla sonuçlandırdık. Bundan sonraki işlerimizde de aynı hedefi takip edeceğiz.
Faaliyetlerimiz
- Isı yalıtımı,
- Dış cephe boya,
- Şap
- Kaba inşaat işleri
- Bina güçlendirme
- İzolasyon
- Kaba sıva ve ince sıva
- Projelendirme
- Kat karşılığı inşaat
- Alçı sıva
- Kalıp, demir, duvar
- Parke, mermer, kalebodur, fayans
- Sıva, boya, kapı ( amerikan ) ve pencere ( pimapen )
- Mutfak ve banyo dolapları
- Çevre düzenlemesi
- Muhtelif beton işleri
- Fabrika temeli ve inşaası
- Perde ve ihata duvarları
- Saha betonu
