Bonjour à tous, étudiant en programmation au clavier! Je commence en ASP.NET et j'ai un problème que je ne peux m'expliquer, Quand je roule la page suivante j'obtient l'erreur de compilation suivante:
BC30451 : Le nom 'txtNom' n'est pas déclaré.
le txtNom est bien déclaré dans mon formulaire alors je ne comprend pas trop... si quelqu'un pourrait m'aider je l'apprécierais grandement! Merci!
<%@ Page language="vb" explicit="true" debug="true"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<script runat="server">
Sub Page_Load(sender as Object, e As EventArgs)
If Page.IsPostBack then
InsertRecord()
End If
End Sub
Sub InsertRecord()
Dim conClasf As OleDbConnection
Dim cmdClasf As New OleDbCommand
Dim strClasf As String
Dim strSQL As String
Dim intRowsAff As Integer
lblErrMsg.Text= ""
lblRecsAff.Text= ""
strClasf = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
server.Mappath("biblio_Metro.mdb") & ";"
conClasf = New OleDbConnection(strClasf)
conClasf.Open
Randomize
strSQL= "INSERT INTO Utilisateurs (" & _
"Numéromembre, " & _
"Prénom, " & _
"Nom, " & _
"Rue, " & _
"Ville, " & _
"Province, " & _
"CodePostal, " & _
"Téléphone, " & _
"Courriel, " & _
"MotDePasse " & _
") VALUES ('" & _
Clng(Rnd() * 9)+ 10000 & _
"', '"
txtNom.Value & _
"', '" & _
Replace(txtPrenom.Value, "'", "''") & _
"', '" & _
Replace(txtAdresse.Value, "'", "''") & _
"', '" & _
Replace(txtCity.Value, "'", "''") & _
"', '"
OptProvince.Value & _
"', '"
txtCodePostal.Value & _
"', '"
txtPhone.Value & _
"', '"
txtEmail.Value & _
"', '"
txtPW.Value & _
"') "
conClasf.Close
End Sub
</script>
<html>
<head>
</head>
<body>
<title>Bibliothèque Métro -Les livres à la portée de tous!-</title>
<center><a href="Acceuil.aspx"><img src="Inscriptions.gif"/></a><BR/>
<table>
<tr><td><A HREF="Acceuil.aspx">[Acceuil]</A></td>
<td><A HREF="Reservations.aspx">[Recherches & Réservations]</A></td>
<td>[Biographies D'auteurs]</td>
<td>[Forums]</td>
<td><a href="Clubs.aspx">[Club de Livres]</a></td>
</tr>
</table>
<br/>
<img src="computer.jpg"/>
<hr>
<FONT FACE=Rockwell Size=4 Color= Gray>Être membre de la bibliothèque vous permet non seulement de pouvoir emprunter des livres, mais
vous donne également accès à une foule d'avantages. Vous pourrez réserver des livres directement
à partir de ce site, faire part de vos coup de coeur et de vos opinions dans nos forums. Finalement,
les Clubs de Livres vous ouvre ses pages! Vous n'avez qu'à vous inscrire ci-dessous!</FONT><BR></CENTER>
<BR>
<form id="Form1" method="Post" runat="server">
<Table CellPadding = 2 Cellspacing= 2>
<TR>
<TD>
Nom: <input id="Text1" type="text" name="txtNom" runat="server"/>Prénom: <Input id="Text2" type="text" Name="txtPrenom" runat="server"> <Input id="Radio1" type="radio" Name="rdoSex" runat="server">M.<Input id="Radio2" type="radio" Name="rdosex" runat="server">Mme
</TD></TR>
<TR>
<TD> Adresse: <Input id="Text3" Type="text" Name="txtAdresse" runat="server">Ville:<INPUT id="Text4" TYPE="text" NAme=txtCity runat="server">Province:<SELECT id="SELECT1" NAME=optProvince runat="server">
<Option>Colombie-Britannique</Option>
<Option>Alberta</Option>
<Option>Saskatchewan</Option>
<Option>Manitoba</Option>
<Option>Ontario</Option>
<Option>Québec</Option>
<Option>Nouveau-Brunswick</Option>
<Option>Ile-du-Prince-Edouard</Option>
<Option>Nouvelle-Écosse</Option>
<Option>Terre-Neuve-et-Labrador</Option>
<Option>Yukon</Option>
<Option>Territoires du N-O</Option>
<option>Nunavut</Option>
</SELECT>
Code Postal: <Input id="Text5" type="text" Name="txtCodePostal" runat="server">
</TD></TR>
<TR><TD>
Numéro de Téléphone: <Input id="Text6" Type= "text" name="txtPhone" runat="server">
</td></tr>
<tr><td>
Adresse de courriel: <INPUT id="Text7" TYPE="text" Name="txtEmail" runat="server">Veuillez entrer une adresse valide pour confirmer votre inscription
</tr></td>
<tr><td>
Mot de Passe:<INPUT id="Text8" TYPE="text" Name="txtPW" runat="server">Entrez le mot de passe que vous désirez utiliser
</TD></TR>
</TABLE>
<INPUT TYPE="Submit" NAME="cmdValider" VALUE= "Valider">
<INPUT TYPE="reset" NAME="cmdEffacer" VALUE= "effacer">
</form>
<p><asp:label id="lblRecsAff" runat="server" /></p>
<p><asp:label id="lblErrMsg" runat="server" /></p>
<HR>
<CENTER>
<table>
<TR><TD><A HREF="Acceuil.aspx">[Acceuil]</A></TD>
<TD><A HREF="Reservations.aspx">[Recherches & Réservations]</A></TD>
<TD>[Biographies D'auteurs]</TD>
<TD>[Forums]</TD>
<TD><A HREF="Clubs.aspx">[Club de Livres]</A></TD>
</TR>
</table>
</CENTER>
<HR>
Dernière Modification de cette page:
<Script Language= "vbscript">
Document.Write Document.LastModified
</script>
</body>
</html>