<% Response.Write "

---

SQL Server Connection" Call DSNinfo("DSN=student;uid=student;pwd=magic") Response.Write "

---

Access Connection Connection" theDSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" theDSN=theDSN & Server.MapPath("/learn/test/biblio.mdb") Call DSNInfo(theDSN) %> The Include file looks like this: <% Sub DSNInfo(strDSN) Set cnn1 = Server.CreateObject("ADODB.Connection") Set rsQuery = Server.CreateObject("ADODB.RecordSet") cnn1.open strDSN Response.Write "ADO Version: " & cnn1.Version Response.Write "
" & vbCrLf Response.Write strVersionInfo & "DBMS Name: " & cnn1.Properties("DBMS Name") Response.Write "
" & vbCrLf Response.Write "DBMS Version: " & cnn1.Properties("DBMS Version") Response.Write "
" & vbCrLf Response.Write "OLE DB Version: " & cnn1.Properties("OLE DB Version") Response.Write "
" & vbCrLf Response.Write "Provider Name: " & cnn1.Properties("Provider Name") Response.Write "
" & vbCrLf Response.Write "Provider Version: " & cnn1.Properties("Provider Version") Response.Write "
" & vbCrLf Response.Write "Provider Friendly Name: " & cnn1.Properties("Provider Friendly Name") Response.Write "
" & vbCrLf If 0 = InStr(LCase(cnn1.Properties("Provider Name")),"oledb") Then ' ### no OLE DB Provider used, therefore : Response.Write "Driver Name: " & cnn1.Properties("Driver Name") Response.Write "
" & vbCrLf Response.Write "Driver Version: " & cnn1.Properties("Driver Version") Response.Write "
" & vbCrLf Response.Write "Driver ODBC Version: " & cnn1.Properties("Driver ODBC Version") Response.Write "

" End If Set rsQuery = Nothing Set cnn1 = Nothing End Sub %>