Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagexml
titleSample ASP Script with VBS to Javascript
linenumberstrue
<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> />