Translating ASP Containing Client-Side VBScript to ASPX with Client-Side JavaScript
| Info |
|---|
As of the Dec-2022 release, the VBS to JVS capability is embedded in the core translation engine. You may activate it with Select VBStoJCS="on" /> rather than <Select RunTimeDlls="..\usr\VbsToJvs.dll" /> |
See line 21 below
| Code Block | ||||||
|---|---|---|---|---|---|---|
| ||||||
<gmBasic>
<Storage Action="Create" Identifier="%JobId%" />
<Select GlobalSettings="%UserFolder%\GlobalSettings" />
<Select Progress="1" />
<Select DevEnv="%DevEnv%" />
<Select Dialect="%Dialect%" />
<Select BuildFile="off" />
<Select MaxOutputWidth="2048"/>
<Select AspnetCompiler="on" />
<Select CompilerWarnings="On" />
<select VirtualRoot="%VirtualRoot%" />
<select DeployLocation="%DeployFolder%" />
<select Library="%RuntimeFolder%" />
<select Target="%UserFolder%" />
<select Local="%IdfFromCodeFolder%" />
<select System="%IdfFromIdlFolder%" />
<!-- try to replace client side VBSript with client-side JavaScript -->
<Select RunTimeDlls="..\usr\VbsToJvs.dll" />
<Registry type="guid" source="Project" target="{%TaskGuid%}" />
<Registry type="guid" source="ProjectType2" target="{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}" />
<reference id="msado15.dll" />
<reference id="wshom.ocx" />
<reference id="CCW_ScTransGPCStompLite.BasicSTOMP.tlb" />
<reference id="CCW_ScTransGPCStompLite.STOMPLite.tlb" />
<Registry type="ProgID" source="ScSTOMPLt.GetSTOMP2" target="CCW_ScTransGPCStompLite_STOMPLite.GetSTOMP" />
<Registry type="ProgID" source="ScSTOMPLt.GetSTOMP" target="CCW_ScTransGPCStompLite_STOMPLite.GetSTOMP" />
<Registry type="ProgID" source="BasicSTOMP.GetBasicSTOMP2" target="CCW_ScTransGPCStompLite_BasicSTOMP.GetBasicSTOMP" />
<Registry type="ProgID" source="ScSTOMPLt.UpdateTDS2" target="CCW_ScTransGPCStompLite_STOMPLite.UpdateTDS" />
<Registry type="ProgID" source="WScript.Shell" target="IWshRuntimeLibrary.WshShell" />
<Registry type="ProgID" source="WScript.Network" target="IWshRuntimeLibrary.WshNetwork" />
<Registry type="FixType" source="bCallSql" target="Integer" />
<Registry type="FixType" source="IMP_Date" target="Date" />
<Registry type="FixType" source="IResult" target="Integer" />
<Registry type="FixType" source="numrecs" target="Integer" />
<Registry type="FixType" source="oRS" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS1" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS12" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS13" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS2" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS3" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS4" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS5" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS5a" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS6" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS7" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS8" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS9" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSAdmin" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSAge" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSComment" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSDalton" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSDetails" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSEQUIP" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSGPC" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSGTC" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSITS" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSJars" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSLABOR" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSManager" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSMax" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSMEAG" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSOrder" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSOTHER" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSPlan" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSSpare" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSStat" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSStatPB" target="ADODB.Recordset" />
<Registry type="FixType" source="oRSValues" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS_AMP" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS_Max" target="ADODB.Recordset" />
<Registry type="FixType" source="oRS_REC" target="ADODB.Recordset" />
<Registry type="FixType" source="PD_Date" target="Date" />
<Registry type="FixType" source="TMCList" target="ADODB.Recordset" />
<Registry type="FixType" source="vResults" target="ADODB.Recordset" />
<Registry type="FixType" source="vResults1" target="ADODB.Recordset" />
<Registry type="FixType" source="vResults2" target="ADODB.Recordset" />
<Registry type="FixType" source="vResults3" target="ADODB.Recordset" />
<Registry type="FixType" source="vResults4" target="ADODB.Recordset" />
<Registry type="FixType" source="vResultsSPCC" target="ADODB.Recordset" />
<Registry type="idfstatus" source="CCW_ScTransGPCStompLite.BasicSTOMP.tlb" target="migrate" />
<Registry type="idfstatus" source="CCW_ScTransGPCStompLite.STOMPLite.tlb" target="migrate" />
<Registry type="idfstatus" source="wshom.ocx" target="migrate" />
<Compile PageSlice="%SrcPath%" >
<Refactor>
</Refactor>
</Compile>
<Inline Filename="..\usr\Refactor.xml"/>
<Analyse />
<Output Status="New" Filename="%BndPath%" />
<Author name="%MigName%">
<Include Filename="..\usr\PostEdit.xml"/>
</Author>
<Storage Action="Close" />
</gmBasic> |
VBSTranslate: Translating VBS Files to JavaScript files (deprecated)
| Code Block |
|---|
<LoadRuntime dllName="VbsToJvs.dll" /> <Output Status="New" Filename="MSTDemo-MSTDemo-vbs-csh.bnd" /> <VbsTranslate Filename="..\..\src\MSTDemo.vbs"> <Fix> <!-- VBP: MSTDemo ERRNUM: 5224: Expecting a comma or end-of-statement: OF cells AS ARRAY OF STRING CONTENT=cells AS ARRAY OF STRING --> <Replace name="fix AS ARRAY OF STRING"> <OldBlock><![CDATA[AS ARRAY OF STRING]]></OldBlock> <NewBlock><![CDATA[() As String]]></NewBlock> </Replace> </Fix> </VbsTranslate> /> |