%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Inicializamos la variable de control de errores de la carrera errorCarrera = 0 'Recuperamos el código de la carrera de los datos proporcionados al formulario carrera = Request.QueryString("carrera") if carrera = "" then carrera = 159 end if 'Comprobamos si nos han pasado el código de la carrera if carrera="" then 'En caso de que no nos hayan pasado el código de la carrera marcamos la variable de error con Código Inexistente errorCarrera = 1 elseif not isNumeric(carrera) then 'Si el código de carrera introducido no es numérico, marcamos la variable de error con Código Incorrecto errorCarrera = 2 else 'Si tenemos código de carrera recuperamos de la base de datos la información relativa a la misma 'Creamos la conexion con la base de datos. Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open bd_inscripciones 'Creamos el recordSet correspondiente a los datos de la carrera Set rsCarrera = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlCarrera = "SELECT * FROM carreras WHERE CodCarrera = " + CStr(carrera) + " AND Sitio3" rsCarrera.Open sqlCarrera, dbConn 'Obtenemos los datos de la carrera if rsCarrera.EOF Then 'Si no hay registros, significa que el código de la carrera es incorrecto, por lo que marcamos la variable de error con el código correspondiente errorCarrera = 2 elseif rsCarrera.recordCount > 1 then 'Se ha producido un error de configuración en la base de datos, por lo que se indica tal extremo en la variable de error errorCarrera = 3 else nombreCarrera = rsCarrera("NombreCarrera") fechaCarrera = rsCarrera("FechaCarrera") estadoCarrera = rsCarrera("Estado") urlReglamento = rsCarrera("urlReglamento") urlOrganizador = rsCarrera ("urlOrganizador") carreraAbierta = rsCarrera("Estado") solicitarLicencia = rsCarrera("Licencia") solicitarTiempo = rsCarrera("Tiempo") end if 'Solamente continuamos con la ejecución del código si no se ha producido ningún error if errorCarrera = 0 then 'Creamos el recordSet correspondiente a los tipos de inscripción de la carrera Set rsTipos = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlTipos = "SELECT * FROM tiposinscripcion WHERE CodCarrera = " + CStr(carrera) + " and inicio<=now() and fin>=now();" rsTipos.Open sqlTipos, dbConn 'Creamos el recordSet correspondiente a los paises Set rsPais = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlPais = "SELECT * FROM paises" rsPais.Open sqlPais, dbConn end if end if %>
<% if errorCarrera = 0 then %>|
Servei Inscripcions on-line |
||
|
S'ha produït el següent error: <%=muestraErrorCarrera(errorCarrera)%> Si l’error persisteix, per favor, posi’s en contacte amb l’administrador de la pàgina a l’adreça <%=emailPagina%> |
|
|
||
|
Inscripcions Tancades L'Entitat Organitzadora de la cursa "<%=nombreCarrera%>"ha tancat les inscripcions per a la present edició. Per a qualsevol informació relativa a la cursa i al termini d'inscripció es pot dirigir a l’Entitat Organitzadora. |
|
|
||
|
Instruccions per a tramitar la inscripció Empleneu el formulari i premeu ENVIAR. Vostè anirà a un servidor segur propietat de l'entitat bancària. Allà haurà de complimentar les dades necessàries i la seva inscripció es realitzarà automàticament. Complimentar aquest formulari suposa l'acceptació del reglament de la cursa.Per a qualsevol reclamació i/o anul•lació, el comprador cal que es posi en contacte amb entitat organitzadora de la cursa. Instrucciones para tramitar la inscripción Para tramitar la inscripción rellene el formulario y pulse sobre el botón ENVIAR. La conexión será redirigida a un servidor seguro de nuestra entidad bancaria en el que le solicitarán los datos de su tarjeta de crédito para realizar el pago del importe de la cuota de inscripción. Al rellenar este formulario y pulsar sobre el botón "Enviar" usted reconoce haber leído y estar de acuerdo con el reglamento de la carrera. Para cualquier reclamación y/o anulación se tiene que poner en contacto con la entidad organizadora de la carrera. Registration Instructions Fill in the form and hit SEND. You will be taken automatically to a secure page belonging to a financial institution. At that time you will be required to fill in the necessary data and your race registration will be immediately processed. The completion of this form implies the acceptance of the race rules. For any claim and/or cancellation, the purchaser should contact the race organizer. |