%@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%>
<%oBD.Close : Set oBD = Nothing %>