|
|
<%
If Request.QueryString("redirect") <> "" Then intRedirect = Request.QueryString("redirect")
If Request.Form("formRedirect") <> "" Then intRedirect = Request.Form("formRedirect")
If Not IsNumeric(intRedirect) Then Response.Redirect "default.asp"
intRedirect = Int(intRedirect)
If Session("EmailAddress") & "*" = "*" Then
%>
<%
Else
Select Case intRedirect
Case 1
Response.Redirect "http://www.EndlessEnergyBook.com/media/01_EE_Ex_1_Sensing_Inergy.mp3"
Case 2
Response.Redirect "http://www.EndlessEnergyBook.com/media/02_EE_Ex_2_Self_Sensing_Your_Vital_Body.mp3"
Case 3
Response.Redirect "http://www.EndlessEnergyBook.com/media/03_EE_Ex_3_Mirror_Check_for_the_Inergy_Bodies.mp3"
Case 4
Response.Redirect "http://www.EndlessEnergyBook.com/media/04_EE_Ex_4_Inergy_Breath.mp3"
Case 5
Response.Redirect "http://www.EndlessEnergyBook.com/media/05_EE_Ex_5_Raise_the_Frequency.mp3"
Case 6
Response.Redirect "http://www.EndlessEnergyBook.com/media/06_EE_Ex_6_Picture_Change.mp3"
Case 7
Response.Redirect "http://www.EndlessEnergyBook.com/media/07_EE_Ex_7_Breath_Focus.mp3"
Case 8
Response.Redirect "http://www.EndlessEnergyBook.com/media/08_EE_Ex_8_Host_Thought.mp3"
Case 9
Response.Redirect "http://www.EndlessEnergyBook.com/media/09_EE_Ex_9_Be_Light.mp3"
Case 10
Response.Redirect "http://www.EndlessEnergyBook.com/media/10_EE_Ex_10_Integration.mp3"
Case 11
Response.Redirect "http://www.EndlessEnergyBook.com/media/11_EE_Ex_11_Inergy_Mends.mp3"
Case 12
Response.Redirect "http://www.EndlessEnergyBook.com/media/12_EE_Ex_12_Cosmos.mp3"
Case 13
Response.Redirect "http://www.EndlessEnergyBook.com/media/13_EE_Ex_13_Inside_Out.mp3"
End Select
End If
%>
|
|
|
|
|
|
Copyright
© 2004, HeartPath. All rights reserved.
|
|
|