%@LANGUAGE="VBSCRIPT"%> <% 'declare variables dim rsPrices dim Connect dim Counter dim PriceArray (2) set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "dbPrices" set rsPrices = server.CreateObject("ADODB.Recordset") rsPrices.Open "SELECT * From tblPrices", Connect, adOpenDynamic, adLockPessimistic 'if rsPrices.RecordCount > 0 then rsPrices.MoveFirst Counter = 3 for Counter = 3 to 5 PriceArray(Counter) = rsPrices("PricePerG") rsPrices.MoveNext next 'else 'End if set rsPrices = nothing set Connect = nothing %>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||