sub page_load (obj as object, e as eventargs)
''''''''''''''''''''''''''''''''
dim val as integer=request.QueryString("id")
dim objcmdk as new oledbcommand ("select * from messaggio where id="& val &" ", objconn)
dim readk as oledbdatareader
objconn.open
readk=objcmdk.executereader
while readk.read
'per stampare un campo numerico devo mettere getint32
messaggio.text = readk.getstring(3)
'response.Write(ilcookies)
end while
readk.close
objcmdk.connection.close()
'''''''''''''''''''''''''''''''''''''''''''''
end sub
sub inserisci_nuovo_messaggio (obj as object, e as eventargs)
dim ogg as string
dim mess as string
ogg=oggetto.text
mess=messaggio.text
dim sql as string=" insert into messaggio (messaggio) values ('"& mess &"') "
dim objcmd2 as new oledbcommand (sql, objconn)
objcmd2.connection.open()
objcmd2.executenonquery()
objcmd2.connection.close()
end sub
.....
<asp:textbox ID="messaggio" runat="server" Width="520" Height="500" TextMode="MultiLine" Font-Name="verdana" Font-Size="10pt" ForeColor="#0000CC" BorderColor="#0000CC" BorderWidth="1"/>