Problème de connexion OLEDB que j'arrive pas à résoudre

[Wisline]

J'ai un projet en asp classique, j'ai réalisé une BD sous sql server2000
Voilà le code d'erreur:

Erreur de compilation Microsoft VBScript error '800a03ea'

Erreur de syntaxe

/iisHelp/common/500-100.asp, line 205

"&os=&over=&hrd=&Opt1=" & Server.URLEncode(objASPError.ASPCode) & "&Opt2=" &
----------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

/PROJET/hotelreservation/confirmation.asp, line 14

j'ai un formulaire client simple dont le nom prenom email adresse, etc
et j'ai une autre page de confirmation dont ces données récupérées du formulaire seront insérées dans ma BD,voici la page confirmation:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim 
req, cx, rs, nom, prenom, adresse, pays, ville, tel, email
nom = Request.Form("id_nom")
prenom = Request.Form("id_prenom")
 adresse = Request.Form("id_adr")
pays = Request.form("id_country")
ville = Request.form("id_ville")
tel = Request.form("id_tel")
email = Request.form("id_mail")
 
 
Set cx = Server.CreateObject("ADODB.connection")
    cx.Open Application("PC")
req = "requete_client_insert'"& nom &"','"& prenom &"','" & adresse & "','" & ville & "','" & pays & "','" & tel & "','" & email & "'"
 
Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open req, cx, 3,3
 
Set rs = nothing
    cx.Close()
    Set cx = Nothing

voici ma chaine de connexion:

Code :

1
2
3
4
5
 
Sub Application_OnStart() 
 
Application("App") = "Provider=SQLOLEDB.1;Initial Catalog=clientele;Data Source=Iko;User Id=yet;PASSWORD=yet;"        
End Sub

Merci de m'aider

[pc75]

Bonjour,

Il y a un truc que je ne pige pas ; Tu déclares :

Code :

1
2
3
4
Sub Application_OnStart()
Application("App") = "Provider=SQLOLEDB.1;Initial Catalog=clientele;Data Source=Iko;User Id=yet;PASSWORD=yet;"
End Sub

Mais tu utilises :

Code :

1
2
cx.Open Application("PC")