<% Dim IdiomaPag IdiomaPag="es" Dim strSQL, strSQL2 Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Dim objRs2 Set objRs2 = 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(":: Tarifas")%>
<% strSQL="SELECT * FROM tTarifasZona ORDER BY tarifaZonaID" objRs.Open strSQL,objCn If not objRs.EOF Then Do While not objRs.EOF %> <% objRs.MoveNext Loop else %> <% end if objRs.Close %>
<%=objRs("strTarifaZona_Es")%>
<% Dim cont cont=0 %> <% strSQL = "SELECT TarifaID,curPrecioMin,curPrecioMax,curPortes,curDescuento,curDescTransferencia, tTarifas.bolActivo As bolActivo FROM tTarifas INNER JOIN tTarifasZona ON tTarifasZona.TarifaZonaID=tTarifas.TarifaZonaID WHERE tTarifas.TarifaZonaID="& objRs("TarifaZonaID") & " AND bolActivo=1 ORDER BY tarifaID" objrs2.Open strSQL,objCn if not objRs2.eof then Do While Not objRs2.eof %> <%cont=cont+1 objRs2.MoveNext Loop Else %> <% End if objRs2.Close %>
Precio Min. Precio Max. Portes Descuento % Otros %
<%=objRs2("curPrecioMin")%>  €  <%=objRs2("curPrecioMax")%> €  <%=objRs2("curPortes")%> €  <%=objRs2("curDescuento")%> %  <%=objRs2("curDescTransferencia")%> % 
Sistema en mantenimiento