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

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
		activities/events
		<% strq="select * from events 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 %>