Biodiverciudad - Concursos

<% concurso=request.querystring("concurso") strSql = "SELECT fecha_inicio, fecha_final FROM fechas WHERE concurso="&concurso&"" set registro2 = Conn.execute(strSql) fecha_inicio=registro2("fecha_inicio") fecha_final=registro2("fecha_final") fecha_inicio = split(fecha_inicio,"/") dia_inicio = fecha_inicio(0) mes_inicio = fecha_inicio(1) anio_inicio = fecha_inicio(2) dia_inicio=cdbl(dia_inicio) mes_inicio=cdbl(mes_inicio) anio_inicio=cdbl(anio_inicio) fecha_inicio=mes_inicio&"-"&dia_inicio&"-"&anio_inicio fecha_final = split(fecha_final,"/") dia_final = fecha_final(0) mes_final = fecha_final(1) anio_final = fecha_final(2) dia_final=cdbl(dia_final) mes_final=cdbl(mes_final) anio_final=cdbl(anio_final) fecha_final=mes_final&"-"&dia_final&"-"&anio_final %>

Te presentamos la galería de algunas de las fotos presentadas al concurso.

<% strSql2 = "SELECT * FROM concurso WHERE (fecha_subida between #"&fecha_inicio&"# and #"&fecha_final&"#) and publicado=yes;" set registro = Conn.execute(strSql2) if (registro.eof and registro.bof) then response.Write("Todavía no hemos publicado las fotos, pronto podrás verlas") else miTabla = registro.GetRows total= UBound(miTabla,2)+1 If Err.Description <> "" then Response.Write "Error en Base de Datos: " & Err.Description & "" Else If registro.BOF=false then registro.MoveFirst end if end if %> <% dim campos campos=1 final="no" do while ((campos"si")) %> <% for k=campos to campos+3 step 1 %> <%next%> <% campos=campos+3 loop end if %>

&volver=resultados">/<%=registro("foto")%>" width="160" height="120" border="0"> <%registro.MoveNext if registro.EOF=true then final="si" k=campos+3 end if %>

¡Pincha en las fotos para leerlo todo sobre cada una de ellas!