<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & 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")) <> "") Then MM_editConnection = MM_connAllsale_STRING MM_editTable = "[Mailing List]" MM_editRedirectUrl = "Today_special.asp" MM_fieldsStr = "textEnterEmail|value" MM_columnsStr = "EmailAddress|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(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 If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & 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 %> About Us


Avanti Wire Products has competitively price, high quality wire and wire products in the United States. Our products are marketed in the following four distinct areas:

POWER TRANSMISSION CABLE

Avanti supplies galvanized high strength steel cores which meet ASTM B-498and B-500 used for reinforcement in the manufacture of ACSR overhead power transmission conductor cables.

AGRICULTURAL PRODUCTS

Avanti supplies galvanized high carbon wire to the vineyard industry and to the apple and berry producers for trellising of their vines and trees. We also supply the hop industry with galvanized wire strand for trellising of their crop.

INDUSTRIAL WIRE PRODUCTS

Industries involved in this marketing area use brite basic or galvanized wire and include manufacturers of wire products, recyclers (bale tie and strapping wire for bundling of various types of scrap), chain link fencing and fencing accessories

RESIDENTIAL AND LIGHT CONSTRUCTION

This marketing area consists of products for residential housing and home renovation or light construction through a network of distributors located in California, Nevada, Arizona, Utah and Colorado. We import welded wire mesh, rebar tie wire, black annealed wire, galvanized hanger wire.

All Rights Reserved, Diginmotion,Inc

All Rights Reserved, Diginmotion,Inc