Hello people, this is my first post and i've got a big problem, let me explain:
I've made an extra Class to my project called Deliberatielijsten.vb in there i have got this code :
[SIZE="2"][CODE]
Public Function krijgtabel6()
Dim tabel As String = ""
Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("Grotedeliberatielijstconnectionstring16").ConnectionString)
Dim cmd As New SqlCommand("SELECT * FROM GroteLijst WHERE NIVEAU=6", conn)
conn.Open()
Dim dr As SqlDataReader
dr = cmd.ExecuteReader()
tabel = "<tr><td><b>ID</b></td><td><b>Lokaal</b></td><td><b>Klas</b></td><td><b>Geplande Start</b></td><td><b>Actuele Start</b></td><td><b>Actuele Einde</b></td><td><b>Voorzitter</b></td></tr>"
Dim sr As New System.IO.StreamReader("C:\Documents and Settings\Frederik\Bureaublad\GIP WERKMAP\GIP WERKMAP\GIP DEFINITIVA 1\GIPVoorstellingKerstmis\layout files\derdegraadberoeps.tpl")
Dim szContent As String = sr.ReadToEnd
Dim szTemp As String
sr.Close()
Do While dr.Read
szTemp = szContent
szTemp = szTemp.Replace("[{id}]", dr.Item("id"))
szTemp = szTemp.Replace("[{lokaal}]", dr.Item("lokaal"))
szTemp = szTemp.Replace("[{klas}]", dr.Item("klas"))
szTemp = szTemp.Replace("[{GeplandeStart}]", dr.Item("GeplandeStart"))
szTemp = szTemp.Replace("[{ActueleStart}]", dr.Item("ActueleStart"))
szTemp = szTemp.Replace("[{ActueleEinde}]", dr.Item("ActueleEinde"))
szTemp = szTemp.Replace("[{voorzitter}]", dr.Item("Voorzitter"))
tabel &= szTemp
Loop
conn.Close()
End Using
Return tabel
End Function[/CODE][/SIZE]
This is the 'derdegraadberoeps.tpl' file where i get my code out :
[CODE][SIZE="2"]<tr>
<td><input type="text" value="[{id}]" size="5" ></td>
<td><input type="text" value="[{lokaal}]" size="5" /></td>
<td><input type="text" value="[{klas}]" size="5"/></td>
<td><input type="text" value="[{GeplandeStart}]"size="15" /></td>
<td><input type="text" value="[{ActueleStart}]"size="15" /></td>
<td><input type="text" value="[{ActueleEinde}]"size="15" /></td>
<td><input type="text" value="[{voorzitter}]"size="15" /></td>
<td><a href="./Invoeren5.aspx?id=[{id}]"><img src="../application_edit.png" border="0"></td>
<td><a href="./Bevestiging5.aspx?id=[{id}]"><img src="../application_delete.png" border="0"></td>
</tr>[/SIZE][/CODE]
as you can see its based with html.
This is a code where i can print my database instead of designing textboxes to the design mode.
[SIZE="2"][CODE] <%
Dim db As New Deliberatielijsten
Response.Write(db.krijgtabel6)
%>[/CODE][/SIZE]
I have got 1 button (START Button) on that page, where i've got a little program behind with an inputbox so i can choose which ID from the database table i want so i can highlight the row with the chosen ID (backcolor mode = red)
[IMG]http://www.freewebs.com/weirdparaliser/overzicht%20begeleider.jpg[/IMG]
Do you understand?
its very hard to get , but i really need your help
Grtz