<% If Request.Form("logado") <> "T" Then Banco.Close Response.Redirect("menu.asp?logado=F") Else %> <% On Error Resume Next RGM = Request.Form("RGM") 'SENHA = Session("SENHA") IP = Request.ServerVariables("REMOTE_ADDR") DATA = DATE HORA = TIME LOCAL = "BOLETIM" SQLSTMT = "SELECT * FROM ALUNOS WHERE RGM = '" &RGM& "'" Set Dados = Banco.Execute(SQLSTMT) strNome = Dados("NOME") 'Set Controle = Banco.Execute("INSERT INTO CONTROLE (IP,DATA,HORA,LOCAL,RGM) VALUES ('"& IP &"','"& DATA &"','"& HORA &"','"& LOCAL &"','"& RGM &"')") 'Set Controle = Nothing %> .: Escola OnLine - <%= NOME_ESCOLA %>:.
 
      
   
<%= NOME_ESCOLA %>
RGM:
Senha:

CGM: <%=Dados("RGM")%> NOME: <%=Dados("NOME")%> SÉRIE: <%=Dados("SERIE")%> TURMA: <%=Dados("TURMA")%> Nº: <%=Dados("NUMERO")%>

<% If Request.Form("enviou") = "T" Then NOME = Request.Form("NOME_AMIGO") Set oRS = Server.CreateObject("ADODB.Recordset") 'strSQLCustomers = "exlunos" oRS.ActiveConnection = Banco oRS.CursorLocation = adUseClient oRS.CursorType = adOpenKeyset oRS.LockType = adLockOptimistic oRS.Source = "IndiqueAmigos" oRS.Open '--------------------------------------- oRS.AddNew oRS("CódAluno") = RGM oRS("NomeAlunoIndicado") = NOME oRS.Update If Err.Number = 0 Then 'Response.Write("Amigo cadastrado com sucesso!") Response.Write("

Amigo cadastrado com sucesso!

") 'SET MENSAGEM = CREATEOBJECT("Persits.MailSender") 'MENSAGEM.ISHTML = TRUE 'MENSAGEM.Host = "smtp.br2001.com.br" 'Response.Write("NOME: " & strNOME) 'MENSAGEM.FromName = strNOME 'MENSAGEM.From = "paulo.roberto@edt.com.br" 'MENSAGEM.AddAddress "informatica@estsion.com.br" 'MENSAGEM.AddBcc "paulo.roberto@edt.com.br" 'MENSAGEM.Subject = "Indique Amigos - SION Online" 'MENSAGEM.UserName = "paulo.roberto@edt.com.br" 'MENSAGEM.Password = "larilara" 'TEXTO = "NOME: " & strNOME & "
" 'TEXTO = TEXTO & "RGM: " & RGM & "
" 'TEXTO = TEXTO & "AMIGO INDICADO: " & NOME & "
" 'TEXTO = TEXTO & "FICHA AVALIATÓRIA - RESPOSTA: " & Replace(RESPOSTA, Chr(13), "
") & "
" 'MENSAGEM.Body = TEXTO 'MENSAGEM.Send Else Response.Write("Erro: " & Err.Description) End If oRS.Close Set oRS = Nothing %> <% Else 'If enviou = T . . . %>

NOME DO AMIGO À INDICAR:

<% End If %>

[ Log-Out ]

<%'Dados.Close 'Set Dados = Nothing Banco.Close Set Banco = Nothing%> <% End if %>