Gracias magosc de nuevo, aunque la verdad es que ahora no he conseguido saber como hacerlo.... Te copio lo que tengo en las 2 páginas a ver que es lo que tengo que escribir...
Pagina Principal:
Cita: <%@ Page Language="VB" %>
<%@ Register TagPrefix="Libreria" TagName="lib_look" Src="~/LIB/look.ascx" %>
<%
Dim op As String
op = Request("op")
Select Case op
Case Else : MostrarPrincipal()
End Select
%>
<script language="vb" runat="server">
Sub MostrarPrincipal()
Response.Write("<h4> Este texto HTML está siendo procesado. </h4>")
End Sub
</script>
Y aki la libreria que está dentro de una carpeta llamada LIB
Cita: <%@ Control Language="VB" ClassName="lib_look" %>
<script runat="server">
Public Sub lib_look_header_main(ByVal title As String)
Response.Write("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN'>" & _
"<html xmlns='http://www.w3.org/1999/xhtml'>" & _
"<head>" & _
"<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' /> " & _
"<title>" & title & "</title>" & _
"</head>" & _
"<body>")
End Sub
Public Sub lib_look_footer_main()
Response.Write("</body></html>")
End Sub
</script>
La idea sería que antes del response.write del defaultx se llame a la funcion header_main y que despues al footer_main para que tenga las etiquetas de html y demás, pero por más que intento hacer referencias a ellas no consigo que salga...
Muchas Gracias