---
title: "Jscript ---> VBscript - \"översättning\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39230-jscript-vbscript-översättning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "solbulle"
published: "2002-03-07T20:23:16.000Z"
updated: "2002-03-07T22:04:31.000Z"
replies: 4
views: 226
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39230-jscript-vbscript-översättning"
---

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

## #1 — solbulle, 2002-03-07T20:23Z

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;
}
%>
```

Permalänk: https://www.webforum.nu/p/39230

## #2 — solbulle, 2002-03-07T21:05Z

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.

Permalänk: https://www.webforum.nu/p/621395

## #3 — LarsG, 2002-03-07T21:48Z

```
<%
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
%>
```

Permalänk: https://www.webforum.nu/p/621411

## #4 — Pace, 2002-03-07T21:49Z

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
```

Permalänk: https://www.webforum.nu/p/621413

## #5 — solbulle, 2002-03-07T22:04Z

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

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

Tackar, tackar.

Permalänk: https://www.webforum.nu/p/621427

---

Tråden på webben: https://www.webforum.nu/amne/asp/39230-jscript-vbscript-översättning