asp sans dsn

en fait j'ai un code à refaire sans le dsn.......voici le code :
dim requete
dim connectvar
requete="INSERT into CANDIDAT (nm_cnd,prn_cnd,adr_cnd,cp_cnd,vll_cnd,pays_cnd,"
requete=requete& "mail_cnd,tel_cnd,tel2_cnd,ecole,ecole2,prom_cnd,id_metier"
requete=requete& ",nom_cv_cnd,langsite_cnd,dt_cnd,optin_cnd"
if txtdate <> "" then
requete=requete&",dtn_cnd"
end if
if txtdispo <> "" then
requete=requete&",disp_cnd"
end if
requete=requete&") values ("
requete=requete&"'"&txtnom&"',"&"'"&txtpren&"',"&"'"&txtadr&"',"
requete=requete&"'"&txtcode&"',"&"'"&txtville&"',"&"'"&txtpays&"',"&"'"&txtemail&"',"
requete=requete&"'"&txttel&"',"&"'"&txtport&"',"&"'"&txtecole&"',"&"'"&txtecolebis&"',"
requete=requete&"'"&txtpromo&"',"&"'"&tmetier&"',"&"'"&txtnomfic
requete=requete&"',"&"'"&txtsite_lang&"',"&"'"&aujourdhui&"',"&"'"&txtopt_in
if txtdate <> "" then
requete=requete&"',"&"'"&txtdate
end if
if txtdispo <> "" then
requete=requete&"',"&"'"&txtdispo
end if
requete=requete&"')"'
Set connectvar=server.CreateObject("ADODB.Connection")
connectvar.Open"b"
connectvar.Execute(requete)
connectvar.close
end if
end if

Comment faire sans dsn, j'essaye de remplacer la chaine de connection et ça ne marche pas
(avaec bd access)
merci d'avance

Dim ObjConnect
Sub connectionODBC_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& strDbPath &";uid="& strLogin &";pwd="& strPassword &";"
End Sub

Sub connectionOLEDB_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strDbPath &";User Id="& strLogin &";Password="& strPassword &";"
End Sub



Sub sqlQuery(objRS,strSQL)
on error resume next
Err.Clear
Set objRS = ObjConnect.Execute(strSQL)
If Err.number<>0 Then
strSQL=-1
End If
End Sub

Sub connectionClose()
If IsObject(ObjConnect) Then
ObjConnect.Close
Set ObjConnect=nothing
End If
End Sub




-------------------------------
Réponse au message :
-------------------------------

> en fait j'ai un code à refaire sans le dsn.......voici le code :
> dim requete
> dim connectvar
> requete="INSERT into CANDIDAT (nm_cnd,prn_cnd,adr_cnd,cp_cnd,vll_cnd,pays_cnd,"
> requete=requete& "mail_cnd,tel_cnd,tel2_cnd,ecole,ecole2,prom_cnd,id_metier"
> requete=requete& ",nom_cv_cnd,langsite_cnd,dt_cnd,optin_cnd"
> if txtdate <> "" then
> requete=requete&",dtn_cnd"
> end if
> if txtdispo <> "" then
> requete=requete&",disp_cnd"
> end if
> requete=requete&") values ("
> requete=requete&"'"&txtnom&"',"&"'"&txtpren&"',"&"'"&txtadr&"',"
> requete=requete&"'"&txtcode&"',"&"'"&txtville&"',"&"'"&txtpays&"',"&"'"&txtemail&"',"
> requete=requete&"'"&txttel&"',"&"'"&txtport&"',"&"'"&txtecole&"',"&"'"&txtecolebis&"',"
> requete=requete&"'"&txtpromo&"',"&"'"&tmetier&"',"&"'"&txtnomfic
> requete=requete&"',"&"'"&txtsite_lang&"',"&"'"&aujourdhui&"',"&"'"&txtopt_in
> if txtdate <> "" then
> requete=requete&"',"&"'"&txtdate
> end if
> if txtdispo <> "" then
> requete=requete&"',"&"'"&txtdispo
> end if
> requete=requete&"')"'
> Set connectvar=server.CreateObject("ADODB.Connection")
> connectvar.Open"b"
> connectvar.Execute(requete)
> connectvar.close
> end if
> end if
>
> Comment faire sans dsn, j'essaye de remplacer la chaine de connection et ça ne marche pas
> (avaec bd access)
> merci d'avance

Set connectvar = Server.CreateObject("ADODB.Connection")

MdbFilePath = Server.MapPath("bd.mdb") 'ici base de donne

connectvar.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & MdbFilePath & ";" 'sur la meme ligne du haut

...
...
...

Set rsBD = connectvar.Execute(requete)

...
...
...

connectvar.Close 'Fermer la connection
set connectvar = Nothing 'Vider la mémoire