<%@ LANGUAGE="VBSCRIPT" %> <% set conn = server.createobject("adodb.connection") strconn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("aifidb_media.mdb") & ";" strconn = strconn & "uid=aifi;pwd=aifi;" conn.open strconn %> Association of Indian Forging Industry : Newsletters
 
 
 
 
o About AIFI
o Managing Committees
o Members List
o Membership
o The Mission
o Download Logo
o Forging Associations
o Contact AIFI
o Site Map
o Home Page
  newsletters
 
<% strq="select * from newsletters ORDER BY id DESC" set objrs=server.createobject ("adodb.recordset") objrs.CursorLocation = aduseclient objrs.CursorType = adopenstatic objrs.open strq, conn, , , adcmdtext 'set objrs.activeconnection = conn 'objrs.open strq id = 1 do while not objrs.eof %> <% objrs.movenext id = id + 1 loop %>
<% response.write id %>  
<% e = objrs("subject") if e <> "" then enew = replace(e, vbcrlf, "
") end if response.write enew %>
  <% e = objrs("detail") if e <> "" then enew = replace(e, vbcrlf, "
") end if response.write enew %>
© Copyright 2002. AIFI.
<% objrs.close set objrs=nothing conn.close set conn=nothing %>