%@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 %>:.
|
|
<% 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")%> |
<% End If
if dados.state = 1 then Dados.Close
Set Dados = Nothing%>
[
Log-Out
] |
|
|
<%
Banco.Close
Set Banco = Nothing%>
<% End if %>