<%
Dim rsCount
Dim rsCount_cmd
Set rsCount_cmd = Server.CreateObject ("ADODB.Command")
rsCount_cmd.ActiveConnection = MM_connCMS_STRING
rsCount_cmd.CommandText = "SELECT * FROM T_BA WHERE Before_After = 1 ORDER BY Job_Date DESC"
rsCount_cmd.Prepared = true
rsCount_cmd.Parameters.Append rsCount_cmd.CreateParameter("param1", 5, 1, -1, rsBA__MMColParam) ' adDouble
Set rsCount = rsCount_cmd.Execute
%>
<%
Dim rsBA__MMColParam
rsBA__MMColParam = rsCount.Fields.Item("ID").Value
If (Request.QueryString("ID") <> "") Then
rsBA__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rsBA
Dim rsBA_cmd
Dim rsBA_numRows
Set rsBA_cmd = Server.CreateObject ("ADODB.Command")
rsBA_cmd.ActiveConnection = MM_connCMS_STRING
rsBA_cmd.CommandText = "SELECT * FROM T_BA WHERE ID = ? AND Before_After = 1"
rsBA_cmd.Prepared = true
rsBA_cmd.Parameters.Append rsBA_cmd.CreateParameter("param1", 5, 1, -1, rsBA__MMColParam) ' adDouble
Set rsBA = rsBA_cmd.Execute
rsBA_numRows = 0
DIM strDesc
strDesc = rsBA.Fields.Item("Job_Description").Value
IF Len(strDesc) < 1 THEN
strDesc = ""
END IF
%>
<%=(rsBA.Fields.Item("Job_Title").Value)%>
<%=(rsBA.Fields.Item("Job_Date").Value)%>
 " alt="<%=(rsBA.Fields.Item("Before_1").Value)%>" vspace="5" />Before |
" alt="<%=(rsBA.Fields.Item("After_1").Value)%>" vspace="5" /> After |
<% IF rsBA.Fields.Item("Before_2").Value <> "" THEN %>
| " alt="<%=(rsBA.Fields.Item("Before_2").Value)%>" vspace="5" /> Before |
" alt="<%=(rsBA.Fields.Item("After_2").Value)%>" vspace="5" /> After |
<% END IF %>
<% IF rsBA.Fields.Item("Before_3").Value <> "" THEN %>
| " alt="<%=(rsBA.Fields.Item("Before_3").Value)%>" vspace="5" /> Before |
" alt="<%=(rsBA.Fields.Item("After_3").Value)%>" vspace="5" /> After |
<% END IF %>
<%= SafeSQL(strDesc) %>
<%
rsCount.Close()
Set rsCount = Nothing
%>
<%
rsBA.Close()
Set rsBA = Nothing
%>