PB base de données

Bonjour je suis nouveau
Voilà j'ai une grosse galère depuis 15 jours avec ASP VBSCRIPT et ACCESS, j'ai essayé plein de scripts mais rien ne fonctionne correctement, rien ne vaut un aperçu du pb
voici le code

Dim conn, new_id, new_pass, req, new_acces, new_date, chaine
Set conn=Server.createObject("ADODB.connection")
conn.open "amis","",""
new_id=request.form("nom")' recuperation du nouveau identifiant
new_pass="motpasse" 'idem pour le nouveau pass
new_acces=request.form("prenom") 'idem pour le nouveau pass
new_date=request.form("civilite")
req="INSERT INTO LOGIN (ID_LOGIN, PWD, DERNIER_ACCES, DATE_VALIDATION) VALUES('" & new_id & "','" & new_pass & "','" & new_acces & "','" & new_date & "')"

conn.Execute(req) >>>>----LIGNE 34------->>>>>
conn.Close
set conn=nothing

et voici le résultat

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 OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.

/Inscription/traitformenseignsav.asp, line 34

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. bonjour
    je voudrais savoir les formules de base de donnees svp

    merci
    1. il faut que tu crée une connection avec ta base de données

      Dim leFournisseur, laBase, conn
        Set conn = Server.CreateObject("ADODB.connection")
        leFournisseur = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        laBase = Server.MapPath(".") & adresse_de_ta_base
        conn.Open leFournisseur & "DATA SOURCE=" & laBase
        


      ensuite tu as oublié un request.form pour new_pass
      1. Ca y est en partie, en fait le gros pb est que le script 500-100.asp est plein d'erreurs de syntaxe bref, j'ai pu en corriger une grande partie mais il semblerait que ce n'est pas assez car une fois que je suis arrivé à la fin les erreurs sont remontées et maintenant voilà où se trouverait l'erreur sais tu où je peux avoir un script tout ok pour commencer à connaitre mes erreurs et non celles de microbe soft STP
        Merci
        Nana

        If Response.Buffer Then
        Response.Clear Response.Status = "500 Erreur interne du serveur"
        Response.ContentType = "text/html"
        Response.Expires = 0
        End If