Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 086 fois - Téléchargée 35 fois
'DEBUT 'Declaration des variables Dim Name Dim Email Dim Commentaire 'récup des valeur de champs en supposant que les champs se nomment name, email et commentaire. Name = Request.Form("name") Email = Request.Form("email") Commentaire = Request.Form("commentaire") 'Connection Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Votre-Provider;" &_ "User ID = Votre-User-ID;" &_ "Pwd = Votre-Pass;" &_ "Initial Catalog = votre-catalogue;" &_ "Initial File Name = votre-fichier" 'Requête objConn.Execute ("INSERT INTO votre-table (nom, email, commentaire) VALUES ('" & Name & "', '" & Email & "', '" & Commentaire & "')") 'Fermeture objConn.Close Set objConn = Nothing 'Réponse de validation Response.Write("Message bien posté") 'OU Adresse de redirection Response.Redirect ("votre-page.asp") 'END
ce problem m'emerde
si qqn veux m'aider envoyé moi une solution sur ce forum ou sur genieship@gmail.com
INSERT INTO data_users (username) VALUES ('testest')
j'obtient:
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft JET Database Engine error '80004005'
L'opération doit utiliser une requête qui peut être mise à jour.
/portal/asp/register.asp, line 202
d'ou cela peu il venir ??? A l'aide :(
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.