Her er hele min kode:
<%@ Page language="VB" debug="true"%>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script runat="server">
Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
Dim con AS SqlConnection
Dim cmdSelect AS SqlCommand
Dim dtrModules AS SqlDataReader
con = New SqlConnection("Server=localhost;UID=keld;PWD=c-coy;Database=cms")
cmdSelect = New SqlCommand("SELECT * FROM modules ORDER BY show_order",con)
con.Open()
dtrModules = cmdSelect.ExecuteReader()
while dtrModules.read()
Dim parent As Control = Me.FindControl(dtrModules("show_position"))
If (Not parent Is Nothing)
parent.Controls.Add(Page.LoadControl(dtrModules("src")))
parent.Controls.Add(New LiteralControl("kiss my ass"))
parent.Visible = True
else
response.write ("fejl, kunne ikke finde control")
end if
end while
dtrModules.Close()
con.Close()
end sub
</script>
<html>
<head>
<title></title>
</head>
<body>
<form runat="server">
<table border="1">
<tr>
<td id="LeftPane" valign="top" Visible="false" Width="170" runat="server">LeftPane:</td>
<td id="RightPane" valign="top" Visible="false" Width="170" runat="server">RightPane:</td>
</tr>
</table>
</form>
</body>
</html>
Den skulle tilføje 2 user controls men jeg får teksten 'fejl, kunne ikke finde control' 2 gange.
