<% if Request.QueryString("Submit") <> "" then nombre = ltrim(Request.Querystring("nombre")) tipo = ltrim(Request.Querystring("tipo")) vela = ltrim(Request.Querystring("vela")) club = Request.Querystring("club") patron = Request.Querystring("patron") email = Request.Querystring("email") TE = Request.Querystring("TE") serie = Request.Querystring("serie") rey = Request.Querystring("rey") YaInscripto = false MdbFilePath = Server.MapPath("inscripciones.mdb") set conn = server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQLstmt = "SELECT * FROM regatas" Set RS = conn.execute(SQLstmt) do while not RS.EOF if RS("serie")=serie and RS("vela")=vela and ucase(RS("nombre"))=ucase(nombre) and ucase(RS("tipo"))=ucase(tipo) then YaInscripto=true exit do end if RS.MoveNext loop RS.Close set RS = nothing if YaInscripto <> true then if len(vela)=0 then vela="0" if len(vela)>4 then vela=right(vela,4) if isnumeric(vela)=false then vela=0 ' Check if the validation passed If Request.QueryString("validation") = "passed" Then SQLstmt = "INSERT INTO regatas (nombre,tipo,vela,club,patron,email,TE,serie,fecha,rey)" SQLstmt = SQLstmt & " VALUES ('" & nombre & "','" & tipo & "','" & vela & "','" & club & "','" & patron & "','" & email & "','" & TE & "','" & serie & "','" & Now & "','" & rey & "')" conn.Execute(SQLstmt) End If end if conn.close set conn = nothing end if %>
 

 

 

CAMPEONATO ARGENTINO PHRF 2024

FORMULARIO DE INSCRIPCIÒN

(ver Aviso de Regata 4.3 "Formas de pago")
<% finish = "11/15/2024 15:05:00PM" if DateDiff("n", Now, finish) > 0 then %>

Nombre del barco

Tipo de barco

N Vela

REY

Propietario

Club

Email

TE

Serie  (si desconoce su serie haga clic aqu )
A      B      C      D      E      F

  
<% else %>

LA INSCRIPCI N A ESTE CAMPEONATO HA FINALIZADO.
Si no se inscribi a tiempo por favor no concurra a la cancha de regatas pues interferir con otro barcos que est n disputando puestos en la competencia.
<% end if %>

EL TIEMPO LIMITE PARA INSCRIBIRSE ES A LAS 15:00 HS DEL 15/11.

<% MdbFilePath = Server.MapPath("inscripciones.mdb") set conn=server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" select case Request.Querystring("ORDEN") case "SERIE" SQLstmt = "SELECT * FROM regatas ORDER BY serie" case "NOMBRE" SQLstmt = "SELECT * FROM regatas ORDER BY nombre" case "TIPO" SQLstmt = "SELECT * FROM regatas ORDER BY tipo" case "VELA" SQLstmt = "SELECT * FROM regatas ORDER BY vela" case else SQLstmt = "SELECT * FROM regatas ORDER BY Id DESC" end select set RS = conn.execute(SQLstmt) while not RS.EOF select case ucase(RS("serie")) case "A" color="#FFFFCC" InscriptosA = InscriptosA + 1 case "B" color="#FFCCCC" InscriptosB = InscriptosB + 1 case "C" color="#CCFFCC" InscriptosC = InscriptosC + 1 case "D" color="#CCCCFF" InscriptosD = InscriptosD + 1 case "E" color="#33CCFF" InscriptosE = InscriptosE + 1 case "F" color="#33CCFF" InscriptosF = InscriptosF + 1 case else color="#FFFFFF" InscriptosS = InscriptosS + 1 end select %> <% RS.MoveNext wend RS.close set RS = nothing conn.close set conn = nothing %>
Puede hacer clic en las cabeceras de columna para ordenar el listado seg n su conveniencia
SERIE VELA NOMBRE TIPO PATRON CLUB REY
<%=ucase(RS("serie"))%> <%=clng(RS("vela"))%> <%=ucase(RS("nombre"))%> <%=ucase(RS("tipo"))%> <%=ucase(RS("patron"))%> <%=ucase(RS("club"))%> <%=ucase(RS("rey"))%>
Total inscriptos: <%=InscriptosA + InscriptosB + InscriptosC + InscriptosD + InscriptosE + InscriptosF %> barcos - A= <%=InscriptosA%> - B= <%=InscriptosB%> - C= <%=InscriptosC%> - D= <%=InscriptosD%> - EF= <%=InscriptosE + InscriptosF%>