%@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
%>
 |
<%=(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%>
|
|
|
 |
©
LUCA Sunscreen, LLC
|
<%
rsMetaStuff.Close()
Set rsMetaStuff = Nothing
%>
<%
rsPress.Close()
Set rsPress = Nothing
%>