<% If isNumeric(Trim(Request.QueryString("ID"))) Then dim pressTitle SQLQuery = "Select * From press Where ID = " & FormatVar(Trim(Request.QueryString("ID")), 2) & ";" Set SQLRec = objConn.Execute(SQLQuery) If Not SQLRec.EOF Then pressTitle = server.HTMLEncode(SQLRec("Title")) & ", " & SQLRec("Date_Report") Else pressTitle = "N/A" End if end if %> Tubac Golf Resort and Spa

Media Room

<<- Back to Previous Page

<% If isNumeric(Trim(Request.QueryString("ID"))) Then If Not SQLRec.EOF Then %>

<%=SQLRec("Title")%>

<%=SQLRec("Date_Report")%>
<%=Replace(""&SQLRec("Description"), vbcrlf, "
")%>

<%'If Len(Login_Check_Ary) > 0 Then%>
<%If Len(SQLRec("Image")) > 0 Then%> " width="300" /> <%End If If Len(SQLRec("Link")) > 0 Then%>

Press Link:

" target="_blank"><%=SQLRec("Link")%>

<%End If If Len(SQLRec("Pdf")) > 0 Then%>

" target="_blank">Download in printable PDF format.

<%End If%>
<%End If%>

 

<% 'End If Else Response.Redirect("media.asp") End If %>