<% xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("metglas_news.mdb") & ";" if request.QueryString("newsID") <> "" then sKey=request.QueryString("newsID") Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str sSql = "SELECT news_id, title, article,description, pub_date, keywords FROM [main_articles] where [main_articles].news_id="&skey 'Response.Write sSQL 'Response.end Set rswrk = Server.CreateObject("ADODB.Recordset") rswrk.Open sSql, conn, 1, 2 strtitle = rswrk("title") strkeywords =rswrk("keywords") strdescription =rswrk("description") strheader= rswrk("title") strContents=rswrk("article") strPubDate = rswrk("pub_date") Else strtitle = "Metglas® News Headlines" strkeywords ="News and events about metglas" strdescription ="metglas is the worlds leading producer of amorphous metal and amorphous metal products" strheader= "Metglas in the News" Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str sSql = "SELECT pub_date, news_id, title,article,description,visible FROM [main_articles] where visible<>0 order by pub_date DESC" Set rswrk = Server.CreateObject("ADODB.Recordset") rswrk.Open sSql, conn, 1, 2 Function Contents() do while not rswrk.eof Response.Write "

" &rswrk("pub_date") & " - " & Ucase(rswrk("title")) & "
" & rswrk("description") & "
more >>


" rswrk.movenext loop end function end if %> <%=strtitle%> - Metglas News - <%=DATE()%>
Metglas, Inc. is a subsidiary of Hitachi Metals America Ltd..    
Home Contact Us Products & Services Design Center Product Brocuhures Applications Search
Metal Joining
High Performance Cores
Pulse Power Cores
Magnetic Materials
EAS Products
Power System Products
Technical Brochures
Design / Tech Assistance

Search Metglas

ISO Certified Since 1994

 

<%=Ucase(strTitle)%>

<% if Request.QueryString("newsID") <> "" then Response.Write "Publication Date: " & strPubDate & "
" else Response.Write "" end if %>

<% if Request.QueryString("newsid")="18" then Response.Redirect("http://news.amorphousmetal.com/?newsID=18") elseif request.QueryString("newsID") <> "" then Response.Write strContents else contents() end if %>

<% if request.QueryString("newsID") <> "" then Response.Write "



Back to Headlines " else Response.Write "" end if %>


 
1-800-581-7654 / Asia - (852)27244183 / Europe +49 211 160 09 -23