<%
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_ASOCIADO) AS CodigoMaximo FROM c21_asociados"
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 Asociados - Remax Cima
<% Case 1 %>
<%
NOMBRE = request.form("NOMBRE")
FOTO_PQ = request.form("FOTO_PQ")
FOTO_GD = request.form("FOTO_GD")
EMAIL = request.form("EMAIL")
TELEFONO_C21 = request.form("TELEFONO_C21")
TELEFONO_PERSONAL = request.form("TELEFONO_PERSONAL")
PERFIL = request.form("PERFIL")
TIEMPO = request.form("TIEMPO")
SLOGAN = request.form("SLOGAN")
STATUS = request.form("STATUS")
Query = "INSERT INTO c21_asociados VALUES ("
Query = Query & BuscaSiguiente & ","
Query = Query & ComillasMin (NOMBRE) & ","
Query = Query & ComillasMin (FOTO_PQ) & ","
Query = Query & ComillasMin (FOTO_GD) & ","
Query = Query & ComillasMin (EMAIL) & ","
Query = Query & ComillasMin (TELEFONO_C21) & ","
Query = Query & ComillasMin (TELEFONO_PERSONAL) & ","
Query = Query & ComillasMin (PERFIL) & ","
Query = Query & ComillasMin (TIEMPO) & ","
Query = Query & ComillasMin (SLOGAN) & ","
Query = Query & ComillasMin (STATUS) & ")"
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_asociados.asp"
End if
Conn.Close
Set Conn = Nothing
End Select
%>