<% response.Expires = -1000 %> <% ' %> <% 'Check if login is from admin if request.Form("codigo")="carahuevo" then Session("admin") = true set oCn = server.CreateObject("ADODB.Connection") sCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("inscripciones.mdb") 'Admin actions dim blnNotify, sMailTo, sEquipo, lngRecordsAffected, sEstado blnNotify = false if Session("admin") and request.Form("accion") <> "" then sSqlUpdate = "UPDATE tb_Inscripciones SET [_confirmada_]=%ok%, [_fecha_confirmacion_]=Now() WHERE [_confirmada_] <> %ok% AND Id=" & request.Form("Id") sSqlDelete = "UPDATE tb_Inscripciones SET [_anulada_]=%ok%, [_fecha_anulacion_]=Now() WHERE Id=" & request.Form("Id") select case request.Form("accion") case "Pagado": sSql = replace(sSqlUpdate,"%ok%","TRUE") blnNotify = true sEstado = "Confirmada" case "Pendiente": sSql = replace(sSqlUpdate,"%ok%","FALSE") blnNotify = true sEstado = "Pendiente" case "Cerrar sesión": Session("admin") = false case "Anulada": sSql = replace(sSqlDelete,"%ok%","TRUE") case "Cambiar", "Modificar inscripción", "Anular inscripción": ' OJO! Las 2 últimas acciones vienen de inscripcion.asp server.transfer "inscripcion.asp" case default: sSql = "" end select if sSql <> "" then oCn.Open sCn oCn.Execute sSql, lngRecordsAffected if blnNotify and lngRecordsAffected > 0 then sMailTo = DBLookup(oCn,"mails","qry_Contactos","id=" & request.Form("Id")) if len(sMailTo) > 0 then sEquipo = DBLookup(oCn,"equipo","tb_Inscripciones","id=" & request.Form("Id")) sSubject = "Inscripción actualizada" sBody = "

Le comunicamos que la inscripción del equipo " & server.htmlencode(sEquipo) & ", ha sido actualizada al estado " & sEstado & "


" call sendMail(sMailTo, sSubject, sBody) end if end if oCn.Close end if end if 'User action if not Session("admin") and request.Form("id") <> "" and request.Form("codigo") <> "" then sSql = "SELECT Count(Id) FROM tb_Inscripciones WHERE" sSql = sSql & " Id=" & request.Form("id") sSql = sSql & " AND [_Codigo_]='" & request.Form("codigo") & "'" sSql = sSql & " AND [_anulada_]=FALSE" oCn.Open sCn set oRs = oCn.Execute(sSql) sOk = (oRs(0).value > 0) oCn.Close if sOk then server.transfer "inscripcion.asp" else sMsg = "El código introducido no es correcto" end if end if %> Equipos Muévete X Marruecos 2014 <% if Session("admin") then %>
<% else %> <% if now() < ecuador_fecha_carrera then %>
<% if now() < ecuador_fecha_limite then %>

Para realizar cambios/anular su inscripción indique el código recibido al realizarla:

<% else %>

El plazo de inscripción ha finalizado y no se permiten cambios. Contacte con la organización si necesita ayuda: <muevete_x_marruecos@muevete.com.es>

<% end if %> Código:
<% end if %> <% end if %>

Equipos inscritos

<% if Session("admin") then %> <% end if %> <% if sMsg <> "" then %>

<%= sMsg %>


<% end if %>
Volver
<% oCn.open sCn sRs = "SELECT * FROM qry_Inscritos ORDER BY categoria DESC, Fecha DESC" set oRs = server.CreateObject("ADODB.Recordset") oRs.Open sRs,oCn if oRS.EOF then %>

No hay ningún equipo inscrito

Solicitar inscripción

<% else 'not oRs.EOF response.Write "" 'cabecera sCabecera = "" if now() < ecuador_fecha_carrera then sCabecera = sCabecera & "" for each f in oRs.Fields if f.name <> "Id" and f.name <> "Categoria" then sCabecera = sCabecera & "" end if next if Session("admin") then sCabecera = sCabecera & "" end if sCabecera = sCabecera & "" ' datos sCategoria = "" do while not oRs.EOF if sCategoria <> ucase(oRs("Categoria").value) then sCategoria = ucase(oRs("Categoria").value) response.Write "" response.Write sCabecera end if response.Write "" 'if Session("admin") then ' response.Write "" 'else if now() < ecuador_fecha_carrera then response.Write "" end if 'end if for each f in oRs.Fields if f.name <> "Id" and f.name <> "Categoria" then response.Write "" end if next if Session("admin") then response.Write "" end if response.Write "" oRs.MoveNext loop response.Write "
Cambios" & f.name & "Administrar

Categoría " & sCategoria & "

" ' response.Write "
" ' response.Write "" ' response.Write "" ' response.Write "
" ' response.Write "
" response.Write "" response.Write "" if f.name = "Estado" then response.Write "" response.Write f.value if f.name = "Estado" then response.Write "" response.Write "" 'response.Write "
" 'response.Write "" 'response.Write " " 'response.Write "" response.Write "" response.Write " " response.Write "" 'ANULACION 'response.Write " " 'response.Write "" 'response.Write "" 'response.Write "
" response.Write "
" end if oCn.Close %>
Volver
<% if Session("admin") then %> <% end if %>