%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_JornMay_STRING Recordset1_cmd.CommandText = "SELECT * FROM Jornadas" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 DIM Dias(10) DIM Dias2(10) For i=1 TO 10 Dias(i)="" Dias2(i)="" Next Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows i=1 While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) Dias2(i)=(Recordset1.Fields.Item("EuskNomL").Value) Dias(i)=(Recordset1.Fields.Item("EuscNomC").Value) Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() i=i+1 Wend %>
Hasiera ematea Jose Antonio Campos Jaun txit agurgarria, Hezkuntza,
Unibertsitate eta Ikerketa Sailburua |
||
KARMELE ALZUETA SARI BANAKETA
|
||
|
||
Zientzia Hezkuntzan 08/09rako ekintza berriztatzailearen aurkezpena
|
||
Nola garatu zientzia, teknologia eta osasu gaitasuna eskola agenda 21en bidez
|
||
Arbel elektronikoa Fisika eta Kimika irakaskuntzan
|
||
ESPERIENTZIA ETA MATERIALEN ERAKUSKETA |