Ajuda migração asp classico

Qual o erro? E o código do erro? A ConnectionString é válida? Precisamos de mais informações pra te ajudar, abraços!

Utilize um Driver ODBC instalado no sistema, que facilita tudo. > Ferramentas Administrativas > Fonte de Dados ODBC (escolha a aba sistema), instale o driver do seu DB. Na aplicação faça a conexão utilizando o nome do Driver ODBC que você criou.

Ou

<%
'==================================================================================
const strserver = "223.223.223.10" '****> SERVIDOR DE BD *************************
const strodbc = "model" '****> NOME DO BD ****************************************
dim intRes, strRes, entra

'***** Função de conexão com o banco de dados *************************************

function Conect()
on error resume next
intRes = 0
set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={SQL Server};Server=" & strserver & _
";Language=Brazilian;Trusted_Connection=no;Uid=" & uid & _
";Pwd=" & pwd & ";Regional=yes;Database=" & strodbc
'--------------------------------------------
if not con.State = 1 then
intRes = 2
strRes = "Não foi possível conectar o servidor. Verifique usuário e senha."
set con = nothing
exit function
end if
'--------------------------------------------
if not Err.Number = 0 then
intRes = 2
entra = Err.Description
entra = replace(entra, Chr(34), "`")
entra = replace(entra, Chr(39), "`")
strRes = entra
Err.Clear
exit function
end if
'--------------------------------------------

end function

'********************************************************************************

'***** Função que executa os comandos no banco de dados *************************

function Exec()
on error resume next
intRes = 0
strRes = "Comando executado."
set rs = Server.CreateObject("ADODB.Recordset")
set rs = con.Execute(strSql)
'-----------------------------------------
if not Err.Number = 0 then
intRes = 2
entra = Err.Description
entra = replace(entra, Chr(34), "`")
entra = replace(entra, Chr(39), "`")
strRes = entra
set rs = nothing
set con = nothing
Err.Clear
Response.Write "<font color='#FF0000'>" & strRes & "</font>"
exit function
end if
'-----------------------------------------

end function

'********************************************************************************
'================================================================================
%>