|
|
|
Eventos |
<% Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRsCo = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn
objRs.Open NewsQuery & " WHERE IDNews = " & Request.QueryString("IDNews"), objConn, 3, 3
objRs("NewsRead") = objRs("NewsRead") + 1
objRs.Update
objRs.Close
objRs.Open NewsQuery & " WHERE IDNews = " & Request.QueryString("IDNews"), objConn, 0, 1
%>
<%
If objRs.BOF And objRs.EOF Then
%>
|
Este curso não está
disponível |
<%
Else
If Not CurrentNews = objRs("IDNews") And Application(ScriptName & "EnableComments") = "Yes" Then
objRsCo.Open "SELECT IDComment FROM Comment WHERE NewsID = " & objRs("IDNews"), objConn, 3, 1
CommentCount = objRsCo.RecordCount
If CommentCount = 0 Then CommentCount = "No"
CurrentNews = objRs("IDNews")
objRsCo.Close
End If
%>
<% = objRs("NewsHeadline")%> |
|
<% = Smilies(objRs("NewsText")) %>
<%
If Not objRs("Newsarquidown") = "" And Not objRs("Newsarquidown") = "" Then
%>
" >
<%
End If
%>
<% NewsCols = 0 %>
<% NewsCols = NewsCols + 1 %>
|
<%
If Not objRs("Newsinicio") = "" And Not objRs("Newsinicio") = "" Then
%>
Início:
<% = objRs("Newsinicio") %>
<%
End If
%>
<%
If Not objRs("Newsfinal") = "" And Not objRs("Newsfinal") = "" Then
%>
até
<% = objRs("Newsfinal") %>
<%
End If
%>
<%
If Not objRs("Newsiniciohora") = "" And Not objRs("Newsiniciohora") = "" Then
%>
Horário:
<% = objRs("Newsiniciohora") %>
<%
End If
%>
<%
If Not objRs("Newsfimhora") = "" And Not objRs("Newsfimhora") = "" Then
%>
até
<% = objRs("Newsfimhora") %>
<%
End If
%>
<%
If Not objRs("Newspalestrante") = "" And Not objRs("Newspalestrante") = "" Then
%>
<%
If Not objRs("Newsprograma") = "" And Not objRs("Newsprograma") = "" Then
%>
Programa:
<% = objRs("Newsprograma") %>
<%
End If
%>
Instrutor (es):
<% = objRs("Newspalestrante") %>
<%
End If
%>
<%
If Not objRs("Newslocal") = "" And Not objRs("Newslocal") = "" Then
%>
Local:
<% = objRs("Newslocal") %>
<%
End If
%>
<%
If Not objRs("Newscusto") = "" And Not objRs("Newscusto") = "" Then
%>
Custo Associados: R$
<% = objRs("Newscusto") %>
<%
End If
%>
<%
If Not objRs("Newscusto_outros") = "" And Not objRs("Newscusto_outros") = "" Then
%>
Custo:
<% = objRs("Newscusto_outros") %>
<%
End If
%>
<%
If Not objRs("Newscusto2") = "" And Not objRs("Newscusto2") = "" Then
%>
Custo Demais Participantes: R$
<% = objRs("Newscusto2") %>
<%
End If
%>
<%
If Not objRs("Newsadesoes") = "" And Not objRs("Newsadesoes") = "" Then
%>
Veja as vantagens de ser associado!
Inscrições:
<% = objRs("Newsadesoes") %>
<%
End If
%>
<%
If Not objRs("Newsobs") = "" And Not objRs("Newsobs") = "" Then
%>
Observações:
<% = objRs("Newsobs") %>
<%
End If
%>
<%
If Not objRs("NewsSource") = "" And Not objRs("NewsSource") = "http://" Then
%>
Link relacionado:" target="_blank">
<% = objRs("NewsSource") %>
<%
End If
%>
|
<% NewsCols = NewsCols + 1 %>
<% If Len(objRs("NewsImage")) > 0 And Application(ScriptName & "NewsImages") = 1 And Application(ScriptName & "NewsImagesAlign") = "right" Then %>
<% NewsCols = NewsCols + 1 %>
<% End If %>
| ', null, 'width=385, height=460, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=yes, status=no, titlebar=no, toolbar=no')"> Clique aqui para fazer a sua inscrição |
<% If Len(objRs("NewsLinks")) > 0 Then
Dim LinkArray %>
<% Set LinkArray = Nothing
End If %>
|
<%
If Application(ScriptName & "ShowIcons") = "Yes" Then
%>
|
', null, 'width=485, height=460, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=yes, status=no, titlebar=no, toolbar=no')">
|
',null , 'width=385, height=460, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=no, status=no, titlebar=no, toolbar=no')"> |
<%
Else
%>
|
<%
End If %>
<%
End If
%>
|
|
|
|
|