<%
response.buffer = true
%>
<%
If request("Flag") = "" then
Flag = 0
Else
Flag = request("Flag")
End If
%>
<% Select Case Flag %>
<% Case 0 %>
<%
Public Function BuscaSiguiente()
set RS = Server.CreateObject("ADODB.RecordSet")
StrSql = "SELECT MAX(ID_SECTOR) AS CodigoMaximo FROM c21_sectores"
Set RS = Conn.Execute(StrSql)
If Not RS.EOF Then
If Not IsNull(RS.Fields(0).Value) Then
BuscaSiguiente = RS.Fields(0).Value + 1
Else
BuscaSiguiente = 1
End If
Else
BuscaSiguiente = 1
End If
RS.Close
Set RS = Nothing
Exit Function
End Function
%>
Adición de Sectores - Remax Cima
<% Case 1 %>
<%
NOMBRE = request.form("NOMBRE")
STATUS = request.form("STATUS")
Query = "INSERT INTO c21_sectores VALUES ("
Query = Query & BuscaSiguiente & ","
Query = Query & Comillas (NOMBRE) & ","
Query = Query & ComillasMin (STATUS) & ")"
Mensaje="Registro Adicionado"
Set RS=Conn.Execute(Query)
If err.number>0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & "
"
response.write "Error Descr.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
End if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & "
"
response.write SQLstmt & "
"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "
"
response.write "Error desc. -> " & conn.errors(counter).description & "
"
next
Else
response.redirect "act_sectores.asp"
End if
Conn.Close
Set Conn = Nothing
End Select
%>