<%
' création de l'objet de connexion
Set connection = Server.CreateObject("ADODB.Connection")
' chaine de connexion, driver utilisé et ouverture
connection.Open "DBQ=" & Server.MapPath("inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
bien sur en fait voici ma chaine de connection
<%
' création de l'objet de connexion
Set connection = Server.CreateObject("ADODB.Connection")
' chaine de connexion, driver utilisé et ouverture
connection.Open "DBQ=" & Server.MapPath("inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
en shachant quel est bonne et que l'erreur provient du code qui suit:
<%
sql = "SELECT * FROM [inscrit]"
If cstr(Param) <> "" And cstr(Data) <> "" Then
sql = sql & " WHERE [" & cstr(Param) & "] = " & cstr(Data)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, con , 3, 3
%>
l'erreur est la suivante dans la chaine on a :
connection.Open
et dans l'autre parti du code on a
rs.Open sql, con , 3, 3
alors qu'il falait vous vous en douté
rs.Open sql, connection , 3, 3
voila le pourquoi du comment de l'erreur toute conne