asp ติดต่อ sql server 2000 โดยการใช้ Integrated Security=SSPI

<%
	On Error Resume Next	'*** Not Show ASP Error  ***'
	Dim Conn1
	Set Conn1 = Server.Createobject("ADODB.Connection")
	Conn1.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;" 
	If Err.Number <> 0 Then
		Response.write("(SQL Server Driver) Database cannot connect Error = " & Err.Description&"<br>")
	Else
		Response.write("(SQL Server Driver) Database connected.<br>")
	End If
	
	Conn1.Close()
	Set Conn1 = Nothing

	Dim Conn2
	Set Conn2 = Server.Createobject("ADODB.Connection")
	Conn2.Open "mydatabase","sa",""
	If Err.Number <> 0 Then
		Response.write("(ODBC) Database cannot connect Error = " & Err.Description&"<br>")
	Else
		Response.write("(ODBC) Database connected.<br>")
	End If
	
	Conn2.Close()
	Set Conn2 = Nothing


%>