%@ Language=VBScript%> <% mes = "" IsSuccess = false sFile = Trim(Request.Form("txtFile")) sUser = Trim(Request.Form("txtUser")) if Request("__action")="TestDB" then TestDB() end if Sub TestDB() sPassword = Trim(Request.Form("txtPassword")) Err.Clear() on error resume next FilePath = Server.MapPath(sFile) if len(Err.Description)=0 then Set objConn = Server.CreateObject("ADODB.Connection") if len(Err.Description)<>0 then mes = " " & Err.Description & " MS Access connection can't be established!" else objConn.ConnectionString = _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & FilePath & _ ";User ID=" & sUser & _ ";Password=" & sPassword objConn.Open if len(Err.Description)<>0 then mes = " " & Err.Description & " MS Access connection can't be established!" else mes = " MS Access connection succesfull established!" IsSuccess = true end if end if else mes = " " & Err.Description end if Set objConn = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "
|
|
|
Les schipperkes du Roz de Kerhas vous remercient pour tout l'intérêt que vous avez porté à cette page, bonne continuation...
The schipperkes of Roz de Kerhas thank you for all the interest which you carried in this page, good continuation… ©
Les photos et le contenu de ce site sont la propriété exclusive de l'élevage
familial Du Roz de Kerhas. Eleveur N°290164. Certificat de capacité N°29-232.
Actif au répertoire SIRENE. Reproduction interdite - licence Créative Commons
Paternité-2.0
France <
|