He retomado hoy el problema con el if y probado lo que me proponíais, pero sigue sin devolver nada. Os pego a continuación todo el código tal y como lo tengo ahora:
Código:
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "dsn=midsn"
Dim Temp
Temp="SELECT * FROM mitabla INNER JOIN otratabla ON otratabla.dni_autor=mitabla.dni_autor WHERE otratabla.dni_autor like '" & session("id_autor") & "' and siadjunto ='si'"
%>
<%
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<br>
Aún no ha enviado ningún archivo.
<%
Else
%>
<% While Not Tabla.EOF%>
<%
Response.Write (Tabla("nombre1"))
Response.Write " "
Response.Write (Tabla("apellidos1"))
Response.Write "<br>"
Response.Write(Tabla("institucion1"))
Response.write "<br>"
Response.Write(Tabla("otra_in1"))
response.Write "<br><br>"
%>
<% If Tabla.fields("nombre2").Value <> "" And IsNull(Tabla.fields("nombre2").Value) = False Then
Response.Write (Tabla.fields("nombre2"))
end if%>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
Y lo que me devuelve es:
Nombre1 Apellidos1
Institucion1
otra_in1
... es decir, no me devuelve nada del nombre2. He comprobado los datos de DB; sí hay y no tienen ningún espacio...
muchas gracias por vuestra ayuda!!