<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Untitled Document
CADASTRO DE ALUNO
<% Dim bNovo : bNovo = "F" if (Request.Form("txtRGM") <> "") then sRGM = Formata(Request.Form("txtRGM"), 5) if Request.Form("btnNovo") <> "" then if sRGM = "" then Response.Write "" Set rs = Server.CreateObject("ADODB.RecordSet") sSQL = "Select count(*) from ALUNOS Where RGM = '" & sRGM & "'" rs.Open sSQL, oBD if CInt(rs(0)) = 1 then Response.Write "" bNovo = "" else bNovo = "T" end if rs.Close : set rs = nothing end if%>
<%if sRGM <> "" then if Request.Form("btnAtu") <> "" then sNome = Request.Form("txtNome") sSerie = Request.Form("txtSerie") sTurma = Request.Form("txtTurma") sNum = Request.Form("txtNum") sSenha = Request.Form("txtSenha") sResAta = Request.Form("txtResAta") if Request.Form("hNovo") = "T" then sSQL = "Insert Into ALUNOS(RGM,NOME,SERIE,TURMA,NUMERO,SENHA,RES_ATA) values ('" & sRGM & "','" & sNome & "','" & sSERIE & _ "','" & sTurma & "','" & sNum & "','" & sSenha & "','" & sResAta & "')" else sSQL = "Update ALUNOS Set NOME = '" & sNome & "',SERIE = '" & sSERIE & "',TURMA = '" & sTurma & _ "',NUMERO = '" & sNum & "',SENHA = '" & sSenha & "',RES_ATA='" & sResAta & "' Where RGM = '" & sRGM & "'" end if oBD.Execute sSQL Response.Write "" end if Set rs = Server.CreateObject("ADODB.RecordSet") sSQL = "Select NOME,RGM,SERIE,TURMA,NUMERO,SENHA,res_ata from ALUNOS Where RGM = '" & sRGM & "'" 'Response.Write bNovo rs.Open sSQL, oBD if not (rs.eof) or (bNovo = "T") then if (bNovo = "T") then sNome = "" : sSerie = "" : sTurma = "" : sNum = "" : sSenha = "" : sResAta = "" else sNome = rs("Nome") : sSerie = rs("SERIE") : sTurma = rs("Turma") : sNum = rs("NUMERO") : sSenha = rs("SENHA") : sResAta = rs("res_ata") end if rs.Close : set rs = nothing %>

RGM: <%= sRGM %>

ALUNO:

SERIE:

TURMA:

NUMERO:

SENHA:

ATA: A=aprovado / R=reprovado

<%else%> Aluno nao encontrado! <%end if end if%>
<%oBD.Close : Set oBD = Nothing %>