Y esto como va y donde va?

[monkyta]

<%
Set Con = Server.CreateObject( "ADODB.Connection" )
on error resume next
Con.Open "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"User Id=myUsername;" & _
"Password=myPassword"

If err.number <> 0 then
response.redirect "error.asp?error_prm=1"& "&err_desc=" & err.Description
else
err.clear
end if
%>

Asi lo hago yo