<%
Class ControlDatabase
    Private Results
        'RecordSet
    Private ConexDB
        'Connection
    Private ConexOpen
        'Flag for connection
    Private ConexStr
        'String for connection
    Private QuerySQL
        'Query executed
    Private QuerySQLRaw
        'Query executed raw
    Private Cache
        'Flag for cache
    Private CacheValid
        'Flag for a valid cache
    Private CacheSizeRule
        'Max size avaliable for cache
    Private CacheTimeRule
        'Time for expiration of variables
    Private intCount
        'Quantity of entries in the RecordSet
    Private XML
        'XML document (setable for alien documents)
    Private XMLAlien
        'Flag for an alien XML document

    Private Sub Class_Initialize
        ConexStr = Application("strConexao")
        Set ConexDB = Server.CreateObject("ADODB.Connection")
        ConexDB.ConnectionString = "Provider=SQLOLEDB.1;Password=ntzaupei;Persist Security Info=True;User ID=usr_tvverdesmares_diarionordeste;Initial Catalog=TVVERDESMARES_diariodonordeste;Data Source=Rionb105"
        'ConexDB.ConnectionString = ConexStr
        ConexOpen = false
        Cache = false
        CacheValid = false
        CacheSizeRule = 0
        CacheTimeRule = 0
        XMLAlien = false
        intCount = 0
    End Sub

    Public Default Sub Execute(sql)
        QuerySQL = sql
        if (Cache) then
            QuerySQLRaw = getRawString(QuerySQL)
            if (Len(Application("XMLCache:" & QuerySQLRaw)) < 5) then
                if (not ConexOpen) then
                    ConexDB.Open
                    ConexOpen = true
                end if
                Set Results = ConexDB.Execute(sql)
                CacheValid = false
            else
                if (((CDbl(Application("XMLCacheTime:" & QuerySQLRaw)) + CacheTimeRule) < CDbl(getTimestamp(Now))) and (CacheTimeRule > 0)) then
                    if (not ConexOpen) then
                        ConexDB.Open
                        ConexOpen = true
                    end if
                    Set Results = ConexDB.Execute(sql)
                    CacheValid = false
                else
                    CacheValid = true
                end if
            end if
        else
            if (not ConexOpen) then
                ConexDB.Open
                ConexOpen = true
            end if
            Set Results = ConexDB.Execute(sql)
        end if
        intCount = 0
    End Sub

    Public Sub ExecuteUpdate(sql)
        QuerySQL = sql
        if (not ConexOpen) then
            ConexDB.Open
            ConexOpen = true
        end if
        ConexDB.Execute(sql)
        intCount = 0
    End Sub

    Public Function getConnection()
        getConnection = ConexDB
    End Function

    Public Sub setConnection(objConnection)
        ConexDB = objConnection
    End Sub

    Public Function getConnectionString()
        getConnectionString = ConexStr
    End Function

    Public Sub setConnectionString(strConnectionString)
        ConexStr = strConnectionString
        if (ConexOpen) then
            ConexDB.Close
        end if
        ConexDB.ConnectionString = ConexStr
    End Sub

    Public Function getResults()
        getResults = Results
    End Function

    Public Sub setResults(objResults)
        Set Results = objResults
    End Sub

    Public Sub enableCache()
        if (Application("XMLCacheSize") = "") then
            Application("XMLCacheSize") = "0"
        end if
        Cache = true
    End Sub

    Public Sub disableCache()
        Cache = false
    End Sub

    Public Sub setCacheSizeRule(strSize)
        CacheSizeRule = strSize
    End Sub

    Public Sub setCacheTimeRule(strTime)
        CacheTimeRule = strTime
    End Sub

    Public Function CheckOK()
        if (Cache) then
            if (CacheValid) then
                CheckOK = True
            else
                If not (Results.Eof and Results.Bof) then
                    CheckOK = True
                Else
                    CheckOK = False
                End If
            end if
        else
            If not (Results.Eof and Results.Bof) then
                CheckOK = True
            Else
                CheckOK = False
            End If
        End If
    End Function

    Public Function CheckOOS()
        If (Results.Eof) or (Results.Bof) then
            CheckOOS = True
        Else
            CheckOOS = False
        End If
    End Function

    Public Function CheckEOF()
        If Results.Eof then
            CheckEOF = True
        Else
            CheckEOF = False
        End If
    End Function

    Public Function CheckBOF()
        If Results.Bof then
            CheckBOF = True
        Else
            CheckBOF = False
        End If
    End Function

    Public Sub Move(numero)
        MoveFirst
        Results.Move numero
    End Sub

    Public Sub MoveFirst()
        Results.MoveFirst
    End Sub

    Public Sub MoveNext()
        Results.MoveNext
    End Sub

    Public Sub MovePrevious()
        Results.MovePrevious
    End Sub

    Public Function Fields(source)
        if not CheckEOF then
            if (InStr(source,",") > 0) then
                Dim sources, Temp
                Temp = ""
                sources = split(source,",")
                For i = LBound(sources) to UBound(sources)
                    Temp = Temp & Results.Fields(sources(i)) & " / "
                Next
                Fields = Mid(Temp,1,Len(Temp) - 3)
            else
                Fields = Results.Fields(source)
            end if
        else
            Fields = false
        end if
    End Function

    Public Function CompleteDate(source)
        Dim Temp, Data, Dia, Mes, Ano, Hora
        Temp = Split(Fields(source)," ")
        Hora = Temp(1)
        Data = Temp(0)
        Temp = Split(Data,"/")
        Dia = Temp(0)
        Mes = Temp(1)
        Ano = Temp(2)
        Select Case Mes
        Case "1"
            Mes = "Janeiro"
        Case "2"
            Mes = "Fevereiro"
        Case "3"
            Mes = "Março"
        Case "4"
            Mes = "Abril"
        Case "5"
            Mes = "Maio"
        Case "6"
            Mes = "Junho"
        Case "7"
            Mes = "Julho"
        Case "8"
            Mes = "Agosto"
        Case "9"
            Mes = "Setembro"
        Case "10"
            Mes = "Outubro"
        Case "11"
            Mes = "Novembro"
        Case "12"
            Mes = "Dezembro"
        End Select
        CompleteDate = Dia & " de " & Mes & " de " & Ano & " às " & Hora
    End Function

    Public Function ResumedDate(source)
        Dim Temp, Data, Dia, Mes, Ano, Hora
        Temp = Split(Fields(source)," ")
        Hora = Temp(1)
        Data = Temp(0)
        Temp = Split(Data,"/")
        Dia = Temp(0)
        Mes = Temp(1)
        Ano = Temp(2)
        Select Case Mes
        Case "1"
            Mes = "Jan"
        Case "2"
            Mes = "Fev"
        Case "3"
            Mes = "Mar"
        Case "4"
            Mes = "Abr"
        Case "5"
            Mes = "Mai"
        Case "6"
            Mes = "Jun"
        Case "7"
            Mes = "Jul"
        Case "8"
            Mes = "Ago"
        Case "9"
            Mes = "Set"
        Case "10"
            Mes = "Out"
        Case "11"
            Mes = "Nov"
        Case "12"
            Mes = "Dez"
        End Select
        ResumedDate = Dia & " de " & Mes & " de " & Ano & " às " & Hora
    End Function

    Public Function TypeNumber(source)
        TypeNumber = Results.Fields(source).Type
    End Function

    Public Function TypeName(source)
        Select Case TypeNumber(source)
            Case 20
                TypeName = "BigInt"
            Case 128
                TypeName = "Binary"
            Case 11
                TypeName = "Boolean"
            Case 8
                TypeName = "BSTR"
            Case 0x4000
                TypeName = "ByRef"
            Case 129
                TypeName = "Char"
            Case 6
                TypeName = "Currency"
            Case 7
                TypeName = "Date"
            Case 133
                TypeName = "DBDate"
            Case 134
                TypeName = "DBTime"
            Case 135
                TypeName = "DBTimestamp"
            Case 14
                TypeName = "Decimal"
            Case 5
                TypeName = "Double"
            Case 0
                TypeName = "Empty"
            Case 10
                TypeName = "Error"
            Case 72
                TypeName = "Guid"
            Case 9
                TypeName = "IDispatch"
            Case 3
                TypeName = "Integer"
            Case 13
                TypeName = "IUnknown"
            Case 205
                TypeName = "LongVarBinary"
            Case 201
                TypeName = "LongVarChar"
            Case 203
                TypeName = "LongVarWChar"
            Case 1
                TypeName = "Null"
            Case 131
                TypeName = "Numeric"
            Case 4
                TypeName = "Single"
            Case 2
                TypeName = "SmallInt"
            Case 16
                TypeName = "TinyInt"
            Case 21
                TypeName = "UnsignedBigInt"
            Case 19
                TypeName = "UnsignedInt"
            Case 18
                TypeName = "UnsignedSmallInt"
            Case 17
                TypeName = "UnsignedTinyInt"
            Case 132
                TypeName = "UserDefined"
            Case 204
                TypeName = "VarBinary"
            Case 200
                TypeName = "VarChar"
            Case 12
                TypeName = "Variant"
            Case 202
                TypeName = "VarWChar"
            Case 130
                TypeName = "WChar"
            Case Else
                TypeName = "Array"
        End Select
    End Function

    Public Function Name(source)
        Name = Results.Fields(source).Name
    End Function

    Public Function Count()
        Dim Temp
        if (intCount = 0) then
            If not (Results.Eof and Results.Bof) then
                Temp = 0
                Do While (Not Results.Eof)
                    Temp = Temp + 1
                    Results.MoveNext
                Loop
                Results.moveFirst
            end if
            intCount = Temp
            Count = Temp
        else
            Count = intCount
        end if
    End Function

    Public Function DataGrid()
        Dim Tmp
        Tmp = "<table cellspacing=""0"" style=""background-color : #c0c0c0; border : 1px solid #545454; font-size : 10px; font-family : Verdana; font-style : normal; overflow : scroll;"">"
        Tmp = Tmp & "<tr style=""background-color: #545454; color: #ffffff;"">"
        For each Resultados in Results.Fields
            Tmp = Tmp & "<td valign=""top"" align=""left"" style=""padding : 5px;""><b>" & Resultados.Name & "</b> (" & TypeName(Resultados.Name) & ")</td>"
        Next
        Tmp = Tmp & "</tr>"
        If not (Results.Eof and Results.Bof) then
            Do While (Not Results.Eof)
                Select Case LineColor
                Case "#ffffff"
                    LineColor = "#eeeeee"
                Case "#eeeeee"
                    LineColor = "#ffffff"
                Case Else
                    LineColor = "#ffffff"
                End Select
                Tmp = Tmp & "<tr style=""background-color: " & LineColor & ";"">"
                for each resultados in Results.Fields
                    if Len(Resultados) > 0 then
                        Tmp = Tmp & "<td valign=""top"" align=""left"" style=""border-right: 1px solid #eeeeee; padding : 5px;"">" & Resultados & "</td>"
                    else
                        Tmp = Tmp & "<td valign=""top"" align=""left"" style=""color: #c0c0c0; border-right: 1px solid #eeeeee; padding : 5px;""><i>NULL</i></td>"
                    end if
                Next
                Tmp = Tmp & "</tr>"
                Results.MoveNext
            Loop
