<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Redirect "http://iabsp.org.br/index.php/cursos/" %> <% pagina = "Cursos"%> <% Dim nota nota = 0 if request("nota")&"a" <> "a" then nota = nota + request("nota")%> <% Dim curso Dim curso_numRows Set curso = Server.CreateObject("ADODB.Recordset") curso.ActiveConnection = MM_iabsp_STRING if nota > 0 then curso.Source = "SELECT data, ID_curso, quente, Str_email, Str_Imagem_curso, Str_site, Str_Texto, Str_Titulo FROM curso where ID_curso = "& nota &"" else curso.Source = "SELECT data, ID_curso, quente, Str_email, Str_Imagem_curso, Str_site, Str_Texto, Str_Titulo FROM curso order by ID_curso Desc" end if curso.CursorType = 0 curso.CursorLocation = 2 curso.LockType = 1 curso.Open() curso_numRows = 0 %> <% if nota = 0 then nota = (curso.Fields.Item("ID_curso").Value)%> <% Dim Cursos Dim Cursos_numRows Set Cursos = Server.CreateObject("ADODB.Recordset") Cursos.ActiveConnection = MM_iabsp_STRING Cursos.Source = "SELECT aparece, ID_curso, Str_Titulo FROM curso WHERE aparece = 1 Order by ID_curso desc" Cursos.CursorType = 0 Cursos.CursorLocation = 2 Cursos.LockType = 1 Cursos.Open() Cursos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Cursos_numRows = Cursos_numRows + Repeat1__numRows %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<% foto =(curso.Fields.Item("Str_Imagem_curso").Value) if foto&"a" <> "a" then%> <%end if%> <% site =(curso.Fields.Item("Str_site").Value) if "a"&site <> "a" then %> <%end if%> <% email =(curso.Fields.Item("Str_email").Value) if "a"&email <> "a" then %> <%end if%>
 
<%=(curso.Fields.Item("Str_Titulo").Value)%>
 
<%= replace ((curso.Fields.Item("Str_Texto").Value),chr(13), "
")%>
<% = site%>
<%=email%>
<%=(curso.Fields.Item("data").Value)%>
 
    <% While ((Repeat1__numRows <> 0) AND (NOT Cursos.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Cursos.MoveNext() Wend %>
Cursos IAB-SP
<%ID_curso=(Cursos.Fields.Item("ID_curso").Value)%> <%if ID_curso <> nota then%> <%=(Cursos.Fields.Item("Str_Titulo").Value)%> <%else%> <%=(Cursos.Fields.Item("Str_Titulo").Value)%> <%end if%>
 
<% curso.Close() Set curso = Nothing %> <% Cursos.Close() Set Cursos = Nothing %>