<%@LANGUAGE=VBSCRIPT%> <% If Request.Form("logado") <> "T" Then Response.Redirect("menu.asp?logado=F") Else %> <% Private Function GeraSQL(Dados, sTipo) Dim sCampos, sValores, sSQL, sCamposChaves sCampos = "" : sValores = "" : sSQL = "" : sCamposChaves = "" If (sTipo = "1") Then 'INSERT Dim N For N = 1 To UBound(Dados) sCampos = sCampos & Dados(N, 1) & "," sValores = sValores & Dados(N, 2) & "," Next sSQL = "Insert Into " & Dados(0, 0) & "(" & Mid(sCampos, 1, Len(sCampos) - 1) & _ ") Values (" & Mid(sValores, 1, Len(sValores) - 1) & ")" ElseIf (sTipo = "2") Or (sTipo = "3") Then 'UPDATE ou DELETE For N = 1 To UBound(Dados) If Dados(N, 3) = "0" Then sCampos = sCampos & Dados(N, 1) & "=" & Dados(N, 2) & "," ElseIf Dados(N, 3) = "1" Then sCamposChaves = sCamposChaves & Dados(N, 1) & "=" & Dados(N, 2) & " And " End If Next sSQL = "Update " & Dados(0, 0) & " Set " & Mid(sCampos, 1, Len(sCampos) - 1) If sCamposChaves <> "" Then sSQL = sSQL & " Where " & Mid(sCamposChaves, 1, Len(sCamposChaves) - 5) End If If sTipo = "3" Then sSQL = "Delete From " & Dados(0, 0) & " Where " & Mid(sCamposChaves, 1, Len(sCamposChaves) - 5) End If End If GeraSQL = sSQL End Function 'FUNCAO APOSTROFO: 'Susbstitui os sinais de apóstrofo no texto pela crase, a fim de evitar erros no SQL function Apostrofo(Apostrofo_texto) dim pos, i if len(Apostrofo_texto) = 0 then Apostrofo_texto = "" else i = 1 do pos = Instr(i, Apostrofo_texto, chr(39)) if pos > 0 then Apostrofo_texto = left(Apostrofo_texto, pos) & chr(39) & right(Apostrofo_texto, len(Apostrofo_texto) - pos) i = pos + 2 end if loop while pos > 0 Apostrofo = UCASE(Apostrofo_texto) end if end function '-------------------------------- RGM = Request.Form("RGM") 'SENHA = Session("SENHA") '------------------------------------------ RESDESEND = Apostrofo(Request.Form("RESDESEND")) RESCOMPLE = Apostrofo(Request.Form("RESCOMPLE")) RESDESBAI = Apostrofo(Request.Form("RESDESBAI")) RESDESCID = Apostrofo(Request.Form("RESDESCID")) RESDESUFE = Apostrofo(Request.Form("RESDESUFE")) RESNUMCEP = Apostrofo(Request.Form("RESNUMCEP")) rescpfpai = Apostrofo(Request.Form("rescpfpai")) resnompai = Apostrofo(Request.Form("resnompai")) RESPROPAI = Apostrofo(Request.Form("RESPROPAI")) RESNUMTEL = Apostrofo(Request.Form("RESNUMTEL")) RESNACPAI = Apostrofo(Request.Form("RESNACPAI")) '-------------- RESTELPAI = Apostrofo(Request.Form("RESTELPAI")) RESENDPAI = Apostrofo(Request.Form("RESENDPAI")) RESEMAILPAI = Apostrofo(Request.Form("RESEMAILPAI")) RESTELMAE = Apostrofo(Request.Form("RESTELMAE")) rescpfmae = Apostrofo(Request.Form("rescpfmae")) RESENDMAE = Apostrofo(Request.Form("RESENDMAE")) RESEMAILMAE = Apostrofo(Request.Form("RESEMAILMAE")) '-------------- resnommae = Apostrofo(Request.Form("resnommae")) rescpf = Apostrofo(Request.Form("rescpf")) RESPROMAE = Apostrofo(Request.Form("RESPROMAE")) OBS = Apostrofo(Request.Form("OBS")) RESNUMCOD = Request.Form("RESNUMCOD") '------------------------------------------ If Request.Form("Atualizou") = "T" Then Dim Vars(24, 3) Dim sSQL Vars(0, 0) = "ADEDRES" '------------------------------- Vars(1,1) = "RESDESEND" : Vars(1,2) = "'" & RESDESEND & "'" : Vars(1,3) = "0" Vars(2,1) = "RESCOMPLE" : Vars(2,2) = "'" & RESCOMPLE & "'" : Vars(2,3) = "0" Vars(3,1) = "RESDESBAI" : Vars(3,2) = "'" & RESDESBAI & "'" : Vars(3,3) = "0" Vars(4,1) = "RESDESCID" : Vars(4,2) = "'" & RESDESCID & "'" : Vars(4,3) = "0" Vars(5,1) = "RESDESUFE" : Vars(5,2) = "'" & RESDESUFE & "'" : Vars(5,3) = "0" Vars(6,1) = "RESNUMCEP" : Vars(6,2) = "'" & RESNUMCEP & "'" : Vars(6,3) = "0" Vars(7,1) = "resnompai" : Vars(7,2) = "'" & resnompai & "'" : Vars(7,3) = "0" Vars(8,1) = "RESPROPAI" : Vars(8,2) = "'" & RESPROPAI & "'" : Vars(8,3) = "0" Vars(9,1) = "RESNUMTEL" : Vars(9,2) = "'" & RESNUMTEL & "'" : Vars(9,3) = "0" Vars(10,1) = "RESNACPAI" : Vars(10,2) = "'" & RESNACPAI & "'" : Vars(10,3) = "0" Vars(11,1) = "RESTELPAI" : Vars(11,2) = "'" & RESTELPAI & "'" : Vars(11,3) = "0" Vars(12,1) = "RESENDPAI" : Vars(12,2) = "'" & RESENDPAI & "'" : Vars(12,3) = "0" Vars(13,1) = "RESEMAILPAI" : Vars(13,2) = "'" & RESEMAILPAI & "'" : Vars(13,3) = "0" Vars(14,1) = "RESTELMAE" : Vars(14,2) = "'" & RESTELMAE & "'" : Vars(14,3) = "0" Vars(15,1) = "RESENDMAE" : Vars(15,2) = "'" & RESENDMAE & "'" : Vars(15,3) = "0" Vars(16,1) = "RESEMAILMAE" : Vars(16,2) = "'" & RESEMAILMAE & "'" : Vars(16,3) = "0" Vars(17,1) = "resnommae" : Vars(17,2) = "'" & resnommae & "'" : Vars(17,3) = "0" Vars(18,1) = "RESPROMAE" : Vars(18,2) = "'" & RESPROMAE & "'" : Vars(18,3) = "0" Vars(19,1) = "RESNUMCOD" : Vars(19,2) = "'" & RESNUMCOD & "'" : Vars(19,3) = "1" Vars(20,1) = "OBS" : Vars(20,2) = "'" & OBS & "'" : Vars(20,3) = "0" Vars(21,1) = "REScpfmae" : Vars(21,2) = "'" & REScpfmae & "'" : Vars(21,3) = "0" Vars(22,1) = "rescpfpai" : Vars(22,2) = "'" & rescpfpai & "'" : Vars(22,3) = "0" Vars(23,1) = "REScpf" : Vars(23,2) = "'" & REScpf & "'" : Vars(23,3) = "0" Vars(24,1) = "ALTERADO" : Vars(24,2) = "True" : Vars(24,3) = "0" '------------------------------- On Error Resume Next SQLSTMT = GeraSQL(Vars, "2") Set Dados = Banco.Execute(SQLSTMT) if err.number<> 0 then sMsg = err.description else sMsg = "Dados Atualizados" Response.Write("") End If '--------------------- SQLSTMT = "SELECT * FROM ALUNOS,ADEDRES,ADEDALU WHERE ALUNOS.RGM = '" & RGM & _ "' AND ALUNOS.RGM=ADEDALU.ALUNUMMAT AND ADEDRES.RESNUMCOD=ADEDALU.ALUNUMCOD" 'Response.Write(SQLSTMT) 'Response.End() Set Dados = Banco.Execute(SQLSTMT) '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:
<% If Dados.EOF Then%>

