WEB MATRIX sputtana il codice!?

**max161** · 23-10-2003, 13:27

poichè i fatti contano + delle parole:

<%@ Page Language="vb" Debug="True" Explicit="True" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

Sub Page_Load(Sender as Object, e as EventArgs)

' controllo se la pagina è stata ricaricata
If Not Page.IsPostBack then

' connessione al db
Dim objConn as SqlConnection
Dim strConn as String
strConn = ConfigurationSettings.AppSettings("cnString")
objConn = New SqlConnection(strConn)

' apro la connessione
objConn.Open()

'apro la query e inizializzo il comando oledbcommand
Dim strSQL as String = "SELECT * FROM Agenti"
Dim objCommand as new SqlCommand(strSQL,objConn)

' creo e popolo il datareader
Dim objDataReader as SqlDataReader
objDataReader=objCommand.ExecuteReader()'CommandBe havior.CloseConnection

'databind dei dati, collegamento al form
lstAgenti.DataSource=objDataReader
lstAgenti.DataBind()
objDataReader.close()

Dim strSQL_Province as String = "SELECT * FROM Province ORDER BY Provincia ASC"
Dim objCommand_Province as new SqlCommand(strSQL_Province,objConn)

' creo e popolo il datareader
Dim objDataReader_Province as SqlDataReader
objDataReader_Province=objCommand_Province.Execute Reader()

'databind dei dati, collegamento al form
lstProvince.DataSource=objDataReader_Province
lstProvince.DataBind()
End If
End Sub

Sub btnAgenti_Click(Sender as Object, e as EventArgs)
Dim objConn as SqlConnection
Dim strConn as String
strConn = ConfigurationSettings.AppSettings("cnString")
objConn = New SqlConnection(strConn)

' apro la connessione
objConn.Open()
Dim strSQL as String = "SELECT * FROM Agenti WHERE IDAgente = " & lstAgenti.SelectedItem.value & " ORDER BY IDAgente"
Dim objCommand as new SqlCommand(strSQL,objConn)

' creo e popolo il datareader
Dim objDataReader as SqlDataReader
objDataReader=objCommand.ExecuteReader()
dgAgenti.DataSource = objDataReader
dgAgenti.DataBind()
End Sub

Sub btnInsAgenti_Click(Sender as Object, e as EventArgs)
Dim objConn as SqlConnection
Dim strConn as String
strConn = ConfigurationSettings.AppSettings("cnString")
objConn = New SqlConnection(strConn)

' apro la connessione
objConn.Open()
Dim strSQL as String = "INSERT INTO [Agenti] ([Nome], [Cognome]) VALUES ('" & Nome.text & _
"','" & Cognome.text & "')"
Dim objCommand as new SqlCommand(strSQL,objConn)

objCommand.ExecuteReader()

End Sub

</script>
<html>
<head>
</head>
<body>
<pre>


<asp

ataGrid id="dgAgenti" AutoGenerateColumns="false" runat="server">
<Columns>
<asp:BoundColumn HeaderText="ID Agente" DataField="IDAgente" />
<asp:BoundColumn HeaderText="Nome" DataField="Nome" />
<asp:BoundColumn HeaderText="Cognome" DataField="Cognome" />
</Columns>
</asp

ataGrid>
<form runat="server">
<table border="1">
<tbody>
<tr>
<td>
Nome:
</td>
<td>
<asp:TextBox id="Nome" runat="server"></asp:TextBox>
</td>
<td>
Cognome:
</td>
<td>
<asp:TextBox id="Cognome" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Indirizzo:
</td>
<td>
<asp:TextBox id="Indirizzo" runat="server"></asp:TextBox>
</td>
<td>
Comune:
</td>
<td>
<asp:TextBox id="Comune" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Provincia:
</td>
<td>
<asp:listbox id="lstProvince" runat="server" rows="1" DataTextField="Provincia" DataValueField="IDProvincia"></asp:listbox>
</td>
<td>
Telefono:
</td>
<td>
<asp:TextBox id="Telefono" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Cellulare:
</td>
<td>
<asp:TextBox id="Cellulare" runat="server"></asp:TextBox>
</td>
<td>
Fax:
</td>
<td>
<asp:TextBox id="Fax" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Email:
</td>
<td>
<asp:TextBox id="Email" runat="server"></asp:TextBox>
</td>
<td>
Data di nascita:
</td>
<td>
<asp:TextBox id="DataNascita" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Codice Fiscale:
</td>
<td>
<asp:TextBox id="CodiceFiscale" runat="server"></asp:TextBox>
</td>
<td>
Partita Iva:
</td>
<td>
<asp:TextBox id="Piva" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td colspan="4">
<h3>Dati bancari:
</h3>
</td>
</tr>
<tr>
<td>
ABI:
</td>
<td>
<asp:TextBox id="ABI" runat="server"></asp:TextBox>
</td>
<td>
CAB:
</td>
<td>
<asp:TextBox id="CAB" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Banca:
</td>
<td>
<asp:TextBox id="Banca" runat="server"></asp:TextBox>
</td>
<td>
Filiale:
</td>
<td>
<asp:TextBox id="Filiale" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Pagamento:
</td>
<td>
<asp:RadioButton id="Assegno" runat="server" groupName="Pagamento" text="Assegno"></asp:RadioButton>
</td>
<td>
<asp:RadioButton id="Bonifico" runat="server" groupName="Pagamento" text="Bonifico"></asp:RadioButton>
</td>
<td>
<asp:RadioButton id="Contanti" runat="server" groupName="Pagamento" text="Contanti"></asp:RadioButton>
</td>
</tr>
<tr>
<td>
Sponsor:
</td>
<td>
<asp:listbox id="lstAgenti" runat="server" rows="1" DataTextField="Nome" DataValueField="IDAgente"></asp:listbox>
</td>
<td>
Data Iscrizione:
</td>
<td>
<asp:TextBox id="DataIscrizione" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Button id="Invia" onclick="btnAgenti_Click" runat="server" Text="Salva"></asp:Button>
</td>
<td>
<asp:Button id="Insert" onclick="btnInsAgenti_Click" runat="server" Text="Inserisci"></asp:Button>
</td>
</tr>
</tbody>
</table>

</form>
</pre>
</body>
</html>

bello eh?

Discussione: WEB MATRIX sputtana il codice!?

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

WEB MATRIX sputtana il codice!?

Permessi di invio