<% @LANGUAGE=VBScript %> Evento <% Dim cnn, rs Dim tmpEventoID, tmpDescricao tmpEventoID = Request.QueryString("EventoID") Set cnn = Server.CreateObject("adodb.connection") cnn.Open strCnn Set rs = Server.CreateObject("adodb.Recordset") rs.Open "SELECT * FROM Eventos" & _ " WHERE EventoID=" & CLng(tmpEventoID), _ cnn, adOpenForwardOnly, adLockReadOnly If rs.EOF = False Then %>
<%=rs("Titulo")%>
 

Início

<%=WeekdayName(Weekday(rs("DataInicio")))%>, <%=Day(rs("DataInicio"))%> de <%=MonthName(Month(rs("DataInicio")))%> de <%=Year(rs("DataInicio"))%>

Fim

<%=WeekdayName(Weekday(rs("DataFim")))%>, <%=Day(rs("DataFim"))%> de <%=MonthName(Month(rs("DataFim")))%> de <%=Year(rs("DataFim"))%>

Descrição

<%=rs("Descricao")%>


Voltar

<% End If rs.close cnn.close Set rs = Nothing Set cnn = Nothing %>