'           Results.moveFirst
        end if
        Tmp = Tmp & "</table>"
        DataGrid = Tmp
    End Function

    Private Function getRawString(strTexto)
        Dim Temp,Temp1
        Temp = LCase(strTexto)
        Temp = Replace(Temp," ","")
        Temp = Replace(Temp,"'","")
        Temp = Replace(Temp,"""","")
        Temp = Replace(Temp,"á","a")
        Temp = Replace(Temp,"à","a")
        Temp = Replace(Temp,"â","a")
        Temp = Replace(Temp,"ã","a")
        Temp = Replace(Temp,"é","e")
        Temp = Replace(Temp,"è","e")
        Temp = Replace(Temp,"ê","e")
        Temp = Replace(Temp,"ë","e")
        Temp = Replace(Temp,"í","i")
        Temp = Replace(Temp,"ì","i")
        Temp = Replace(Temp,"î","i")
        Temp = Replace(Temp,"ï","i")
        Temp = Replace(Temp,"ó","o")
        Temp = Replace(Temp,"ò","o")
        Temp = Replace(Temp,"ô","o")
        Temp = Replace(Temp,"õ","o")
        Temp = Replace(Temp,"ö","o")
        Temp = Replace(Temp,"ú","u")
        Temp = Replace(Temp,"ù","u")
        Temp = Replace(Temp,"û","u")
        Temp = Replace(Temp,"ü","u")
        Temp = Replace(Temp,"ç","c")
        For i = 1 to Len(Temp)
            Temp1 = Temp1 + asc(mid(Temp,i,1))
        Next
        getRawString = Temp1
    End Function

    Private Function getTimestamp(strDate)
        Dim Temp, D, M, A, HH, MM, SS, Data, Hora
        Temp = Split(strDate," ")
        Hora = Temp(1)
        Data = Temp(0)
        Temp = Split(Data,"/")
        D = Temp(0)
        if (Len(D) < 2) then
            D = "0" & D
        end if
        M = Temp(1)
        if (Len(M) < 2) then
            M = "0" & M
        end if
        A = Temp(2)
        if (Len(A) < 4) then
            A = "20" & A
        end if
        Temp = Split(Hora,":")
        HH = Temp(0)
        if (Len(HH) < 2) then
            HH = "0" & HH
        end if
        MM = Temp(1)
        if (Len(MM) < 2) then
            MM = "0" & MM
        end if
        SS = Temp(2)
        if (Len(SS) < 2) then
            SS = "0" & SS
        end if
        getTimestamp = A & M & D & HH & MM & SS
    End Function

    Private Function generateXML()
        Dim Temp, counter
        Temp = ""
        counter = 0
        If not (Results.Eof and Results.Bof) then
            Temp = Temp & "<?xml version=""1.0"" encoding=""ISO8859-1"" ?>" & chr(10)
            Temp = Temp & "<Rowset>" & chr(10)
            Do While (Not Results.Eof)
                Temp = Temp & chr(9) & "<Row id=""" & counter & """>" & chr(10)
                for each resultados in Results.Fields
                    Temp = Temp & chr(9) & chr(9) & "<" & Resultados.name & ">"
                    Temp = Temp & "<![CDATA[" & Resultados & "]]>"
                    Temp = Temp & "</" & Resultados.name & ">" & chr(10)
                Next
                Temp = Temp & chr(9) & "</Row>" & chr(10)
                counter = counter + 1
                Results.MoveNext
            Loop
            Temp = Temp & "</Rowset>" & chr(10)
'           Results.moveFirst
        end if
        generateXML = Temp
    End Function

    Private Function generateTinyXML()
        Dim Temp, counter
        Temp = ""
        counter = 0
        If not (Results.Eof and Results.Bof) then
            Temp = Temp & "<?xml version=""1.0"" encoding=""ISO8859-1"" ?>"
            Temp = Temp & "<Rowset>"
            Do While (Not Results.Eof)
                Temp = Temp & "<Row id=""" & counter & """>"
                for each resultados in Results.Fields
                    Temp = Temp & "<" & Resultados.name & ">"
                    Temp = Temp & "<![CDATA[" & Resultados & "]]>"
                    Temp = Temp & "</" & Resultados.name & ">"
                Next
                Temp = Temp & "</Row>"
                counter = counter + 1
                Results.MoveNext
            Loop
            Temp = Temp & "</Rowset>"
'           Results.moveFirst
        end if
        generateTinyXML = Temp
    End Function

    Public Function processXML(strXSLFile)
        Dim domXML, domXSL, Temp
        Set domXML = Server.CreateObject("MSXML2.DOMDocument.4.0")
        Set domXSL = Server.CreateObject("MSXML2.DOMDocument.4.0")
        domXML.loadXML getXML
        domXSL.load(strXSLFile)
        Temp = domXML.transformNode(domXSL)
        'Response.Write Server.HTMLEncode(Conex.getXML)
        Set domXML = Nothing
        Set domXSL = Nothing
        processXML = Temp
    End Function

    Public Function getXML()
        Dim Temp
        if (XMLAlien) then
            Temp = XML
        else
            if (Cache) then
                if (CacheValid) then
                    Temp = Application("XMLCache:" & QuerySQLRaw)
                else
                    Temp = generateXML
                    if (((CDbl(Application("XMLCacheSize")) + LenB(Temp)) < CacheSizeRule) or (CacheSizeRule = 0)) then
                        Application("XMLCache:" & QuerySQLRaw) = Temp
                        Application("XMLCacheTime:" & QuerySQLRaw) = getTimestamp(Now)
                        if ((Application("XMLCacheSize") = "") or (Application("XMLCacheSize") = "0")) then
                            Application("XMLCacheSize") = LenB(Temp)
                        else
                            Application("XMLCacheSize") = CDbl(Application("XMLCacheSize")) + LenB(Temp)
                        end if
                    end if
                end if
            else
                Temp = generateXML
            end if
        end if
        getXML = Temp
    End Function

    Public Sub setXML(XMLDoc)
        XML = XMLDoc
        XMLAlien = true
    End Sub

    Public Function getStoredProcedures()
        Dim Temp, Tabela
        Tabela = Split(QuerySQL," ")
        Temp = "<b>TRAZER</b><BR><BR><textarea cols=""115"" rows=""20"" name=""ProcedureTrazer"" id=""ProcedureTrazer"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "CREATE PROCEDURE sp_NomeDaEntidadeTrazer" & chr(10)
        Temp = Temp & chr(9) & "@Codigo int = NULL" & chr(10)
        Temp = Temp & "AS" & chr(10)
        Temp = Temp & chr(9) & "IF (@Codigo IS NULL)" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SELECT "
        For each Resultados in Results.Fields
            Temp = Temp & "N." & Resultados.Name & " as " & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & chr(10)
        Temp = Temp & chr(9) & chr(9) & "FROM tNomeDaEntidade N, tStatus S" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "WHERE (N.stsId = S.stsId)" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "ORDER BY N.ndeId" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "ELSE" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SELECT "
        For each Resultados in Results.Fields
            Temp = Temp & "N." & Resultados.Name & " as " & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & chr(10)
        Temp = Temp & chr(9) & chr(9) & "FROM tNomeDaEntidade N, tStatus S" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "WHERE (@Codigo = N.ndeId) AND (N.stsId = S.stsId)" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & "</textarea>"
        Temp = Temp & "<BR><BR><b>INSERIR</b><BR><BR><textarea cols=""115"" rows=""20"" name=""ProcedureInserir"" id=""ProcedureInserir"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "CREATE PROCEDURE sp_NomeDaEntidadeInserir" & chr(10)
        For each Resultados in Results.Fields
            Temp = Temp & chr(9) &  "@" & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & " varchar(10) = NULL," & chr(10)
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & chr(10)
        Temp = Temp & "AS" & chr(10)
        Temp = Temp & "BEGIN TRANSACTION" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount ON" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Resultado varchar(30)" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Status bit" & chr(10)
        Temp = Temp & chr(9) & "IF NOT EXISTS(SELECT stsId FROM tStatus WHERE stsId = @StatusCodigo)" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Resultado = '[SQL Server] Status não existe'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Status = 0" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "ELSE" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "INSERT INTO tNomeDaEntidade ("
        For each Resultados in Results.Fields
            Temp = Temp & Resultados.Name & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & ") VALUES ("
        For each Resultados in Results.Fields
            Temp = Temp & "@" & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & ")" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Resultado = 'NomeDaEntidade cadastrada'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Status = 1" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "SELECT @@IDENTITY as 'Codigo', @Resultado as Resultado, @Status as Status" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount OFF" & chr(10)
        Temp = Temp & "COMMIT TRANSACTION" & chr(10)
        Temp = Temp & "</textarea>"
        Temp = Temp & "<BR><BR><b>EDITAR</b><BR><BR><textarea cols=""115"" rows=""20"" name=""ProcedureEditar"" id=""ProcedureEditar"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "CREATE PROCEDURE sp_NomeDaEntidadeEditar" & chr(10)
        For each Resultados in Results.Fields
            Temp = Temp & chr(9) &  "@" & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & " varchar(10) = NULL," & chr(10)
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & chr(10)
        Temp = Temp & "AS" & chr(10)
        Temp = Temp & "BEGIN TRANSACTION" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount ON" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Resultado varchar(30)" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Status bit" & chr(10)
        Temp = Temp & chr(9) & "IF NOT EXISTS(SELECT ndeId FROM tNomeDaEntidade WHERE ndeId = @Codigo)" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Resultado = '[SQL Server] NomeDaEntidade não existe'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Status = 0" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "ELSE" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "IF NOT EXISTS(SELECT stsId FROM tStatus WHERE stsId = @StatusCodigo)" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & chr(9) & "SET @Resultado = '[SQL Server] Status não existe'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & chr(9) & "SET @Status = 0" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "ELSE" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & chr(9) & "UPDATE tNomeDaEntidade SET "
        For each Resultados in Results.Fields
            Temp = Temp & Resultados.Name & " = @" & Mid(Resultados.Name,4,Len(Resultados.Name)-3) & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2) & " WHERE ndeId = @Codigo" & chr(10)
        Temp = Temp & chr(9) & chr(9) & chr(9) & "SET @Resultado = 'NomeDaEntidade cadastrada'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & chr(9) & "SET @Status = 1" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "SELECT @Codigo as 'Codigo', @Resultado as Resultado, @Status as Status" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount OFF" & chr(10)
        Temp = Temp & "COMMIT TRANSACTION" & chr(10)
        Temp = Temp & "</textarea>"
        Temp = Temp & "<BR><BR><b>DELETAR</b><BR><BR><textarea cols=""115"" rows=""20"" name=""ProcedureDeletar"" id=""ProcedureDeletar"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "CREATE PROCEDURE sp_NomeDaEntidadeDeletar" & chr(10)
        Temp = Temp & chr(9) & "@Codigo int," & chr(10)
        Temp = Temp & chr(9) & "@UsuarioLogin varchar(20)" & chr(10)
        Temp = Temp & "AS" & chr(10)
        Temp = Temp & chr(9) & "BEGIN TRANSACTION" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount ON" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Resultado varchar(30)" & chr(10)
        Temp = Temp & chr(9) & "DECLARE @Status bit" & chr(10)
        Temp = Temp & chr(9) & "IF NOT EXISTS(SELECT ndeId FROM tNomeDaEntidade WHERE ndeId = @Codigo)" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Resultado = '[SQL Server] NomeDaEntidade não existe'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Status = 0" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "ELSE" & chr(10)
        Temp = Temp & chr(9) & "BEGIN" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "UPDATE tNomeDaEntidade SET stsId = 0, usrId = @UsuarioLogin, proAlteracao = getdate() WHERE ndeId = @Codigo" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Resultado = 'NomeDaEntidade deletada'" & chr(10)
        Temp = Temp & chr(9) & chr(9) & "SET @Status = 1" & chr(10)
        Temp = Temp & chr(9) & "END" & chr(10)
        Temp = Temp & chr(9) & "SELECT @@IDENTITY as 'Codigo', @Resultado as Resultado, @Status as Status" & chr(10)
        Temp = Temp & chr(9) & "SET NoCount OFF" & chr(10)
        Temp = Temp & "COMMIT TRANSACTION" & chr(10)
        Temp = Temp & "</textarea>"
        getStoredProcedures = Temp
    End Function

    Public Function getHTMLForm()
        Dim Temp, counter
        Temp = ""
        counter = 0
        Temp = Temp & "<b>CLASSE</b><BR><BR><textarea cols=""115"" rows=""30"" name=""Classe"" id=""Classe"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "Class NomeDaClasse" & Chr(10)
        Temp = Temp & Chr(9) & "Private iComum" & Chr(10)
        Temp = Temp & Chr(9) & "Private Resultado" & Chr(10)
        for each resultados in Results.Fields
            Temp = Temp & Chr(9) & "Private " & Resultados.name & chr(10)
        Next
        for each resultados in Results.Fields
            Temp = Temp & Chr(10) & Chr(9) & "Public Function get" & Resultados.name & "()" & Chr(10)
            Temp = Temp & Chr(9) & Chr(9) & "get" & Resultados.name & " = " & Resultados.name & Chr(10)
            Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Next
        for each resultados in Results.Fields
            Temp = Temp & Chr(10) & Chr(9) & "Public Sub set" & Resultados.name & "(str" & Resultados.name & ")" & Chr(10)
            Temp = Temp & Chr(9) & Chr(9) & Resultados.name & " = str" & Resultados.name & Chr(10)
            Temp = Temp & Chr(9) & "End Sub" & Chr(10)
        Next
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getResultado = Resultado" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Private Sub Class_Initialize" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Set iComum = New Comum" & Chr(10)
        Temp = Temp & Chr(9) & "End Sub" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Default Function Trazer(strCodigo)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Dim Status" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if (strCodigo <> """") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Set Conex = New ControlDataBase" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Conex(""sp_NomeDaClasseTrazer @Codigo = '"" & strCodigo & ""'"")" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "if Conex.CheckOk then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Do While not Conex.CheckEof" & Chr(10)
        for each resultados in Results.Fields
            Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Resultados.name & " = Conex.Fields(""" & Resultados.name & """)" & chr(10)
        Next
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Conex.MoveNext" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Loop" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Status = True" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Status = False" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Resultado = ""Sua consulta não gerou resultados""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Set Conex = nothing" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = False" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Resultado = ""O campo obrigatório está vazio""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Trazer = Status" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function Inserir("
        for each resultados in Results.Fields
            Temp = Temp & "str" & Resultados.name & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & ")" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Dim Status" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if ("
        for each resultados in Results.Fields
            Temp = Temp & "(" & Resultados.name & " <> """") and "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 5)
        Temp = Temp & ") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = iComum.executarUpdate(""sp_NomeDaClasseInserir "
        for each resultados in Results.Fields
            Temp = Temp & Resultados.name & " = '"" & str" & Resultados.name & " & ""', "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & """, Resultado, Codigo)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = False" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Resultado = ""Algum dos campos obrigatórios está vazio""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Inserir = Status" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function Editar("
        for each resultados in Results.Fields
            Temp = Temp & "str" & Resultados.name & ", "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & ")" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Dim Status" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Codigo = strCodigo" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if ("
        for each resultados in Results.Fields
            Temp = Temp & "(" & Resultados.name & " <> """") and "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 5)
        Temp = Temp & ") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = iComum.Executar(""sp_NomeDaClasseEditar "
        for each resultados in Results.Fields
            Temp = Temp & Resultados.name & " = '"" & str" & Resultados.name & " & ""', "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & """, Resultado)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = False" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Resultado = ""Algum dos campos obrigatórios está vazio""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Editar = Status" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function Deletar(strCodigo, strUsuarioLogin)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Dim Status" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Codigo = strCodigo" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if ((strCodigo <> """") and (strUsuarioLogin <> """")) then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = iComum.Executar(""sp_NomeDaClasseDeletar @Codigo = "" & strCodigo & "", @UsuarioLogin = '"" & strUsuarioLogin & ""'"", Resultado)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Status = False" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Resultado = ""O campo obrigatório está vazio""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Deletar = Status" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getDropdown(Valor)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getDropdown = iComum.getDropdown(""sp_NomeDaClasseTrazer"",""Codigo"",""Codigo"",""Nome,StatusNome"",Valor)" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getDropdownAuxiliar(Valor)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getDropdownAuxiliar = iComum.getDropdown(""sp_NomeDaClasseTrazer"",""NomeDaClasseCodigo"",""Codigo"",""Nome"",Valor)" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getRadioButton(Valor)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getRadioButton = iComum.getDropdown(""sp_NomeDaClasseTrazer"",""Codigo"",""Codigo"",""Nome,StatusNome"",Valor)" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getRadioButtonAuxiliar(Valor)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getRadioButtonAuxiliar = iComum.getDropdown(""sp_NomeDaClasseTrazer"",""NomeDaClasseCodigo"",""Codigo"",""Nome,StatusNome"",Valor)" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & Chr(10) & Chr(9) & "Public Function getFormulario(Acao, strCodigo)" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Dim Temp" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Temp = """"" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Select Case Acao" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Case """"" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = ""<table cellspacing=""""3"""" cellpadding=""""4"""" border=""""0"""" class=""""dados"""" width=""""300"""">""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<form action=""""NomeDaClasse.asp"""" name=""""frmMain"""" id=""""frmMain"""" method=""""post"""">""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<input type=""""hidden"""" name=""""Acao"""" id=""""Acao"""" value="""""""">""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td valign=""""middle"""" align=""""right"""">NomeDaClasse:</td>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<td valign=""""middle"""" align=""""left"""">"" & getDropdown(strCodigo) & ""</td></tr>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td colspan=""""2"""" valign=""""middle"""" align=""""center""""><input type=""""button"""" value=""""&nbsp;Editar&nbsp;"""" class=""""button"""" onclick=""""javascript:Acao.value = 'Editar'; submit();"""">&nbsp;""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<input type=""""button"""" value=""""&nbsp;Deletar&nbsp;"""" class=""""button"""" onclick=""""javascript:Acao.value = 'Deletar'; submit();"""">&nbsp;""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<input type=""""button"""" value=""""&nbsp;Novo&nbsp;"""" class=""""button"""" onclick=""""javascript:Acao.value = 'Inserir'; submit();""""></td></tr></form></table>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Case ""Inserir""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = ""<table cellspacing=""""3"""" cellpadding=""""4"""" border=""""0"""" class=""""dados""""><form action=""""NomeDaClasseServlet.asp"""" name=""""frmFormNomeDaClasse"""" id=""""frmFormNomeDaClasse"""" method=""""post"""" onSubmit=""""testarSubmit();"""" enctype=""""multipart/form-data""""><input type=""""hidden"""" name=""""Acao"""" id=""""Acao"""" value=""""Inserir"""">""" & Chr(10)
        For each resultados in Results.Fields
            Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td valign=""middle"" align=""right"">" & Resultados.name & ":</td><td valign=""middle"" align=""left""><input type=""text"" name=""" & Resultados.name & """ id=""" & Resultados.name & """ size=""40"" maxlenght=""100""></td></tr>""" & chr(10)
        Next
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td colspan=""""2"""" valign=""""middle"""" align=""""center""""><input type=""""submit"""" value=""""&nbsp;Inserir&nbsp;"""" class=""""button""""> <input type=""""reset"""" value=""""&nbsp;Limpar&nbsp;"""" class=""""button""""> <input type=""""button"""" value=""""&nbsp;Cancelar&nbsp;"""" class=""""button"""" onclick=""""javascript:document.location = 'NomeDaClasse.asp';""""></td></tr></form></table>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Case ""Editar""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "if Trazer(strCodigo) then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = ""<table cellspacing=""""3"""" cellpadding=""""4"""" border=""""0"""" class=""""dados""""><form action=""""NomeDaClasseServlet.asp"""" name=""""frmFormNomeDaClasse"""" id=""""frmFormNomeDaClasse"""" method=""""post"""" onSubmit=""""testarSubmit();"""" enctype=""""multipart/form-data""""><input type=""""hidden"""" name=""""Acao"""" id=""""Acao"""" value=""""Editar""""><input type=""""hidden"""" name=""""Codigo"""" id=""""Codigo"""" value="""""" & Codigo & """""">""" & Chr(10)
        For each resultados in Results.Fields
            Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td valign=""middle"" align=""right"">" & Resultados.name & ":</td><td valign=""middle"" align=""left""><input type=""text"" name=""" & Resultados.name & """ id=""" & Resultados.name & """ size=""40"" maxlenght=""100""></td></tr>""" & chr(10)
        Next
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td colspan=""""2"""" valign=""""middle"""" align=""""center""""><input type=""""submit"""" value=""""&nbsp;Salvar&nbsp;"""" class=""""button""""> <input type=""""reset"""" value=""""&nbsp;Limpar&nbsp;"""" class=""""button""""> <input type=""""button"""" value=""""&nbsp;Cancelar&nbsp;"""" class=""""button"""" onclick=""""javascript:document.location = 'NomeDaClasse.asp';""""></td></tr></form></table>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Case ""Deletar""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "if Trazer(strCodigo) then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = ""<table cellspacing=""""3"""" cellpadding=""""4"""" border=""""0"""" class=""""dados""""><form action=""""NomeDaClasseServlet.asp"""" name=""""frmFormNomeDaClasse"""" id=""""frmFormNomeDaClasse"""" method=""""post"""" enctype=""""multipart/form-data""""><input type=""""hidden"""" name=""""Acao"""" id=""""Acao"""" value=""""Deletar""""><input type=""""hidden"""" name=""""Codigo"""" id=""""Codigo"""" value="""""" & Codigo & """""">""" & Chr(10)
        For each resultados in Results.Fields
            Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td valign=""middle"" align=""right"">" & Resultados.name & ":</td><td valign=""middle"" align=""left""><input type=""text"" name=""" & Resultados.name & """ id=""" & Resultados.name & """ size=""40"" maxlenght=""100""></td></tr>""" & chr(10)
        Next
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Temp = Temp & ""<tr><td colspan=""""2"""" valign=""""middle"""" align=""""center""""><input type=""""submit"""" value=""""&nbsp;Deletar&nbsp;"""" class=""""button""""> <input type=""""reset"""" value=""""&nbsp;Limpar&nbsp;"""" class=""""button""""> <input type=""""button"""" value=""""&nbsp;Cancelar&nbsp;"""" class=""""button"""" onclick=""""javascript:document.location = 'NomeDaClasse.asp';""""></td></tr></form></table>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "End Select" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "getFormulario = Temp" & Chr(10)
        Temp = Temp & Chr(9) & "End Function" & Chr(10)
        Temp = Temp & "End Class" & Chr(10)
        Temp = Temp & "</textarea>"
        Temp = Temp & "<BR><BR><b>SERVLET</b> (Normal)<BR><BR><textarea cols=""115"" rows=""30"" name=""Servlet"" id=""Servlet"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "Set iNomeDaClasse = New NomeDaClasse" & Chr(10)
        Temp = Temp & "Select Case Request.Form(""Acao"")" & Chr(10)
        Temp = Temp & "Case ""Inserir""" & Chr(10)
        Temp = Temp & Chr(9) & "if iNomeDaClasse.Inserir("
        For each resultados in Results.Fields
            Temp = Temp & "Request.Form(""" & Resultados.name & """), "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & ") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Response.redirect ""NomeDaClasse.asp?acao=Editar&Codigo="" & iNomeDaClasse.getCodigo() & ""&Resultado="" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "Else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Response.redirect ""NomeDaClasse.asp?acao=Inserir&Resultado=ERRO: "" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "End if" & Chr(10)
        Temp = Temp & "Case ""Editar""" & Chr(10)
        Temp = Temp & Chr(9) & "if iNomeDaClasse.Editar("
        For each resultados in Results.Fields
            Temp = Temp & "Request.Form(""" & Resultados.name & """), "
        Next
        Temp = Mid(Temp,1,Len(Temp) - 2)
        Temp = Temp & ") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "response.redirect ""NomeDaClasse.asp?Acao=Editar&Codigo="" & iNomeDaClasse.getCodigo() & ""&Resultado="" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "response.redirect ""NomeDaClasse.asp?Acao=Editar&Codigo="" & iNomeDaClasse.getCodigo() & ""&Resultado=ERRO: "" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "end if" & Chr(10)
        Temp = Temp & "Case ""Deletar""" & Chr(10)
        Temp = Temp & Chr(9) & "if iNomeDaClasse.Deletar(Request.Form(""Codigo""), Session(""usuario"")) then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Response.redirect ""NomeDaClasse.asp?Resultado="" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "else" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "Response.redirect ""NomeDaClasse.asp?Acao=Deletar&Codigo="" & iNomeDaClasse.getCodigo() & ""&Resultado=ERRO: "" & iNomeDaClasse.getResultado()" & Chr(10)
        Temp = Temp & Chr(9) & "end if" & Chr(10)
        Temp = Temp & "End Select" & Chr(10)
        Temp = Temp & "Set iNomeDaClasse = Nothing" & Chr(10)
        Temp = Temp & "</textarea>"
        Temp = Temp & "<BR><BR><b>TELA SISTEMA</b><BR><BR><textarea cols=""115"" rows=""30"" name=""Servlet"" id=""Servlet"" style=""word-break : keep-all; word-wrap : normal; overflow : scroll;"">"
        Temp = Temp & "<!--#include file=""includes/include_cabecalho.asp""-->" & Chr(10)
        Temp = Temp & "<#Set iNomeDaClasse = New NomeDaClasse#>" & Chr(10)
        Temp = Temp & "<center>" & Chr(10)
        Temp = Temp & "<table width=""90%"" cellspacing=""0"" cellpadding=""2"" border=""0"">" & Chr(10)
        Temp = Temp & "<tr>" & Chr(10)
        Temp = Temp & Chr(9) & "<td valign=""middle"" align=""left""><#Header(""NomeDaClasse"")#></td>" & Chr(10)
        Temp = Temp & "</tr>" & Chr(10)
        Temp = Temp & "<tr>" & Chr(10)
        Temp = Temp & Chr(9) & "<td valign=""middle"" align=""center"">" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "<#Response.write iNomeDaClasse.getFormulario("""",Request(""Codigo""))" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if (Request(""Resultado"") <> """") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Response.write ""<BR><b>"" & Request(""Resultado"") & ""</b><BR>""" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "if (Request(""Acao"") <> """") then" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & Chr(9) & "Response.write ""&nbsp;"" & iNomeDaClasse.getFormulario(Request(""Acao""),Request(""Codigo""))" & Chr(10)
        Temp = Temp & Chr(9) & Chr(9) & "end if#>" & Chr(10)
        Temp = Temp  & Chr(9)& "</td>" & Chr(10)
        Temp = Temp & "</tr>" & Chr(10)
        Temp = Temp & "</table>" & Chr(10)
        Temp = Temp & "</center>" & Chr(10)
        Temp = Temp & "<#Set iNomeDaClasse = Nothing#>" & Chr(10)
        Temp = Temp & "<!--#include file=""includes/include_rodape.asp""-->" & Chr(10)
        Temp = Temp & "</textarea>"
        getHTMLForm = Temp
    End Function

    Private Sub Class_Terminate
        if (ConexOpen) then
            ConexDB.Close
            Set Results = Nothing
        end if
        Set ConexDB = Nothing
    End Sub
End Class
%>