Noticias de Alutecno

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Noticias de Alutecno <% campo1=Request.form("valor1") campo2=Request.form("valor2") campo3=Request.form("valor3") SQL="SELECT * FROM ofertas" bWhere = False if campo1 <> 0 then aSQL=aSQL & "WHERE tipo='"&campo1&"'" bWhere=True end if if campo2 <> 0 then if bWhere then aSQL=aSQL & " AND ciudad='"&campo2&"'" else aSQL=aSQL & " WHERE ciudad='"&campo2&"'" bWhere=True end if end if if campo3 <> 0 then if bWhere then aSQL=aSQL & " AND precio1='"&campo3&"'" else aSQL=aSQL & " WHERE precio1='"&campo3&"'" bWhere=True end if end if 'Seccion siempre tiene algún valor if bWhere then iseccion="0" aSQL = aSQL & " AND IdSeccion='"&iseccion&"'order by precioeuros asc" else iseccion="0" aSQL = aSQL & " WHERE IdSeccion='"&iseccion&"' order by precioeuros asc" bWhere=True end if 'Response.Write(aSQL) %> <% Dim Recordset1 Dim Recordset1_numRows Set conexion = Server.CreateObject("ADODB.connection") conexion.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") ssql = "SELECT * FROM ofertas "&asql set rs=conexion.execute(ssql) Recordset1_numRows = 0 %> <% Dim rs__numRows Dim rs__index rs__numRows = -1 rs__index = 0 rs_numRows = rs_numRows + rs__numRows %> <% Dim Recordset12 Dim Recordset12_numRows Set conexion2 = Server.CreateObject("ADODB.connection") conexion2.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") ssql2 = "SELECT * FROM tipo_vivienda order by tipo asc" set rs2=conexion2.execute(ssql2) Recordset12_numRows = 0 %> <% Dim rs2__numRows Dim rs2__index rs2__numRows = -1 rs2__index = 0 rs2_numRows = rs2_numRows + rs2__numRows %> <% Dim Recordset13 Dim Recordset13_numRows Set conexion3 = Server.CreateObject("ADODB.connection") conexion3.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") ssql3 = "SELECT * FROM poblacion order by poblacion asc" set rs3=conexion.execute(ssql3) Recordset13_numRows = 0 %> <% Dim rs3__numRows Dim rs3__index rs3__numRows = -1 rs3__index = 0 rs3_numRows = rs3_numRows + rs3__numRows %> <% Dim Recordset14 Dim Recordset14_numRows Set conexion4 = Server.CreateObject("ADODB.connection") conexion4.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") ssql4 = "SELECT * FROM precios" set rs4=conexion.execute(ssql4) Recordset14_numRows = 0 %> <% Dim rs4__numRows Dim rs4__index rs4__numRows = -1 rs4__index = 0 rs4_numRows = rs4_numRows + rs4__numRows %>

alutecno. la mejor carpinteria de aluminio

PROYECTAMOS, FABRICAMOS E INSTALAMOS

<% While ((rs__numRows <> 0) AND (NOT rs.EOF)) %> <% 'Dim Recordset15 'Dim Recordset15_numRows 'Set conexion5 = Server.CreateObject("ADODB.connection") 'conexion5.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") 'ssql5 = "SELECT * FROM tipo_vivienda where id_vivienda=" & (rs.Fields.Item("tipo").Value) & "" 'set rs5=conexion5.execute(ssql5) 'Recordset15_numRows = 0 %> <% 'Dim rs5__numRows 'Dim rs5__index 'rs5__numRows = -1 'rs5__index = 0 'rs5_numRows = rs5_numRows + rs5__numRows %> <% 'Dim Recordset16 'Dim Recordset16_numRows 'Set conexion6 = Server.CreateObject("ADODB.connection") 'conexion6.open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../admin/alutecno.mdb") 'ssql6 = "SELECT * FROM poblacion where id_poblacion=" & (rs.Fields.Item("ciudad").Value) & "" 'set rs6=conexion5.execute(ssql6) 'Recordset16_numRows = 0 %> <% 'Dim rs6__numRows 'Dim rs6__index 'rs6__numRows = -1 'rs6__index = 0 'rs6_numRows = rs6_numRows + rs6__numRows %> <% ' euros=((rs.Fields.Item("preciopts").Value)/166.386) ' Dim MyCurrency 'MyCurrency = FormatCurrency(euros) %> <% rs__index=rs__index+1 rs__numRows=rs__numRows-1 rs.MoveNext() Wend %>

<%=(rs.Fields.Item("comentariopeq").Value)%>

Empresa -Calidad -Productos - Fábrica -Localización -Contacto -Noticias -Distribuidores -Trabaja con nosotros - LOPD

Avda. Torre Mateu, nº 2 Nave 28 Polígono Industrial Els Pinetons 08291 Ripollet (Barcelona)
Telf. 93 692 32 00 Fax 93 692 39 00 E-mail comercial@alutecno.es

dominio propiedad de Alutecno, S.L. gestionado por informàtica llop