bonjour,
a l'origine l'application un "chat" est avec une connexion dns
je voudrai je faire marcher sans dns Malgré plusieurs heures de recherches j'en suis tj au meme point avec le mesg d'erreur :
Variable non définie: 'ChaineConnexion'
/cha2/acces.asp, line 31
le ligne 31 correspond a la chaine de connexion
j'ai mis la meme chaine dans le global asa (est ce important de le mettre aussi dans global.asa ??) mais j'ai tj le meme mesg
qu'est ce qui cloche
nick
Type de navigateur :
ACCESS.asp:
'------ Déclaration des variables
Dim sql
Dim connstring
Dim rs
Dim conn
Dim Maxconnect
Maxconnect=15
application("Maxc")=Maxconnect
connstring="chat"
Sql="select * From user"
Set conn=Server.createObject("ADODB.connection")
ChaineConnexion="DRIVER={Microsoft ACCESS Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") &"datachat.mdb"
Conn.Open ChaineConnexion
Set rs=Server.createObject("ADODB.recordset")
rs.open sql,conn,3,3
if rs.recordcount>=Maxconnect then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "default1.asp"
et voici une partie du GLOBAL.ASA
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
Application.Lock
if Application("admin")="yes" then
Application("admin")="no"
end if
if Application("utilisateur")>=1 then
Application("utilisateur")=Application("utilisateur")-1
end if
Application.Unlock
Dim conn
Set conn=Server.createObject("ADODB.connection")
ChaineConnexion="DRIVER={Microsoft ACCESS Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") &"datachat.mdb"
Conn.Open ChaineConnexion
if session("id_user")<>"" then
Sql="delete * From user where id_user="&session("id_user")
conn.execute(sql)
end if
etc...........