<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("idmapa") <> "") Then Recordset1__MMColParam = Request.QueryString("idmapa") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_mapa_STRING Recordset1_cmd.CommandText = "SELECT * FROM imatges WHERE idmapa = ? ORDER BY categoria ASC" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> HIPATIA - Biblioteca d'Humanitats - UAB: El mapa com a llenguatge geogrāfic
<%=(Recordset1.Fields.Item("titol").Value)%>

_g.jpg" border="0" class="taula" />

"> <% If Recordset1.Fields.Item("peuimpremta").Value="-" Then %> <% Else %> Referčncia: <%=(Recordset1.Fields.Item("peuimpremta").Value)%> <% Response.Write("") %> <% End If %>
"> <% If Recordset1.Fields.Item("escala").Value="-" Then %> <% Else %> Escala: <%=(Recordset1.Fields.Item("escala").Value)%> <% Response.Write("") %> <% End If %>
"> <% If Recordset1.Fields.Item("peuimpremta").Value="-" Then %> <% Else %> Catāleg Cartoteca "> <% Response.Write("") %> "> <% End If %>
<% If Recordset1.Fields.Item("ref").Value="-" Then %> <% Else %> <%=(Recordset1.Fields.Item("ref").Value)%> <% Response.Write("") %> "> <% End If %>

maig 2008 - Hipatia - Biblioteca d'Humanitats - UAB

<% Recordset1.Close() Set Recordset1 = Nothing %>