<script runat="server">
Public Sub CreateProductHeader()
        'CreateProductHeader = ""
 
        Dim myProductHeader As String
        myProductHeader = "<tr> "
        myProductHeader += "<td style=""width: 70px""> "
        myProductHeader += "<asp:Label ID=""LblProductImage"" runat=""server""" & _
          "Text=""Artikelbild"" "
        myProductHeader += "Font-Bold=""True""></asp:Label>"
        myProductHeader += "</td> "
        myProductHeader += "<td> "
        myProductHeader += "<asp:Label ID=""LblProductDescription""" & _
          "runat=""server"" Text=""Produktbeschreibung"" "
        myProductHeader += "Font-Bold=""True""></asp:Label> "
        myProductHeader += "</td> "
        myProductHeader += "</tr> "
 
 
        'CreateProductHeader = myProductHeader
        Response.Write(myProductHeader)
 
    End Sub
 
 Public Function CreateProduct() As String
        CreateProduct = ""
 
        Dim myProduct As String
        myProduct = "<tr>"
        myProduct += "<td rowspan=""2"" style=""width: 70px; top: 0px; left:" & _
          "0px;"">"
        myProduct += "<asp:Image ID=""ProductImage"" runat=""server""" & _
        "CssClass=""ProductPicPreview"""
        myProduct += "ImageUrl=""~/img/noimage.jpg""/>"
        myProduct += "</td>"
        myProduct += "<td>"
        myProduct += "<table style=""width:100%;"">"
        myProduct += "<tr>"
        myProduct += "<td rowspan=""2"" style=""font-weight: bold; width:" & _
          "180px;"">"
        myProduct += "<asp:HyperLink ID=""ProductName""" & _
        "runat=""server"">Produktname</asp:HyperLink>"
        myProduct += "</td>"
.
.
.
</script>

.
.
.
<div  style="border-style: inset; border-width: thin; ">
        <table style="width: 100%"> 
            <%  Call CreateProductHeader()%>
        </table>
        <table style="width:100%; height: 10px;">    
            <%  Response.Write(CreateProduct)%>
        </table>
</div>
.
.
.

Ciao

J?rgen

PS: geht nicht gibt's nicht