Pytanie : Znajdować i Zamieniać setki linia VBScript kod przez SQL oświadczenie

I pomyślnie być sprawnie i VBscript kod przez SQL aktualizacja oświadczenie, ale ono tylko pracować z jeden linia VBscript kod. Ten oświadczenie być below

1:
2:
3:

update FormDefinitions ustalony xaoProperties = zamieniać (konwertyta (varchar (varchar), xaoProperties), "Zdrój Cena", "Zdrój Standardowy Cena ")
OD [M1_TJ]. [dbo]. [FormDefinitions]
DOKĄD xaoFormID lubić "%fcy%" i xaoControlName jak "LBLSPAPRICE"


I potrzeba funkcja z nowy kod przez SQL. The baza danych stół dzwonić FormDefinitions być podążać. 
1:
2:
3:
4:
5:
6:

 (
           , 
           , 
           , 
           , 
           , )


I potrzeba VBscript kod w funkcja nazwany UpdatePriceTag w the xaoCode datafield. , I potrzebować wiele linia kod. Stary i nowy funkcja być nowy. 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 `Stary UpdatePriceTag funkcja
Funkcja UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + "$"
	Wywoławczy RemovePriceTag (cControlName)
	Jeżeli Prawy (Kontrola (cControlName). Podpis, 10) = "(Zawierać)" Wtedy
		Kontrola (cControlName). Podpis = Opuszczać (Kontrola (cControlName). Podpis, Len (Kontrola (cControlName). Podpis) - Len (Chr (13) + "(Zawierać) "))
	Kończyć Jeżeli
	Ustawiać rsPrice = CreateObject ("ADODB.Recordset")
	rsPrice.Open "wybierać * od PartUnitSalePrices dokąd imhpartid =" & App.AddQuotes (cPartID) & "i imhpartrevisionid = "A" rozkaz imhstartdate desc", Związek, adOpenStatic, adLockBatchOptimistic, adCmdText
	Jeśli nie rsPrice.EOF Wtedy
		CPrice = CStr (ImhUnitSalePrice (rsPrice.Fields ("imhUnitSalePrice"). Wartość, 2))
		CPrice = cPrefix + AddCents (CPrice, Prawdziwy)
		Kontrola (cControlName). Podpis = Kontrola (cControlName). Podpis + CPrice
	Kończyć Jeżeli
Kończyć Funkcja


with ten jeden pod… 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 `Nowy UpdatePriceTag funkcja
Funkcja UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + "$"
	Wywoławczy RemovePriceTag (cControlName)
	Jeżeli Prawy (Kontrola (cControlName). Podpis, 10) = "(Zawierać)" Wtedy
		Kontrola (cControlName). Podpis = Opuszczać (Kontrola (cControlName). Podpis, Len (Kontrola (cControlName). Podpis) - Len (Chr (13) + "(Zawierać) "))
	Kończyć Jeżeli
	Ustawiać rsPrice = CreateObject ("ADODB.Recordset")
	rsPrice.Open "wybierać * od PartUnitSalePrices dokąd imhpartid =" & App.AddQuotes (cPartID) & "i imhpartrevisionid = "A" rozkaz imhstartdate desc", Związek, adOpenStatic, adLockBatchOptimistic, adCmdText
	Jeśli nie rsPrice.EOF Wtedy
		Jeżeli cPartID = "ATRALINTAS" Wtedy
		CPrice = CStr (ImhUnitSalePrice (rsPrice.Fields ("imhUnitSalePrice"). Wartość, 2))
		Cprice = CDbl (CPrice) *cLintPots
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, Prawdziwy)
		Kontrola (cControlName). Podpis = Kontrola (cControlName). Podpis + CPrice
		Inny
		CPrice = CStr (ImhUnitSalePrice (rsPrice.Fields ("imhUnitSalePrice"). Wartość, 2))
		CPrice = cPrefix + AddCents (CPrice, Prawdziwy)
		Kontrola (cControlName). Podpis = Kontrola (cControlName). Podpis + CPrice
		Kończyć Jeżeli
	Kończyć Jeżeli
Kończyć Funkcja


I doceniać jakaś informacje zwrotne.

Thanks!! J

Odpowiedź : Znajdować i Zamieniać setki linia VBScript kod przez SQL oświadczenie

Ty móc using the jquery biblioteka i móc jak móc.
zawierać jquery biblioteka w the html głowa

$ (dokument) .ready (funkcja () {

$ ("wkład [type=hidden] ").each (funkcja () {//captures i pakować wszystkie chowany element
  wartość = $ (.value) .value;    ///this dostawać the wartość dla element the chowany element jeden na raz
    ///put ajax wezwanie tutaj.  pętla chowany element wartość przetwarzać jeden na raz… pętla
   });
});
Inne rozwiązania  
 
programming4us programming4us