<% Dim oConn, rs, SQL, visitas %> <% Function FormatStr(String) On Error GoTo 0 String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "

") String = Replace(String, CHR(10), "
") FormatStr = String End Function Function FormatStrHist(String) On Error GoTo 0 String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "

") String = Replace(String, CHR(10), "
     ") FormatStrHist = String End Function strSql ="SELECT * FROM datos where id_grupo=20100" set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize=15 rs.CursorType=1 rs.LockType=2 rs.open strSQL, oconn visitas = rs.Fields("visitas")+1 rs.Fields("visitas") = visitas rs.Update %> ::.. Canalsnowboard.com ::.. Comunidad del snowboard amateur e independiente
de 2006 Las webcamsLa meteorología¿Cómo están las pistas?estado de carreteras
Estaciones y aptos
Tiendas
Viajes & gangas
El mundo
Cursillos
Reportajes
Queremos saber
La historia
El tablón
fotitos
Las niñas
Comenta
Chati-chati
enlaces
La música
+ Riesgo


  si quieres q te mandemos ofertas, cambios, viajes, etc.

Email

 
..Desde aquí

Msjes a móviles
Buscadores
Pag. amarillas
Callejero
Email GRATUITO
 

>> SORTEO
  La escuela del Valle de Arán sortea clases aquí


 
>>Recomienda
  Recomienda la web a un amigo y así nos ayudas a dar la peich a conocer, click aquí
:::. Patrocinador, La General Surfera Surf-shop:

>> C/ Balmes 308
08006 BARCELONA

Telf. 93 209 05 39

 

LA GENERAL SURFERA SURF SHOP.
<%Response.Write ("" &FormatStrHist(rs("historia")))%>



  >Marcas....
 
  <%if rs("apdo1") <> "" then Response.Write (formatStr(rs("apdo1"))) else Response.Write ("") end if%>

<%if rs("apdo2") <> "" then Response.Write (formatStr(rs("apdo2"))) else Response.Write ("") end if%>

Ofertas en la tienda!!  
  <%if rs("actividades") <> "" then Response.Write (formatStr(rs("actividades"))) else Response.Write ("No hay informacion sobre ofertas en este momento.") end if%>
 

INFO CLIENTES:
<%if rs("noticias") <> "" then Response.Write (formatStr(rs("noticias"))) else Response.Write ("") end if%>
 
 
1997 - 2005::.. Canalsnowboard.com - Comunidad Snowboard, Todos los derechos reservados.
 
<% On Error GoTo 0 oConn.Close set oConn = nothing set rs = nothing %>