How Can I make conect with sql server

In this code, I don′t know what is wrong.

<%

Set conexao = Server.CreateObject("ADODB.Connection")
stringconexao = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=username;Password=password;Initial Catalog=GeoSite;sdb=geocontrol;Data Source=128.2.1.158"
' Abro a conex?o
conexao.open(stringconexao)
dim mat
mat=1

sql= "insert into sscusuar(cdmatricu,email) values ('"&mat&"','"&Request.form("cemail")&"')"
conexao.execute(sql)
%>

___________________
Edited by moderator SomeNewKid
Removed login credentials.

What is the error that you are getting?|||thanks, for your help, but now I know the number of ip was worg, sorry for make you to lose time,