Source Code for http://194.8.136.102/iisdev/odbc/sql.asp

COLOR LEGEND
Server Side Script
Client Side Script
Hyperlink
Include
Frames
Comments
Object Code Link
Standard HTML and Text


<%  @LANGUAGE=VBSCRIPT %>
<%  Option Explicit %>
<HTML>
<HEAD>
<META NAME="generator" CONTENT="Allaire HomeSite 4.0">
<TITLE>ODBC SQL Server @softwing.com</TITLE>
</HEAD>

<BODY BGCOLOR="#ffffff">

<%
Dim xObj, strDriver, strDSN, retval
Set xObj = Server.CreateObject("Softwing.OdbcRegTool")
strDriver = "SQL Server"
strDSN = "DSN=New SQL Server Data Source" & vbNullChar & "Description=New SQL Server Data Source" & vbNullChar
strDSN = strDSN & "Server=(local)" & vbNullChar
' you can easily add user and password by "User=sa" and "Pwd="
strDSN = strDSN & "DATABASE=pubs" & vbNullChar & vbNullChar
retval = xObj.CreateDSN(strDriver, strDSN)
If retval = True then
   Response.Write "DSN Creation successful."
else
   Response.Write "DSN Creation failed."
end if
%>


</BODY>
</HTML>