Os seus dados pessoais não constam no banco de dados!

<%Else RESDESEND = Dados("RESDESEND") RESCOMPLE = Dados("RESCOMPLE") RESDESBAI = Dados("RESDESBAI") RESDESCID = Dados("RESDESCID") RESDESUFE = Dados("RESDESUFE") RESNUMCEP = Dados("RESNUMCEP") rescpf = dados("rescpf") resnompai = Dados("resnompai") RESPROPAI = Dados("RESPROPAI") RESNUMTEL = Dados("RESNUMTEL") RESNACPAI = Dados("RESNACPAI") RESTELPAI = Dados("RESTELPAI") RESENDPAI = Dados("RESENDPAI") RESEMAILPAI = Dados("RESEMAILPAI") rescpfpai = dados("rescpfpai") RESTELMAE = Dados("RESTELMAE") RESENDMAE = Dados("RESENDMAE") RESEMAILMAE = Dados("RESEMAILMAE") rescpfmae = dados("rescpfmae") resnommae = Dados("resnommae") RESPROMAE = Dados("RESPROMAE") RESNUMCOD = Dados("RESNUMCOD") OBS = Dados("OBS")%>
CGM: <%=Dados("RGM")%> NOME: <%=Dados("NOME")%> SÉRIE: <%=Dados("SERIE")%> TURMA: <%=Dados("TURMA")%> Nº: <%=Dados("NUMERO")%>

Dados de Correspondência

Endereço
Complemento
Tel
Bairro
Cidade
Estado
CEP
CPF

Filiação

Nome Pai
Nacionalidade Pai
Profissão Pai
Telefone Pai
Endereço Pai
Email Pai
CPF Pai
 
Nome Mãe
Nacionalidade Mãe
Profissão Mãe
Telefone Mãe
Email Mãe
CPF Mãe
Endereço Mãe
 
Observações
<% End If if dados.state = 1 then Dados.Close Set Dados = Nothing%>

[ Log-Out ]

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