">   FREQUENT  FLYER  HOME PAGE This page contains audio and video content.

Destination of the Week

<% Function GetASFFileName() Dim strASFPath ' this variable will store the absolute http reference to the asf file strASFPath = "http://" & Request.ServerVariables("SERVER_NAME") strASFPath = strASFPath & Request.ServerVariables("PATH_INFO") ' at this point, strASFPath contains an absolute reference to ' this page. For example, if the server name is MyServer and ' the application is stored in a virtual called Exair, then the value ' of strASFPath is now "http://MyServer/ExAir/Freqflyer/Week.asp" ' The next line gets rid of the "Week.asp" part strASFPath = left(strASFPath, len(strASFPath) - len("Week.asp")) ' Now, we need to tack on the rest of the path to the asf file: strASFPath = strASFPath & "multimedia/k2demo288.asf" GetASFFileName = strASFPath End Function %>