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
   });
});