<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsMetaStuff Dim rsMetaStuff_cmd Dim rsMetaStuff_numRows Set rsMetaStuff_cmd = Server.CreateObject ("ADODB.Command") rsMetaStuff_cmd.ActiveConnection = MM_connJoeMedia_STRING rsMetaStuff_cmd.CommandText = "SELECT * FROM dbo.KeywordTable" rsMetaStuff_cmd.Prepared = true Set rsMetaStuff = rsMetaStuff_cmd.Execute rsMetaStuff_numRows = 0 %> <% Dim rsPress__MMColParam rsPress__MMColParam = "1" If (Request.QueryString("pressID") <> "") Then rsPress__MMColParam = Request.QueryString("pressID") End If %> <% Dim rsPress Dim rsPress_cmd Dim rsPress_numRows Set rsPress_cmd = Server.CreateObject ("ADODB.Command") rsPress_cmd.ActiveConnection = MM_connJoeMedia_STRING rsPress_cmd.CommandText = "SELECT * FROM dbo.PressTable WHERE pressID = ? " rsPress_cmd.Prepared = true rsPress_cmd.Parameters.Append rsPress_cmd.CreateParameter("param1", 5, 1, -1, rsPress__MMColParam) ' adDouble Set rsPress = rsPress_cmd.Execute rsPress_numRows = 0 %>
Home LUCA Products The Science of LUCA Avioding Sun Damage Tips FAQ About LUCA LUCA Press Testimonials
Contact

Return to Press


<%=(rsPress.Fields.Item("Title").Value)%>

<%=(rsPress.Fields.Item("Subtitle").Value)%>
<%= DoDateTime((rsPress.Fields.Item("pressDate").Value), 1, 1033) %>

<% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (rsPress.Fields.Item("Photo").Value) <> "" Then%> " align="left" class="pressphoto" /> <%End IF%> <% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (rsPress.Fields.Item("Description").Value) <> "" Then%> <%= PreserveWhitespace((rsPress.Fields.Item("Description").Value)) %> <%End IF%>

<% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (rsPress.Fields.Item("PDFfile").Value) <> "" Then%>" target="_blank">View PDF
<%End IF%> <% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (rsPress.Fields.Item("Weblink").Value) <> "" Then%> " target="_blank">View Website <%End IF%>
 

 

<% rsMetaStuff.Close() Set rsMetaStuff = Nothing %> <% rsPress.Close() Set rsPress = Nothing %>