<% Response.Buffer = True %> <% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> agenda -- Eliminar <% If Request("btnAction") = "Nuevo" Then Response.Redirect "" End If %> <% If Request.QueryString("idagenda") = "" Then fp_sMyQry = "" nCount = 0 For Each Field In Request.Form If Request.Form(Field) = "ON" Then If nCount = 0 Then fp_sMyQry = "'" & Field & "'" Else fp_sMyQry = fp_sMyQry & "%20OR%20idagenda='" & Field & "'" End If nCount = nCount + 1 End If Next 'Field If Len(fp_sMyQry) > 0 Then sRedirect = "delete.asp?idagenda=" & fp_sMyQry Response.Redirect sRedirect End If End If %> <% if Len(Request("ConfirmDelete")) = 0 then %> <% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM agenda WHERE idagenda = ::idagenda::" fp_sDefault="" fp_sNoRecords="" fp_sDataConn="lavueltaacaballo" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=5 fp_fTableFormat=True fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_iDisplayCols=19 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>
idagenda nombrea apellidosa direcciona ciudada edooprova codpostala paisregiona correoelectronicoa telefono1 telefono2 telefono3 telefono4 fechanacimiento apodo aficiones fotografia opcional
No se devolvió ningún registro.
<%=FP_FieldVal(fp_rs,"idagenda")%> <%=FP_FieldVal(fp_rs,"nombrea")%> <%=FP_FieldVal(fp_rs,"apellidosa")%> <%=FP_FieldVal(fp_rs,"direcciona")%> <%=FP_FieldVal(fp_rs,"ciudada")%> <%=FP_FieldVal(fp_rs,"edooprova")%> <%=FP_FieldVal(fp_rs,"codpostala")%> <%=FP_FieldVal(fp_rs,"paisregiona")%> <%=FP_FieldVal(fp_rs,"correoelectronicoa")%> <%=FP_FieldVal(fp_rs,"telefono1")%> <%=FP_FieldVal(fp_rs,"telefono2")%> <%=FP_FieldVal(fp_rs,"telefono3")%> <%=FP_FieldVal(fp_rs,"telefono4")%> <%=FP_FieldVal(fp_rs,"fechanacimiento")%> <%=FP_FieldVal(fp_rs,"apodo")%> <%=FP_FieldVal(fp_rs,"aficiones")%> <%=FP_FieldVal(fp_rs,"fotografia")%> <%=FP_FieldVal(fp_rs,"opcional")%>
<%select case fp_iCount %> <%case 0:%>

Haga clic en Aceptar para actualizar.

<%case 1:%>

¿Seguro que desea eliminar este registro?

<%case else:%>

¿Seguro que desea eliminar estos registros?

<%end select%>
<% Response.end ElseIf Request("ConfirmDelete") = "Cancelar" Then Response.Clear Response.Redirect "detail.asp" End If %> <% if 0 then %> <% end if %> <% fp_sQry="DELETE FROM agenda WHERE idagenda = ::idagenda::" fp_sDefault="" fp_sNoRecords="Registro eliminado de la tabla." fp_sDataConn="lavueltaacaballo" fp_iMaxRecords=1 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_iDisplayCols=16 fp_fCustomQuery=True BOTID=1 fp_iRegion=BOTID %>