<% response.CacheControl = "no-cache" set con = Server.CreateObject("ADODB.Connection") con.Open Application("CString") i_PageID = 97 if Request("PageID") <> Empty and IsNumeric(Request("PageID")) then i_PageID = Request("PageID") end if strSQL = "SELECT Heading, FileName, Redirect, ImageName, ImageDesc, FileContent FROM CMS_Page WHERE PageID = "& i_PageID set rsPage = con.execute(strSQL) s_Heading = "" s_FileName = "" s_Redirect = "" s_ImageName = NULL s_ImageDesc = "" s_Content = "" if not rsPage.EOF then rsPage.MoveFirst() s_Heading = rsPage("Heading") s_FileName = rsPage("FileName") s_Redirect = rsPage("Redirect") s_ImageName = rsPage("ImageName") s_ImageDesc = rsPage("ImageDesc") s_Content = rsPage("FileContent") end if set rsPage = Nothing if not IsNull(s_Redirect) and s_Redirect <> Empty then response.redirect(s_Redirect) elseif not IsNull(s_FileName) and Trim(s_FileName) <> Empty then Response.Redirect("Uploads/"& s_FileName) end if %> <%=Server.HTMLEncode(s_Heading)%> :. Pumba Private Game Reserve - The Eastern Cape South Africa <%strSQL = "SELECT * FROM Page_Images WHERE PageID = " & i_PageID set rsImages = server.createobject("ADODB.RecordSet") rsImages.open strSQL, Application("CString")%> <%if not rsImages.EOF then %> <%iSaySo = False%> <%do until iSaySo%> <%loop%>

<% if not rsImages.EOF then i_tmp_PageID = rsImages("PageID") s_tmp_Directory_File = rsImages("Directory_File") i_tmp_PageType = rsImages("PageType") i_tmp_ProjectID = rsImages("ProjectID") i_tmp_NewsID = rsImages("NewsID") i_tmp_Width = rsImages("Width") i_tmp_Height = rsImages("Height") b_tmp_Clickable = rsImages("Clickable") s_tmp_Description = rsImages("Description") if b_tmp_Clickable then %>

<% else %> <%=Server.HTMLEncode(s_tmp_Description)%>

<% end if %> <%rsImages.MoveNext%> <%else%> <%s_tmp_Description = " "%> <%iSaySo = True%> <%end if%>

<%=s_tmp_Description%>

<%end if%>

<%=s_Heading%>

<%= s_Content%>