Jscript ---> VBscript - "översättning"

Skulle man kunna få hjälp med att skriva om detta till vbscript (?) om det över huvud taget är möjligt?

<%@ language="JScript" %>
<%
function BinToText(varBinData, intDataSizeInBytes){
  var adFldLong = 0X00000080
  var adVarChar = 200
  var objRS = Server.CreateObject("ADODB.Recordset");
  
  objRS.Fields.Append("txt", adVarChar, intDataSizeInBytes, adFldLong);
  objRS.Open();
  
  objRS.AddNew()
  objRS.Fields("txt").AppendChunk(varBinData);
  var tmp = objRS("txt").Value
  objRS.Close();
  delete objRS;
  return tmp;
}
%>

Inte riktigt aktuellt längre, om ingen anser sig svänga ihop en lösning lite så där jätte-enkelt. ;)

Tack för visat intresse.

<%
function BinToText(varBinData, intDataSizeInBytes)
  const adFldLong = 128
  const adVarChar = 200
  set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  objRS.Open
  
  objRS.AddNew
  objRS.Fields("txt").AppendChunk(varBinData)
  tmp = objRS("txt").Value
  objRS.Close
  BinToText = tmp
end function
%>

Hmm, är inte så hemma på ADO.Recordset så det får du nog ändra ... direktöversatt och inte testat.

Function BinToText(strBinData, intDataSizeInBytes)
  Dim tmp, adFldLong, adVarChar, objRS

  adFldLong = "0X00000080"
  adVarChar = 200
  Set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Open SQL, objConnection, 3, 3, 1

  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  
  objRS.AddNew()
  objRS.Fields("txt").AppendChunk(strBinData)
  Set tmp = objRS("txt").Value
  objRS.Close()
  Set objRS = nothing

  BinToText = tmp
End Function

Jag bugar och bockar, LarsG's variant fungerade klockrent.

Som synes är det inte mycket som skiljer de två "översättningarna" åt.

Tackar, tackar.