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
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."
%>
</BODY>
</HTML>