1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| <HTML>
<HEAD>
<TITLE>Inscription</TITLE>
<%
'declaration des variables et recup des données
dim mail
dim pass
dim nom
dim adresse
dim codepostal
dim ville
mail = Request.Form("mail")
pass = Request.Form("pass")
nom = Request.Form("nom")
adresse = Request.Form("adresse")
codepostal = Request.Form("codepostal")
ville = Request.Form("ville")
' IP ou Nom du serveur mySQL
ServerAddress = "localhost" 'localhost si c'est sur la même machine
' Nom de la base de données
DBName = "micro-sell"
' Login pour la base
UID = "root"
' Mot de passe pour la base
Password = "root"
' Ici on construit la chaine de connexion ODBC
LE_DSN = "driver={MySQL ODBC 3.51 Driver};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"
' Paramètre de connexion + connexion
Set MaConnexion = Server.CreateObject("ADODB.Connection")
MaConnexion.ConnectionTimeout = 30
MaConnexion.CommandTimeout = 30
MaConnexion.Open LE_DSN
%>
</HEAD>
<BODY>
<H3>S'inscrire en ligne</H3><br>
<form name="form" action="" method="post">
Mail : <input type="text" name="mail"><br>
Mot de passe : <input type="password" name="pass"><br>
Nom : <input type="text" name="nom"><br>
Adresse : <input type="text" name="adresse"><br>
CP : <input type="text" name="codepostal"><br>
Ville : <input type="text" name="ville"><br>
<input name="submit" type="submit" id="submit" value="valider">
</form>
<%
if request.form("submit")="valider" then
Maconnexion.execute("INSERT INTO membre2 (mail, pass, nom, adresse, codepostal, ville) VALUES ('" & mail & "', '" & pass & "', '" & nom & "','" & adresse & "','" & codepostal & "','" & ville & "')")
end if
Maconnexion.close()
%>
</BODY>
</HTML> |
Partager