<%Session.LCID = 1034%> :: ASTUR PAINTBALL ::
Iniciocontacte con nosotrosForo


Si deseas las fotos a tamaño real, envianos un email indicandonos tu grupo, la foto y la fecha.
<% Response.Buffer = True ' Get action a = Request.Form("a") Select Case a Case "S": ' Get Search Criteria ' Build search criteria for advance search, remove blank field search_criteria = "" x_id_foto = Request.Form("x_id_foto") z_id_foto = Request.Form("z_id_foto") If x_id_foto <> "" Then srchFld = x_id_foto this_search_criteria = "x_id_foto=" & Server.URLEncode(srchFld) this_search_criteria = this_search_criteria & "&z_id_foto=" & Server.URLEncode(z_id_foto) Else this_search_criteria = "" End If If this_search_criteria <> "" Then If search_criteria = "" Then search_criteria = this_search_criteria Else search_criteria = search_criteria & "&" & this_search_criteria End If End If x_nombre = Request.Form("x_nombre") z_nombre = Request.Form("z_nombre") If x_nombre <> "" Then srchFld = x_nombre this_search_criteria = "x_nombre=" & Server.URLEncode(srchFld) this_search_criteria = this_search_criteria & "&z_nombre=" & Server.URLEncode(z_nombre) Else this_search_criteria = "" End If If this_search_criteria <> "" Then If search_criteria = "" Then search_criteria = this_search_criteria Else search_criteria = search_criteria & "&" & this_search_criteria End If End If x_fecha = Request.Form("x_fecha") z_fecha = Request.Form("z_fecha") If x_fecha <> "" Then srchFld = x_fecha srchFld = EW_UnFormatDateTime(srchFld,0) this_search_criteria = "x_fecha=" & Server.URLEncode(srchFld) this_search_criteria = this_search_criteria & "&z_fecha=" & Server.URLEncode(z_fecha) Else this_search_criteria = "" End If If this_search_criteria <> "" Then If search_criteria = "" Then search_criteria = this_search_criteria Else search_criteria = search_criteria & "&" & this_search_criteria End If End If If search_criteria <> "" Then Response.Clear Response.Redirect "fotoslist.asp" & "?" & search_criteria End If End Select ' Open Connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str %>s
fecha  =   <% Public Function Fecha(dtDate) If Not IsNull (dtDate) Then Fecha = Month(dtDate) & "/" & Day(dtDate) & "/" & Year(dtDate) Else Fecha = dtDate End If End Function x_fechaList = " <% anterior="" ' Empezamos nuestro bucle para rellenar la lista do until rswrk.EOF if (anterior<>rswrk.Fields("fecha")) then fecha(rswrk.Fields("fecha")) %> <% end if anterior=rswrk.Fields("fecha") rswrk.MoveNext loop ' Si no utilizaramos más la base de datos ' cerramos aquí los objetos rs y oConn rswrk.Close Set rswrk = Nothing %>  

 
Tel./Fax : 985 240 527 • Móvil: 639 577 327 - 670 432 377 • www.asturpaintball.com