Galleri vist antal gange:
<%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com/ *
'* *
'* This code is made available as a service to our *
'* visitors and is provided strictly for the *
'* purpose of illustration. *
'* *
'* http://www.asp101.com/samples/license.asp *
'* *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>
<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))
' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files. If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = CLng(objCountFile.ReadAll)
Else
' If no file exists or it's empty start at 0
iCount = 0
End If
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Increment the count
iCount = iCount + 1
' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
' Write updated count
objCountFile.Write iCount
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Destroy the FSO object
Set objFSO = Nothing
' We're all done with the hard part
' All that's left is to display the results
If bUseImages Then
' Loop through the count integer showing each digit
' You can grab the images one at a time or get the zip
' http://www.asp101.com/samples/download/counter_imgs.zip
For I = 1 to Len(iCount)
' Output the IMG tag using the right digit
Response.Write ""
Next 'I
Else
' No image wanted just show the variable
Response.Write iCount
End If
%>
FAST & FURIOUS CARSHOW 2009 I FREDERICIA
MESSECENTER 1. TIL 3. MAJ
Præsenteret af
Hyggestedet.dk har været en tur afsted til Fast & Furious carshow i
Fredericia.
Trods voldsomme tømmermænd, men heldigvis med godt vejr tog jeg af
sted med min assistent Hr. Cykelsmed.
En kold fadøl tog det værste så lidt billeder blev det også til. :)
En hyggelig dag hvor vi også nåede hjem uden at få en fartbøde, dog
var det MEGET tæt på!! ;)
Porschen er nyvasket og klar til afgang..
Det første vi mødte var hende her med en Cult Shaker.. Sådan.. :)
Ondt smil...
Cool VW pickup
Gabet var åbnet for tilskuerne
Toyota klubben sørgede for søde piger..
Den fedeste detalje med surfbrættet...
Derfor elsker vi at være på skiferie.... Det havde de lært noget af
her..
Heidi og Heidi...
Wuhuuuuuu.. Sådan skal det gøres.....
Wow.... Hun styrer stangen.. ;)
Cool mågedøre..
Fast & Furious stil...
Fed Supra fra Japanerimport.dk
Den vildeste Mercedes..
Lattergas we like.. :)
Total stil over kabinen...
Drift biler
Sød sød vært
Real muscle power
Hottie.. Og check lige den lille gut der giver hende thumbs up..
hehe
Og pigen ved siden afser misundelig på hendes støvler.. :)
Søde piger på scenen...
Udstrækning er vigtigt.. :)
Assistenten sørger for at blande sig med sildene..
Closeup... Hehe..
SEEEEEJ BOBBEL
Den vildeste kværn på en MC
Top geilet knallert.. hehe.. sejt..
Det var populært med mågedøre... Også ret fedt..
Blæret mini...
Hun ville gerne have vist hvordan hun slikkede isen på video,
men vi måtte nøjes med et billede da vi ikke have videokamera med..
øv..;)
Klokke fra Extremecarparts og Team JBL førte sig frem..
Hele Team JBL
Overtog lige hendes plads og poserede lidt for assistenten...
Som man kan se så tager hun mig ikke seriøs.. hmmm....
Middagslur er vigtigt...
Den vildeste MR2...
Cool kabine...
Tøserne gør sig klar...
Dagens røv... NICE!
Sød Vmax Babe.. :)
Dækimporten har altså forstået at lokke publikum!! HAPS!
Wow.....
Der skulle lige pyntes op.. hehe
Miss Island eller noet.... Kan ikke lige huske det..
Dav igen...
Mødte lige en Varde dreng der vendte skiver... Skååååål.. :)
CULT SHAKER!!! Yeeeeeeees Sir!!!
Wow.... Hotties...
Der skulle Hr. Cykelsmed assistent naturligvis lige med imellem.. :)
Den vildeste Brabus der koster en millionmilliard...
Blæret....
Det røde lyn...
Vi var lige forbi afterski baren igen... Der var nu godt gang i
den.. ;)
Den fedeste detalje...
Smil... :)
Black Thunder...
Babes fra hificity...
Uhhhhh.. Viper.. :)
Babes fra turtle vax..
Yellow bastard trans..
We like a lot!!
Det fedeste VIPER motorrum...
Kør med stil!!
Den sygeste gangster øse...
Hmmm.... Strømpebukser holder ikke.. ;)
Haha, sej rustbunke.. :)
Det pyntede lidt på bilen...
Joe's garage havde fed 60'er musik...
Den sejeste fritz i DK! :)
Matsort gangster slæde... Cobra stil!
Tror den er vild.. :)
Drag MC... Sygt nok...
Den vildeste Hayabusa bike..
Den nye trend på Padborg Park.. Det ser sgu fedt ud.. :)
*
Vi mødte lige en af hyggestedets faste besøgende som havde sin
Corvette med da vi skulle hjem..
FUCK DEN ER RÅ og hvilken lyd!!! :)
Hans kammerat havde en toptrimmet Subaru Impreza, heller ikke helt
skidt...