connestring Hvad går der galt her

Hvorfor virker dette ikke ?

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=localhost;DATABASE=afd19;UID=sa;PWD=MinAdgangsKode;"
strSQL = "Select * FROM user_information WHERE ID = " & Session("ID")
set RS = Conn.execute(strSQL)
Response.Write "<B>Velkommen " & rs("username") & "</B><BR><BR>"
response.write "<form action=""gemdata.asp"" method=""post"">"
%>