<%@ Language = VBscript %> <% On Error Resume Next ID = 0 ID = CInt(Request.QueryString("ID")) Dim connStr 'connStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/amer.mdb") connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\vwc73020\_vti_log\amer.mdb" Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open connStr Dim rs SQL = "SELECT date, title, News FROM news WHERE ID=" & ID Set rs = con.Execute( SQL ) 'Set rs = con.Execute("Exec GetNewsArticle " & ID ) If Not rs.EOF Then theDate = FormatDateTime( rs(0), 2 ) theTitle = rs(1) theNews = rs(2) Else theDate = "" theTitle = "" theNews = "No article found" End If rs.close SQL = "SELECT date, title, News, ID FROM news WHERE ID<>" & ID SQL = SQL & " ORDER BY date DESC, ID;" Set rs = con.Execute( SQL ) 'Set rs = con.Execute("Exec GetRecentNewsExcluding " & ID ) %> Amer Industrial Technologies :: News
ait home products capabilities certificates experience

Amer Industrial Technologies

News Update

<%= theTitle %>
AIT Contact Information
Amer Industrial Technologies
100 Amer Road, Building 200
Wilmington, DE USA 19809
Phone 302.765.3900
Fax 302.765.3544 info@amerindustrial.com



 

ALL THE NEWS
AIT Contact Information

<% Do While Not rs.eof %> <%= FormatDateTime( rs(0), 2 ) %> - <%= rs(1) %>
<%if (rs(2) <> "") then%>   read story<%end if%>

<% rs.movenext Loop con.Close set con = Nothing set rs = Nothing %>

<%= theDate %>

<%= theNews %>

For Quality and Service call on Amer Industrial Technologies
Phone 302.765.3900
Fax 302.765.3544
info@amerindustrial.com

 


Amer Industrial Technologies, Inc., Copyright 2002. The material on this site is protected under the copyright laws of the United States and International Convention, and is the property of Amer Industrial Technologies, Inc. All rights reserved.