Call Toll Free: 877.300.2919 • E-mail: info@alexandriaprecision.com

Who We Are

The full service steel production and distribution (company) which is now known as Alexandria Precision Metals, was founded in 1958 as Apex Machine.

Our original facility in Newark, New Jersey began as a precision machining company, specializing in centerless grinding. From the very beginning, we developed and implemented innovative production and delivery systems to meet our manufacturing customers stringent requirements for stainless, carbon steel and tools steel. And as we grew, we also developed a reputation for quality and reliability.

More than half a century later, Alexandria Precision Metals continues the strong traditions of quality and reliability on which we were founded.

Site created by ThomasNet Web Solutions

}<% If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then Response.Write GLResult Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write Err End If %>

  <%
' ****************do not modify the variables below******************
Dim GLKey
Dim GLPage
Dim GLCatCol
Dim GLLPP
Dim GLNW
Dim GLPS
Dim GLPQ
Dim GLAS
Dim Err
Dim GLResult
Dim GLCategory

' ********************************************************************
' You may change the variables below to customize the look and feel of 
' your links page
' ********************************************************************
' This option defines the number of columns used to display categories
GLCatCol = 2
' This option defines the number of links displayed per page
GLLPP = 25
' This option defines whether links are opened in a new web browser window
' (1 = Yes, 0 = No)
GLNW = 1
' TThis option determines whether the search function is enabled
' for your links page (1 = Yes, 0 = No)
GLAS = 1
' ********************************************************************
' *****Please DO NOT make any edits or changes to the code below******
' ********************************************************************
GLKey = "H1JW-36LA-NZ15"
GLPage = Request.ServerVariables("SCRIPT_NAME")
GLPS = "&UserKey=" & GLKey &  "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS
GLPQ = Request.QueryString
GLCategory = Request.QueryString("name")
Function GetGotLinksData(HTTPQuery, PostStr, ByRef Resp, ByRef Er)
    Dim HttpReqObj
    Dim ComponentString
    
    Set HttpReqObj = Nothing
        On Error Resume Next 
        Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
        On Error Resume Next
        If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If
        On Error Resume Next
        If HttpReqObj Is Nothing Then
            On Error Resume Next
            Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
            End If
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
            End If
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Er = "HTTP requests not supported."
                GetGotLinksData = False
            Else
                HttpReqObj.open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, false
                HttpReqObj.Send 
            
                If HttpReqObj.status <> 200 Then
                    Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
                    GetGotLinksData = False
                Else
                    Resp =  ComponentString & HttpReqObj.responseText
                    GetGotLinksData = True
                End If
                Set HttpReqObj = Nothing        
            End If
        Else
            HttpReqObj.Open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, False
            HttpReqObj.Send
            
            If HttpReqObj.Status <> 200 Then
                Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
                GetGotLinksData = False
            Else
            Resp =  HttpReqObj.responseText
            GetGotLinksData = True
        End If
    End If
End Function
%>



<%
If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then
    Response.Write GLResult
Else    
    ' here we are just dumping error info to the page.  You can clean this up to 
    ' fit your site
    Response.Write Err
End If
%>