<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_local_hant_STRING MM_editTable = "mania.hantarex_newsletter" MM_editRedirectUrl = "news_subs_tks.asp" MM_fieldsStr = "name|value|email|value" MM_columnsStr = "name|',none,''|email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim subscription Dim subscription_numRows Set subscription = Server.CreateObject("ADODB.Recordset") subscription.ActiveConnection = MM_local_hant_STRING subscription.Source = "SELECT * FROM mania.hantarex_newsletter" subscription.CursorType = 0 subscription.CursorLocation = 2 subscription.LockType = 1 subscription.Open() subscription_numRows = 0 %> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_local_hant_STRING news.Source = "SELECT * FROM mania.hantarex_news" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> Hantarex
         

 
       
                       
  Home Service & Repair    
contact
 

 

  Our Company
Plasma Displays
LCD/TFT Displays
Video CRT Monitors
Data CRT Monitors
Video Walls
Gaming Monitors
Offers
Accessories
Clients
Service & Repair
News Update
Contact us
 


 


   
  Receive news on our
  latest products. Subscribe
  to our newsletter.

  Name   E-mail
  

  

 
 

 
Welcome to Hantarex International
    


Special offers on our exciting range of Outdoor antivandal LCD and Plasma Screens. Ideal for
pubs, clubs and restaurants.


        
    

Hantarex
is a leading manufacturer and supplier of Flat Screen Displays that range from Industrial and Consumer LCD, TFT and Plasma products to professional video/data walls. Our stylish Italian designs and reputation for producing solid, reliable products is known through out the world. Innovation, quality and value for money are at the root of our business philosophy and we have been in business in the UK for over 20 years with installations in Airports, Railway, Retail, Security, Broadcast, Museums and many more. We also have a rapidly expanding range of consumer style LCD and Plasma products specifically designed for the home user.

Hantarex
is constantly developing new products that include the HD Digital TV and the Totem Digital Multimedia Display shown below so Welcome to Hantarex and when you see what you want please contact us.

   PD 42” XP HD Ready TV
    LCD 32" GWS HD Digital TV
  TOTEM 46" LCD Multimedia
        
         
        

 
















 
 
                 



 
<% subscription.Close() Set subscription = Nothing %> <% news.Close() Set news = Nothing %>