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 %>

MMMedier Fest 2008


Så var det atter tid til den længe ventede MMMedier fest i Århus.
Hyggestedet er hvert år inviteret med, når MMMedier (online markedsføring) holder fest for deres kunder!
I år var ingen undtagelse, det var bare årets fest! Og webmaster blev igen møg stiv! :-)
Ja okay, i år blev jeg måske lige LIDT for fuld... Takket være absint som der desværre altid er rigeligt af.. avs..
Men tag et kig selv, så er du nok ikke i tvivl.. hehe


Der var også fest om fredagen, resterne så sådan ud.
Jeg valgte dog heldigvis først at komme om lørdagen, ellers var det da gået helt galt.



Et af billederne fra om fredagen som jeg fik tilsendt...
Han har vist siddet her rimelig længe hørte jeg.. hehe... ;-)
 

Noget man aldrig behøver at være i tvivl om når man kommer til MMMedier fest, er de fede biler!
I år var ingen undtagelse og her kommer nogle af  dem... Temmelig fed Maserati her.



Den havde også en temmelig god røv.. Det samme havde hende der kørte i den.. hehe.. ;-)

Tims nye Porsche 911 Turbo til 3,5 mill. inkl. udstyr...  Vildt...
Der er dømt coooooooool øse.. :-)



Heller ikke grim bagfra må man sige...

Tim har også en vild Audi og kigger man her, så kan man godt regne ud den ikke kun har 150 Hk!!! :-)
 

Webmasters Porsche... Ikke en 911 Turbo, jeg må desværre nøjes.. :-)
 

Denne her Mustang havde den ONDESTE lyd!!!
 

Ja gad man kunne købe dem på tyske plader.... øv..

Så var vi på vej ud til dagens surprise.. Laaaangt ude på landet.. :-)


Vi skulle skyde lerduer!! :-)
Det var fandme hyl! Havde aldrig troet jeg kunne blive så bidt af det!



Så er Tim igang med at vise sit talent som duckhunter..
 

Ta' den din lådne due....
 

Nok heldigt vi ikke var alt for stive...
 

Så var det webmaster der skulle nakke nogle duer...
 

Spasserarmet Troels skyder med venstre.. Så kan man da ikke ramme!!??? :-)
 

Rene as Lucky Luke...



Yearhhhhhhhhhhhh
 

Folk venter utålmodigt på at komme til at gå amok og lege Rambo :-)

 

Tøserne var faktisk også ret hårde til dig..
 

Nice view!

En pils inden fest...
 

På vej til fest... Troels og mig får lige en fadbamse på vej.. :-)
 

Flot dækket op som altid...
 

Og velkomsten kan vi vist ikke klage over.. ;-)
De ville meget gerne have et billede med mig, så jeg lod mig overtale...
 

Velkomst drinks inden festen går amok..
 

Bedste slogan nogensinde!!!! ;-)



Shake it baby
 

Gang i dansetroldene mens vi fik velkomstdrinks... Nice..
 

De var overalt dansepigerne... MMMedier forstår at gøre os glade.. :-)
 

Tim holder velkomst tale 
 

Maden bliver serveret og lidt præmier bliver overrakt...
 

Banko Karl holdte tale.. Underholdende mand...
 

Folk lytter til Hr. Karl
 

Banko Karl snakker stadig...
 

Lidt folk....
 

Lidt flere folk.....
 

Chefen himself....
 

Flot lys.... ehhh....
 

Brian og mig fik en enkelt dobbelt Whisky og cola.... eller.... 10.... Puha..
Sådan skal en bordherre være!! :-)
 

Så begynder alkoholen stille og roligt og hjælpe... hehe

 

Så holdte jeg vist også en lille tale...
Skulle nok have holdt den en halv time før, så var den ikke blevet så lang.. haha...
 

Ser da ud til jeg selv morer mig i det mindste... ;-)
 

Nogle af serveringspigerne..
 

Top tenderen....
 

Det ligner hjernemasse og det havde også en effekt deroppe kan jeg love jer!!!
Der var noget skummelt absint i.... ALDRIG MERE!!!!
 

Tim underholder lidt....
 

Tim danser.... Ehhh.. nej okay.. :-)
 

Rundt på hovederne... De var alt for seje..
 

Lidt mere tale m.v.
 

Publikum i godt humør....
 

Kan overhovedet ikke huske hvad han sagde her...
 

Boogie Boogie...
 

Tak for denne gang..
 

En svensker holder tale..
Der var jo konkurrence om bedste tale som altid.. :-)
 

Tim og resten af gutterne lytter på taler
 

God underholdning var der altid i vinduerne...
 

Skulle lige have et billede sammen med en dansetrold...
 

Spørgsmålet er om jeg kommer i himlen??
 

Var lige oppe og bestille noget musik hos DJ'en... Ja, det var DJ'en!!!! :-)

 

Så er vi vist ved at være RET stive... :-)
Gang i de gutter...
 

Så var der besøg.. hehe
 

Hun skulle have været med i dansegruppen der var der før på aftenen..
 

Hvad gemmer du her?
 

Kom så lille Elmer
 

Tager lige en lur.. Der sker jo intet.. ;-)
 

Hehe, hvad faen har jeg gang i her?????
 

Luk mig ud!!!!!
 

Er du gal han må have haft dårlig mave ham her...
 

Rene med vores DJ... Og jeg nåede også lige med.. hehe

Godmorgen.. :-)
 

Rene ser ikke særlig bagstiv ud!!!

 

 

 

 

Troels på vej ind og hente sin mobil ved taxa firmaet dagen efter.. Ups.. :-)
 

Troels knækker sig på vej hjem... Haha.. Træls...
 

Tak til Tim og resten af MMMedier for endnu en super fed fest!!
Og sorry webmaster blev så stiv.. Det sker ALDRIG igen!! ;-)

 

TILBAGE TIL FORSIDEN