EXPERIENCETHEWORLD

We would like to take this opportunity to thank you for your visit. Please take your time in browsing through our web site for information on the programs that we offer. If you are interested in a program not published on our web site, chances are we are offering it, so please fill out a Request Form asking us about the particular Program that is of interest to you. We look forward to a future collaboration!

 *** Do you want to work in the most exciting places in the US this summer?  How about UNIVERSAL ORLANDO RESORT or SIX FLAGS CALIFORNIA?  We are now accepting applications for the 2006 Work & Travel USA Program! Please click on the link for more information.  Please check with your Representative or Contact Us to make sure we received your paperwork needed for processing.

*** We are planning our recruitment trips in your country, so make an appointment with your Representative so see one of the employers and ask all the questions you need regarding our program and your job.  You will be part of the most exciting presentation, and you could WIN YOUR WAY TO THE US!!! Contact Us and ask us how!

<% '# Set the values of some variable imageStyle = "s2" serverPath = "http://plugins.websitecomplete.com/wsc_images" set shell = createobject("wscript.shell") set env = shell.environment("process") systemroot = env("systemroot") DataSource = "FileFileDSN=c:\winnt\system32\dsn\plugins.dsn=" & systemroot & "\system32\dsn\plugins.dsn" DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn" Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open DataSource '# grab all their records to see what they have to offer sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'Dn7IyHaT'" Set oRst = DataConn.Execute(sqlQuery) if not oRst.eof then counterNumber = CLng(oRst("current_value")) if Session("Counted") = "" then counterNumber = counterNumber + 1 '#update the current value in the database sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'Dn7IyHaT';" DataConn.Execute(sqlQuery) DataConn.close Set DataConn = nothing Session("Counted") = true end if counterNumber = "0000000000" & counterNumber counterNumber = right(counterNumber,8) counterDisplay = "" howLong = len(counterNumber) for i=1 to howLong thisNumber = mid(counterNumber,i,1) counterDisplay = counterDisplay & "" next counterDisplay = "" & counterDisplay & "" counterDisplay = "" & counterDisplay & "" else counterDisplay = "" end if Set oRst = nothing %><%= counterDisplay %>