home *** CD-ROM | disk | FTP | other *** search
- <HTML>
- <HEAD>
- <TITLE>AdvDSN Component</TITLE>
- </HEAD>
-
- <BODY>
-
- <%
- Dim AdvDSN, strDriver, strDSN
- Set AdvDSN = Server.CreateObject("AdvDSN.DSN")
- 'Access
- strDriver = "Microsoft Access Driver (*.mdb)"
- strDSN = "DSN=" & Request.Form("Name") & "\0\0"
-
- 'SQL
- 'strDriver = "SQL Server"
- 'strDSN = "DSN=testingsql\0Description=New SQL Server Data Source\0Server=(local)\0DATABASE=pubs\0\0"
-
- 'Excel
- 'strDriver = "Microsoft Excel Driver (*.xls)"
- 'strDSN = "DSN=testingexcel\0Description=New Excel Data Source\0FileType=Excel\0DBQ=C:\EXCELDIR\odbc.xls\0MaxScanRows=20\0\0"
-
- AdvDSN.Remove strDriver, strDSN
- if (AdvDSN.IsError = 1) then
- Response.Write AdvDSN.ErrorReason & "<br>"
- else
- Response.Write "Removed successfully" & "<br>"
- end if
- %>
- <a href="dsp_remove.htm">Back</a>
- </BODY>
- </HTML>
-