Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cx.Open Application("PC")