数据库链接错误.晕死了 着急了

我买了一个全能的空间  MSSQL数据库
准备做个站

配置好数据库账号密码后 打开一直出现sql数据库连接出错，请检查连接字串

<%
response.buffer=true
issqldatabase=1 '定义数据库类别，0为access数据库，1为sql数据库
if issqldatabase=0 then
'''''''''''''''''''''''''''''' access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
db = "#01.mdb"        '数据库路径
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)
sqlnowstring="now()"
sqlchar="'"
issqlver="access"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
else
'''''''''''''''''''''''''''''' sql数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sqllocalname   ="(localhost)"        '连接ip  [ 本地用 (local) 外地用ip ]
sqlusername    ="s439643db0"                '用户名
sqlpassword    ="1987118"                '用户密码
sqldatabasename="s439643db0"                '数据库名
connstr = "provider=sqloledb;user id=" & sqlusername & "; password=" & sqlpassword & "; initial catalog = " & sqldatabasename & "; data source=" & sqllocalname & ";"
sqlnowstring="getdate()"
issqlver="sql"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end if

on error resume next
set conn=server.createobject("adodb.connection")
conn.open connstr
session.codepage=936
if err then
err.clear
set conn = nothing
response.write ""&issqlver&"数据库连接出错，请检查连接字串。"
response.end
end if
on error goto 0

set rs = server.createobject("adodb.recordset")



%>

ASP程序的
高手来下

uchome用的是MySQL不是mssql啊