<%@LANGUAGE="VBSCRIPT"%> <% Dim getmachine Dim gethours Dim strvalue Dim StrHours Dim partstotal Dim labourcost Dim StrMachine gethours = Request.Querystring("hours") getmachine = Request.QueryString("machine") If Len(gethours) = 0 Then StrHours = "1000" Else StrHours = gethours End If If Len(getmachine) = 0 Then StrMachine = "BVU-800P" Else StrMachine = getmachine End If %> <% Dim rs_partslist__r_mname rs_partslist__r_mname = "BVU-800P" if (StrMachine <> "") then rs_partslist__r_mname = StrMachine %> <% Dim rs_partslist__r_hours rs_partslist__r_hours = "1000" if (StrHours <> "") then rs_partslist__r_hours = StrHours %> <% set rs_partslist = Server.CreateObject("ADODB.Recordset") rs_partslist.ActiveConnection = MM_visuals4_STRING rs_partslist.Source = "SELECT * FROM qryServiceParts WHERE MachineName Like '" + Replace(rs_partslist__r_mname, "'", "''") + "' AND HoursService =" + Replace(rs_partslist__r_hours, "'", "''") + " AND Hold = False" rs_partslist.CursorType = 0 rs_partslist.CursorLocation = 2 rs_partslist.LockType = 3 rs_partslist.Open() rs_partslist_numRows = 0 %> <% Dim rs_price__r_mname rs_price__r_mname = "BVU-800P" if (StrMachine <> "") then rs_price__r_mname = StrMachine %> <% Dim rs_price__r_hours rs_price__r_hours = "1000" if (StrHours <> "") then rs_price__r_hours = StrHours %> <% set rs_price = Server.CreateObject("ADODB.Recordset") rs_price.ActiveConnection = MM_visuals4_STRING rs_price.Source = "SELECT * FROM qryServiceMachinePrice WHERE MachineName Like '" + Replace(rs_price__r_mname, "'", "''") + "' AND HoursService = " + Replace(rs_price__r_hours, "'", "''") + " AND Hold = False" rs_price.CursorType = 0 rs_price.CursorLocation = 2 rs_price.LockType = 3 rs_price.Open() rs_price_numRows = 0 %> <% Dim rs_machinelist__r_machine rs_machinelist__r_machine = "BVU-800P" if (StrMachine <> "") then rs_machinelist__r_machine = StrMachine %> <% Dim rs_machinelist__r_hours rs_machinelist__r_hours = "1000" if (StrHours <> "") then rs_machinelist__r_hours = StrHours %> <% set rs_machinelist = Server.CreateObject("ADODB.Recordset") rs_machinelist.ActiveConnection = MM_visuals4_STRING rs_machinelist.Source = "SELECT * FROM tblServiceMachineList WHERE MachineName Like '" + Replace(rs_machinelist__r_machine, "'", "''") + "' And HoursService <> " + Replace(rs_machinelist__r_hours, "'", "''") + " And Hold = False ORDER BY MachineName, HoursService" rs_machinelist.CursorType = 0 rs_machinelist.CursorLocation = 2 rs_machinelist.LockType = 3 rs_machinelist.Open() rs_machinelist_numRows = 0 %> <% set rs_list = Server.CreateObject("ADODB.Recordset") rs_list.ActiveConnection = MM_visuals4_STRING rs_list.Source = "SELECT MachineName FROM qryServiceMachineList WHERE MachineName is not null ORDER BY MachineName" rs_list.CursorType = 0 rs_list.CursorLocation = 2 rs_list.LockType = 3 rs_list.Open() rs_list_numRows = 0 %> <% Dim rs_option__r_mname rs_option__r_mname = "BVU-800P" if (StrMachine <> "") then rs_option__r_mname = StrMachine %> <% Dim rs_option__r_hours rs_option__r_hours = "1000" if (StrHours <> "") then rs_option__r_hours = StrHours %> <% set rs_option = Server.CreateObject("ADODB.Recordset") rs_option.ActiveConnection = MM_visuals4_STRING rs_option.Source = "SELECT * FROM qryServiceOptions WHERE MachineName Like '" + Replace(rs_option__r_mname, "'", "''") + "' AND HoursService =" + Replace(rs_option__r_hours, "'", "''") + "" rs_option.CursorType = 0 rs_option.CursorLocation = 2 rs_option.LockType = 3 rs_option.Open() rs_option_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rs_partslist_numRows = rs_partslist_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rs_machinelist_numRows = rs_machinelist_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rs_option_numRows = rs_option_numRows + Repeat3__numRows %> <% Dim rs_repairs Dim rs_repairs_numRows Set rs_repairs = Server.CreateObject("ADODB.Recordset") rs_repairs.ActiveConnection = MM_visuals2_STRING rs_repairs.Source = "SELECT * FROM qryContactsWeb WHERE DepartmentID = 8 AND branchID = 1" rs_repairs.CursorType = 0 rs_repairs.CursorLocation = 2 rs_repairs.LockType = 1 rs_repairs.Open() rs_repairs_numRows = 0 %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rs_repairs_numRows = rs_repairs_numRows + Repeat4__numRows %> Visual Impact
   

 
  
