<%@ LANGUAGE="PerlScript" %>
<%
use encoding "utf8";
use Encode;

my ($dbParams, $oConn, $oRs, $sql);
$oConn = $Server->CreateObject("ADODB.Connection");
$oConn->Open('Provider=SQLOLEDB;Initial Catalog=template;Data Source=(local);User ID=user;Password=password');
$oRs = $Server->CreateObject("ADODB.Recordset");
$oRs->{ActiveConnection} = $oConn;
$sql = "SELECT [title] FROM [obj] WHERE n=1511";
$oRs->{Source} = $sql;
$oRs->Open();
while(!$oRs->{eof}) {
# Ниже просто проверка путём конвертации и записи в файл.
# Получаются кракозябры и при UCS-2BE, и при любых других юникодных представлениях.
# Такое ощущение, что из базы передаётся просто не юникод.
# Если в decode() указать cp1251, то кириллица показывается нормально.
	open(TEMP, ">:encoding(utf8)", 'E:\temp.txt');
	print TEMP decode("UCS-2BE", $oRs->{title}->{Value});
	close TEMP;
	$oRs->MoveNext();
}
$oRs->Close();
$oConn->Close();
%>

<%@ LANGUAGE="PerlScript" %>
<%
use encoding "utf8";
use Encode;
my ($dbParams, $oConn, $oRs, $sql);
$oConn = $Server->CreateObject("ADODB.Connection");
$oConn->Open('Provider=SQLOLEDB;Initial Catalog=template;Data Source=(local);User ID=user;Password=password');
$oRs = $Server->CreateObject("ADODB.Recordset");
$oRs->{ActiveConnection} = $oConn;
$sql = "select cast(cast([title] as nvarchar(4000)) as varbinary(8000)) as [title] from [obj] where n=1511";
$oRs->{Source} = $sql;
$oRs->Open();
while(!$oRs->{eof}) {
	open(TEMP, ">:encoding(utf8)", 'E:\sites\temp.txt');
	print TEMP decode("UCS-2LE", pack("H*", unpack("H*", $oRs->{title}->{Value})));
	close TEMP;
	$oRs->MoveNext();
}
$oRs->Close();
$oConn->Close();
%>