<% Dim autor 'As String autor = oExportarHtml.fConvertToHtml(ficha.fGetAutorFmt(ficha.fGetClase)) If Len(autor)>0 Then %>

Autor  <%=autor%>

<% End If If Len(titulo)>0 Then %>

Título  <%=titulo%>

<% End If Dim editor 'As String editor = oExportarHtml.fConvertToHtml(ficha.fGetEditorSensePrefix) If Len(editor)>0 Then %>

Editor  <%=editor%>

<% End If Dim otrosAutores 'As String otrosAutores = oExportarHtml.fConvertToHtml(ficha.fGetOtrosAutores) If Len(otrosAutores)>0 Then %>

Otros autores  <%=otrosAutores%>

<% End If Dim tituloRev 'As String tituloRev = oExportarHtml.fConvertToHtml(ficha.fGetTituloRevista) If Len(tituloRev)>0 Then %>

Título revista/libro  <%=tituloRev%>

<% End If Dim ciudad 'As String ciudad = oExportarHtml.fConvertToHtml(ficha.fGetCiudad) If Len(ciudad)>0 Then %>

Ciudad  <%=ciudad%>

<% End If Dim editorial 'As String editorial = oExportarHtml.fConvertToHtml(ficha.fGetEditorial) If Len(editorial)>0 Then %>

Editorial  <%=editorial%>

<% End If Dim anyo 'As String anyo = oExportarHtml.fConvertToHtml(ficha.fGetAnyo) If Len(anyo)>0 Then %>

Año  <%=anyo%>

<% End If Dim volumen 'As String volumen = oExportarHtml.fConvertToHtml(ficha.fGetVolumen) If Len(volumen)>0 Then %>

Volumen  <%=volumen%>

<% End If Dim fasciculo 'As String fasciculo = oExportarHtml.fConvertToHtml(ficha.fGetFasciculo) If Len(fasciculo)>0 Then %>

Fascículo  <%=fasciculo%>

<% End If Dim paginas 'As String paginas = oExportarHtml.fConvertToHtml(ficha.fGetPaginas) If Len(paginas)>0 Then %>

Páginas  <%=paginas%>

<% End If Dim coleccion 'As String Dim coleccionNameField 'As String coleccion = oExportarHtml.fConvertToHtml(ficha.fGetColeccion) If Len(coleccion)>0 Then If StartsWith(ficha.fGetColeccion, "http") Then coleccionNameField = "Enlace" Else coleccionNameField = "Colección" End If %>

<%=coleccionNameField%>  <%=coleccion%>

<% End If Dim documento, documentoUrl 'As String documento = ficha.fGetDocumento If documento <> "" Then If StartsWith(documento, FILE_PREFIX) Then documentoUrl = FICHA_PATH & "/" & RemovePrefix(documento, Len(FILE_PREFIX)) ElseIf StartsWith(documento, URL_PREFIX) Then documentoUrl = RemovePrefix(documento, Len(URL_PREFIX)) If Not StartsWith(documentoUrl, "http") Then documentoUrl = "http://" & documentoUrl End If End If %>

Documento  

<% End If Dim resumen 'As String resumen = oExportarHtml.fConvertToHtml(ficha.fGetEntradaResumen) If Len(resumen)>0 Then %> <% End If%>