Company Profile Sales Rentals Systems Articles ContactDetails IndustryLinks
Repairs Enquiries    |     Spares Enquiries    |     Related Articles    |     VI Data Lab
Loading
Quick Links »

Promotions
Used Equipment for Sale
Visual Impact Branches
Industry Links
Table Mountain View
E-mail Us!
Home
Videos
2010 Info Page
Crew Portal
Blog

Academy »
2010 Application
Previous Course Materials
Knowledge Hub »
Customer Support
Hands On Info
Product Info
Terms and Conditions
News and Events »
NEW RENTALS RATE CARD

Take a closer look at the PMW-EX1 XDCAM HD

Newly Acquired Dealerships

The MediaHive Cape Town South Africa

 

 

Sign up for our Newsletter

Broadcasting Newsletter




 
Repairs Price List

Please browse our service guide price list for information on the Visual costs of a
1000 hour, 1500 hour, 2000 hour and 3000 hour service, or call us +44 (0)20 8977 1222 or E-mail us!

Please Select from the links below.
<% If Not rs_price.EOF Or Not rs_price.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rs_partslist.EOF)) %> <% partstotal = partstotal + (rs_partslist.Fields.Item("Price").Value) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_partslist.MoveNext() Wend %>
<%=(rs_price.Fields.Item("MachineName").Value)%> <% Response.write " " %> <%=(rs_price.Fields.Item("HoursService").Value)%> Hour Service
PartName Qty Part Number Price
<%=(rs_partslist.Fields.Item("PartName").Value)%> <%=(rs_partslist.Fields.Item("Qty").Value)%> <%=(rs_partslist.Fields.Item("PartNumber").Value)%> £<%=(rs_partslist.Fields.Item("Price").Value)%>
    Parts Total: £ <%=partstotal%>
    <%=(rs_price.Fields.Item("Hours").Value)%> Hours Labour £ <%=(rs_price.Fields.Item("LabourCost").Value)%>
    Total: £ <% labourcost=(rs_price.Fields.Item("LabourCost").Value) Response.Write (partstotal+labourcost) %>
<% If Not rs_option.EOF Or Not rs_option.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rs_option.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs_option.MoveNext() Wend %>
 
Options
<%=(rs_option.Fields.Item("PartName").Value)%> <%=(rs_option.Fields.Item("PartNumber").Value)%> £ <%=(rs_option.Fields.Item("Price").Value)%>
 
<% End If ' end Not rs_option.EOF Or NOT rs_option.BOF %> <% End If ' end Not rs_price.EOF Or NOT rs_price.BOF %> <% If rs_partslist.EOF And rs_partslist.BOF And Len(getmachine) > 0 Then %> <% End If ' end rs_partslist.EOF And rs_partslist.BOF %> <% If Not rs_machinelist.EOF Or Not rs_machinelist.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_machinelist.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_machinelist.MoveNext() Wend %>
Sorry we currently do not provide a <%= Request("hours") %> hours service for the <%= Request("machine") %>
Please re-select a different hours service from the service list.
We also provide the following service on the <%= Request("machine") %>
&hours=<%=(rs_machinelist.Fields.Item("HoursService").Value)%>"><%=(rs_machinelist.Fields.Item("MachineName").Value)%> <% Response.write " " %> <%=(rs_machinelist.Fields.Item("HoursService").Value)%> <% Response.write " " %> Hour Service
<% End If ' end Not rs_machinelist.EOF Or NOT rs_machinelist.BOF %>
<% While ((Repeat4__numRows <> 0) AND (NOT rs_repairs.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rs_repairs.MoveNext() Wend %>
Engineering Team Contacts »
')"><%=(rs_repairs.Fields.Item("Cname").Value)%> <%=(rs_repairs.Fields.Item("Position").Value)%> <%=(rs_repairs.Fields.Item("TelephoneNo").Value)%>




Contact Us  Job Opportunities Disclaimer Sitemap Visual Impact Group International Videos


<% rs_repairs.Close() Set rs_repairs = Nothing %> <% rs_partslist.Close() %> <% rs_price.Close() %> <% rs_machinelist.Close() %> <% rs_list.Close() %> <% rs_option.Close() %>