<% 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 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 conn.close set conn = nothing end if %>
 

 

 

REGACIC ANUALES 2023

INSCRIPCIÓN EN LA REGACIC DEL 3 DE DICIEMBRE
<% finish = "12/02/2023 20: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      M      S

<% else %>

LA INSCRIPCIÓN A ESTA REGATA 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 20:00 HS DEL DIA PREVIO A CADA REGATA.

<% 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 "M" color="#00CC99" InscriptosM = InscriptosM + 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 + InscriptosM + InscriptosS %> barcos - A= <%=InscriptosA%> - B= <%=InscriptosB%> - C= <%=InscriptosC%> - D= <%=InscriptosD%> - EF= <%=InscriptosE + InscriptosF%> - M= <%=InscriptosM%> - S= <%=InscriptosS%>