<% Const DAILY_DIR = "/images/" Dim objDSO, objDailyFolderObject, objDailyCollection, objDaily Dim intDailyNumberToUse, intDailyLooper Dim objDailyImageToUse Dim strDailySrcText Set objDSO = Server.CreateObject("Scripting.FileSystemObject") Set objDailyFolderObject = objDSO.GetFolder(Server.MapPath(DAILY_DIR)) Set objDSO = Nothing Set objDailyCollection = objDailyFolderObject.Files Set objDailyFolderObject = Nothing Dim myDate myDate = cDate("September 27, 1969") intDailyNumberToUse = DateDiff("d", myDate, Date) MOD objDailyCollection.Count intDailyLooper = 1 For Each objDaily in objDailyCollection If intDailyLooper = intDailyNumberToUse Then Set objDailyImageToUse = objDaily Exit For End If intDailyLooper = intDailyLooper + 1 Next Set objDailyCollection = Nothing strDailySrcText = DAILY_DIR & objDailyImageToUse.Name Set objDailyImageToUse = Nothing %> <% Const DAILY_DIR = "/images/hazen05_06/" Dim objDSO, objDailyFolderObject, objDailyCollection, objDaily Dim intDailyNumberToUse, intDailyLooper Dim objDailyImageToUse Dim strDailySrcText Set objDSO = Server.CreateObject("Scripting.FileSystemObject") Set objDailyFolderObject = objDSO.GetFolder(Server.MapPath(DAILY_DIR)) Set objDSO = Nothing Set objDailyCollection = objDailyFolderObject.Files Set objDailyFolderObject = Nothing Dim myDate myDate = cDate("September 27, 1969") intDailyNumberToUse = DateDiff("d", myDate, Date) MOD objDailyCollection.Count intDailyLooper = 1 For Each objDaily in objDailyCollection If intDailyLooper = intDailyNumberToUse Then Set objDailyImageToUse = objDaily Exit For End If intDailyLooper = intDailyLooper + 1 Next Set objDailyCollection = Nothing strDailySrcText = DAILY_DIR & objDailyImageToUse.Name Set objDailyImageToUse = Nothing %>

TIPS:

Health & Nutrition
(and more!)

Health and Nutrition:

When your racing each weekend as well as continuing with solid training, staying healthy becomes a top priority. If you're not being perceptive to how your feeling in can be easy to dig yourself into a hole you can't climb out of. This is why it's still a good idea to take one solid rest day a week and monitor your morning heart rate (resting heart rate that is constant enough to see patterns developing).

The easiest way to stay healthy is simply by being smart after your workouts. Changing clothes directly after a ski is the best way to prevent sickness. One of the most important things is getting enough calories and liquids down (preferably within fifteen minutes) but at the very latest within a half hour of the end of your workout or race. This will help you get the most out of your training and help your recovery dramatically.

It's also a good idea to be careful doing a lot of intensity in cold weather. Any kind of race cough can effect your aerobic capacity in a negative way. When its cold out make sure to wrap your neck up well while your skiing and if you can cover your mouth completely from the cold air its even better. Any kind of coughing is bad, and even if it starts with a few hacks it can be hard to get rid of. It can even be a good idea to take cough suppressing lozenge directly after a race in cold weather to prevent any kind of coughing. As always stay hydrated, wash your hands, and most of all have fun skiing! If your not having fun it's hard to stay healthy and motivated.

More Information