<%@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

 

About Us
Products
Principle
Contact
 

 

American Huayuan Int'l Inc.
 We are located in Los Angeles, California, the United States. Our main business is hot dipped galvanized iron wires, electro-galvanized iron wires,bright iron wires, black annealed wire, pulls straight and cuts wires, paper-encased wires and PVC coat wires of various specifications. And nettings, specially in stucco netting.

The specification range from BWG 6-BWG 36, the diameter 5.15 mm-0.18mm. The pull strength 329N-380N/m, the extension rate is greater and eaquals to 12%. The packing specifications can be 25kg, 50kg, 400lbs, 600lbs, 800lbs or 1000lb per stone. Upon customers request, BWG 26-BWG 34 can be processed into coil wheels for packing.

We have been in this industry for over 13 years, and have formed a strategic alliance with 3 electroplate galvanized iron wire factory and a stucco netting factory to provide a full service to our customers.

We have three electroplate galvanized iron wire factories. Among them, one is hot dipped galvanized iron wire factory, the other two are electroplate galvanized iron wire factory and stucco netting factory. We would like to offer our customer with high quality products, good price, and best service. Moreover, we are able to offer our customers customized products to fit their specific needs.

Please feel freee to contact us via email or fax if you have any question. We hope we could have the opportunity to serve you soon.
  About Us | Products| Principle | Contact Us
 

All Rights Reserved, Diginmotion,Inc