Fråga : Finna och byt ut fodrar hundratals av VBScript kodifierar via SQL-meddelande

Jag har lyckat varit kompetent att finna, och att byta ut VBscript kodifiera via ett SQL-uppdateringmeddelande, men det fungerar endast med ett fodrar av VBscript kodifierar. Detta meddelande är för class=" codeSnippet " för below

1 för >
update " för prettyprint " fastställda xaoProperties = byter ut (den varchar omvänden ((max), xaoProperties), ”Span prissätter”, ”den standarda Span prissätter”),
FRÅN [M1_TJ]. [dbo]. [FormDefinitions]
VAR xaoFormIDnågot liknande ”%fcy%” och xaoControlNamenågot liknande ”LBLSPAPRICE”,
behov för >

I för <-/pre>

1 för >
 (
, 
, 
, 
, 
, )
behov för >

I för <-/pre>

1 för >
 `gammala UpdatePriceTag fungerar
Fungera UpdatePriceTag (cControlName, cPartID, cAsterisk)
cPrefix = cAsterisk + Chr (13) + ”$”,
Appell RemovePriceTag (cControlName)
Om högert (kontrollerar (cControlName). Förse med text 10) = ”(inklusive)” därefter
Kontrollerar (cControlName). Förse med text = lämnat (kontrollerar (cControlName). Förse med text Len (kontrollerar (cControlName). Förse med text) - Len (Chr (13) + ”(inklusive)”))
Avsluta om
Fastställd rsPrice = CreateObject (”ADODB.Recordset”)
rsPrice.Open ”väljer * från PartUnitSalePrices, var imhpartid =” & App.AddQuotes (cPartID) & ”och imhpartrevisionid = ”A” beställer vid imhstartdatedesc”, anslutning, adOpenStatic som är adLockBatchOptimistic, adCmdText
Om inte rsPrice.EOF därefter
CPrice = CStr (rundan (rsPrice.Fields (”imhUnitSalePrice”). Värdera 2)),
CPrice = cPrefix + AddCents (CPrice som, är riktiga)
Kontrollerar (cControlName). Förse med text = kontrollerar (cControlName). Förse med text + CPrice
Avsluta om
Avsluta fungerar
<-/pre>

with denna en nedanföra… för class=" codeSnippet " för

1 för >
 `nya UpdatePriceTag fungerar
Fungera UpdatePriceTag (cControlName, cPartID, cAsterisk)
cPrefix = cAsterisk + Chr (13) + ”$”,
Appell RemovePriceTag (cControlName)
Om högert (kontrollerar (cControlName). Förse med text 10) = ”(inklusive)” därefter
Kontrollerar (cControlName). Förse med text = lämnat (kontrollerar (cControlName). Förse med text Len (kontrollerar (cControlName). Förse med text) - Len (Chr (13) + ”(inklusive)”))
Avsluta om
Fastställd rsPrice = CreateObject (”ADODB.Recordset”)
rsPrice.Open ”väljer * från PartUnitSalePrices, var imhpartid =” & App.AddQuotes (cPartID) & ”och imhpartrevisionid = ”A” beställer vid imhstartdatedesc”, anslutning, adOpenStatic som är adLockBatchOptimistic, adCmdText
Om inte rsPrice.EOF därefter
Om cPartID = ”ATRALINTAS” därefter
CPrice = CStr (rundan (rsPrice.Fields (”imhUnitSalePrice”). Värdera 2)),
Cprice = CDbl (CPrice) *cLintPots
Cprice = CStr (CPrice)
CPrice = cPrefix + AddCents (CPrice som, är riktiga)
Kontrollerar (cControlName). Förse med text = kontrollerar (cControlName). Förse med text + CPrice
Annars
CPrice = CStr (rundan (rsPrice.Fields (”imhUnitSalePrice”). Värdera 2)),
CPrice = cPrefix + AddCents (CPrice som, är riktiga)
Kontrollerar (cControlName). Förse med text = kontrollerar (cControlName). Förse med text + CPrice
Avsluta om
Avsluta om
Avsluta fungerar
skulle <-/pre>

I uppskattar någon återkoppling.

Thanks!! J " klar "

Svar : Finna och byt ut fodrar hundratals av VBScript kodifierar via SQL-meddelande

Du kunde försök using jqueryarkivet och att göra något något liknande detta.
inkludera jqueryarkivet i html-huvudet

$ (dokument) .ready (fungera () {

$ (”mata in [type=hidden],”), .each (fungera () {//captures och paketerar alla gömda beståndsdelar
  värdera = $ (denna) .value;    ///this ska får värdera för varje av de gömda beståndsdelarna en i sänder
    ///put ajaxappell här.  varje gömd beståndsdel värderar ska bearbetas en… kretsar i sänder
   });
});