<% sqlStr = "Select p.Page_Image_ID,p.Page_Item_ID, s.Shared_Image_ID,s.Shared_Image_Path "&_ "From Page_Images As p, Shared_Images As s "&_ "Where p.Page_Item_ID = (SELECT Page_Item_ID From Page_Item WHERE Page_ID = "&Page_ID&" And Item_Type_ID = 7) "&_ "AND p.Shared_Image_ID = s.Shared_Image_ID" Set RS = Conn.Execute(sqlStr) if RS.EOF then Shared_Image_Path = "../images/header_tagline_1.jpg" else Shared_Image_Path = RS("Shared_Image_Path") end if%> /images/Odyssey_424.jpg' width='424' height='211' border='0' alt='Chosen Voyage / Uncompromising. Kosher.' />
Chosen Voyage / Uncompromising. Kosher.

<%=uCase(Replace(Content_Title,"_"," - "))%>

<% InsertDeckPlan = 0 if Page_ID = 110 then InsertDeckPlan = 123%> <%end if if InsertDeckPlan < 100 then %> <%=Content_Html%> <%end if%>
 
 
<% Function ImageRotator() tmpRotator = "../images/header_right_1.jpg" sqlStr = "SELECT * FROM Shared_Images Where Image_Type = 1" Set IRS = Server.CreateObject("Adodb.Recordset") IRS.Open sqlSTR, Conn, AdOpenStatic,AdLockOptimistic,AdCmdTxt if NOT IRS.EOF then IRS.MoveFirst While NOT IRS.EOF myRecs = myRecs + 1 IRS.MoveNext wEnd IRS.MoveFirst Randomize RecToChoose = Round(RND()*(myRecs-1)) IRS.Move RecToChoose tmpRotator = IRS("Shared_Image_Path") end if IRS.Close SET IRS = Nothing ImageRotator = tmpRotator end Function Function ImageRotator2() tmpRotator = "../images/header_right_1.jpg" sqlStr = "SELECT * FROM Shared_Images Where Image_Type = 3" Set IRS = Server.CreateObject("Adodb.Recordset") IRS.Open sqlSTR, Conn, AdOpenStatic,AdLockOptimistic,AdCmdTxt if NOT IRS.EOF then IRS.MoveFirst While NOT IRS.EOF myRecs = myRecs + 1 IRS.MoveNext wEnd IRS.MoveFirst Randomize RecToChoose = Round(RND()*(myRecs-1)) IRS.Move RecToChoose tmpRotator = IRS("Shared_Image_Path") end if IRS.Close SET IRS = Nothing ImageRotator2 = tmpRotator end Function%> <% conn.close set conn = nothing%>