<% Dim IdiomaPag IdiomaPag="es" Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) %> Club Rugby Seminario Tarazona
<%=UCase(":: Secciones de la tienda")%>
<% Dim x strSQL = "SELECT * FROM tSeccionesProductos WHERE bolActivo=True ORDER BY seccionProductoID" objRs.Open strSql,objCn %>
" method="post"> <% Dim cont cont=0 if objRs.eof then %> <% Else Do While Not objRs.eof if x = 0 then Response.Write "" End if %> <% x = x + 1 If x > 1 then x = 0 %> <% End if %> <% cont=cont+1 objRs.MoveNext Loop if x <> 0 then Response.Write "" End if End if objRs.Close %>
No hay secciones en la tienda
<% if objRs("strImgSeccion")<>"" then%> <%else%> <%end if%>
" class=text><%= objRs("strNombreSeccion_es")%>
" class=text>" width="220" border="0" alt="">

" class=text> Imágen no disponible
" class=text>