% 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 %>:.
|
|
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 . . . %>
<% End If %>
[
Log-Out
] |
|
|
<%'Dados.Close
'Set Dados = Nothing
Banco.Close
Set Banco = Nothing%>
<% End if %>