% Dim adoCon Set adoCon = Server.createObject("ADODB.Connection") adoCon.Open "Provider=MSDASQL; Driver={SQL Server}; Server=172.6.0.3; Database=Spares; UID=SA; PWD=;" dim masterPart, stockPrice, partPrice GPN = trim(request.QueryString("GPN")) 'get master record ----------------------------------------------------------------- Set masterPart = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM [stock_master] WHERE [GPN] = '" & GPN & "'" masterPart.Open mySQL, adoCon, 1, 1 'Opened as Read-Only dim ve Set ve = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM [ve] WHERE [product id] = '" & GPN & "'" ve.Open mySQL, adoCon, 1, 1 'Opened as Read-Only ' get the price ----------------------------------------------------------------- set stockPrice = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT [RETAIL], [VAT], [SUPPLIER] FROM [stock_price] WHERE [GPN] = '" & GPN & "'" stockPrice.Open mySQL, adoCon, 1, 1 'Opened as Read-Only %>
| |
![]() |
|||||||||||||||
| |
|
|
|
|
||||||||||||
![]() |
||||||||||||||||
| |
||||||||||||||||
![]() |
Haynes We can supply all Haynes performance parts for your Gilera. |
|
||||||||||||||
| |
||||||||||||||||
|
||||||||||||||||
| |
||||||||||||||||
| Copyright ©
gileraSpares.co.uk designed by Deep Blue Systems Ltd |
||||||||||||||||
| |
|
|
|
|
|
|
|
|
|
|
|
|||||