<%@LANGUAGE="VBSCRIPT"%> <% pagina = "concursos"%> <% 'envia e-mail a partir de consulta if request.form("enviar") = "sim" then conteudoemail = ""&replace(request.form("consulta"),chr(13),"
")&"" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.FromName = request.form("nome") Mailer.FromAddress = request.form("e-mail") Mailer.AddRecipient "IABSP","iabsp@iabsp.org.br" Mailer.Subject= request.form("nome_concurso") Mailer.Bodytext = replace(conteudoemail,chr(13),"
") x = Mailer.SendMail if x = true then envio = "ok" end if Set Mailer = nothing end if %> <% Dim ID ID = "1" If (Request("ID") <> "") Then ID = Request("ID") End If %> <% Dim Concurso Dim Concurso_numRows Set Concurso = Server.CreateObject("ADODB.Recordset") Concurso.ActiveConnection = MM_iabsp_STRING Concurso.Source = "SELECT ID_Concurso, Str_Imagem_Grande, Str_Nome, Str_Resumo, Str_Link, V_Inscricao, V_Regulamento FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + "" Concurso.CursorType = 0 Concurso.CursorLocation = 2 Concurso.LockType = 1 Concurso.Open() Concurso_numRows = 0 %> <% Dim Regulamento Dim Regulamento_numRows Set Regulamento = Server.CreateObject("ADODB.Recordset") Regulamento.ActiveConnection = MM_iabsp_STRING Regulamento.Source = "SELECT ID_Regulamento, Int_Ordem, Str_Imagem, Str_Texto, Str_Titulo FROM concurso_consultas WHERE ID_Concurso = " + Replace(ID, "'", "''") + " AND SoN_Aparece = 1 ORDER BY Int_Ordem ASC" Regulamento.CursorType = 0 Regulamento.CursorLocation = 2 Regulamento.LockType = 1 Regulamento.Open() Regulamento_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Regulamento_numRows = Regulamento_numRows + Repeat1__numRows %>

<%if envio = "ok" then%> <% end if %> <% If Not Regulamento.EOF Or Not Regulamento.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Regulamento.EOF)) %> <%imagem=(Regulamento.Fields.Item("Str_Imagem").Value) if imagem&"a"<>"a" then %> <% end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Regulamento.MoveNext() Wend %> <% Else %> <% End If ' end Not Regulamento.EOF Or NOT Regulamento.BOF %> <% nome_concurso =(Concurso.Fields.Item("Str_Nome").Value)%> <% = nome_concurso%> "> Consultas Sua consulta foi enviada. Aguarde o parecer dos consultores. <%=(Regulamento.Fields.Item("Int_Ordem").Value)%>. <%= replace ((Regulamento.Fields.Item("Str_Titulo").Value),chr(13), " ")%> <%= replace ((Regulamento.Fields.Item("Str_Texto").Value),chr(13), " ")%> Até agora, não temos consultas comentadas <%if (Concurso.Fields.Item("Str_Link").Value)&"a" <> "a" then %> <%link=(Concurso.Fields.Item("Str_Link").Value)%> <% end if%> <%if (Concurso.Fields.Item("V_Inscricao").Value) = 1 then %> <% end if%> <%if (Concurso.Fields.Item("V_Regulamento").Value) = 1 then %> <% end if%> veja mais <%=link%> Inscrição Regulamento

<% Concurso.Close() Set Concurso = Nothing %> <% Regulamento.Close() Set Regulamento = Nothing %>