<% Const IMGS_DIR = "/img/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

LUKKET - TAK FOR SAMARBEJDET & TAKE CARE DOWN THERE!

Rasmus og Per forsætter som selvstændige instruktører og kan træffes på henholdsvis dykning@sport.dk og www.pr-dyk.dk

Velkommen til Cooldiver
Cooldiver tilbyder dig privat dykkerundervising og -ture, samt førstehjælpskurser.

Dit kursus
Der er fokus på dine ønsker, sikkerheden og at du har det sjovt uden tidspres. Hos Cooldiver lærer du at dykke når du har tid. Derfor er du selv med til at bestemme hvornår undervisningen skal foregå.

Dit tempo
Der er maksimalt 4 kursister på Cooldivers hold.
Så der er tid til at du kan lære færdighederne grundigt - samtidig med at du har det sjovt sammen med andre - og får nogle spændende og sikre oplevelser under havets overflade.

0% udstyrssalg - 100% instruktion
Dykkerudstyr er sikkerhedsudstyr. Køb det i en dansk butik med authoriseret værksted og 3 års garanti - Cooldiver anbefaler Dykkercentret.

 

info@cooldiver.com