%@ LANGUAGE="VBSCRIPT" %> <% Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set enlaces = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM links_autonomias order by autonomia" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn enlaces.Open cmdTemp, , 0, 1 %> <% Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set contador = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT count(*) as cont FROM links_autonomias" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn contador.Open cmdTemp, , 0, 1 if not contador.eof then contador.movefirst total=contador("cont") columna=Round((total/2)) end if %>
![]() |
|
|
|
|
|
|||||||||||||||||||||||||||
| |
|
|
|
|||||||||||||||||||||||||||||
| |
|
|
|
|
|
|
||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
| Polígono
Industrial San José de Los Llanos · Industrialdea - Pabellón
8 01230 - Nanclares de la Oca (Alava) Tel.: 945 361 617 / 945 361 624· Fax: 945 361 568 · E-mail: correo@arixpe.com |
|
|||||||||||||||||||||||||||||||