<% //www.hcstudios.com set conn=server.createobject("ADODB.connection") conn.ConnectionTimeout = 15 conn.CommandTimeout = 30 conn.Open "DBQ=" & Server.MapPath("/restricted/db/napmsvcalendar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" sqlstr = "select * from CalendarMaster" sqlstr = sqlstr & " where Date >= (now-1)" sqlstr = sqlstr & " order by Date,Affiliate" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open sqlstr, conn, 3, 3 %> ISM - Silicon Valley, Inc. -- Institute for Supply Management
Home > ISM Regional Events

ISM Regional Events

Post an Event | Printable Version

    <% aff = "" While Not RS.EOF %> "> <%=RS("Affiliate")%> <% if NOT (aff = RS("Affiliate")) then %> <% aff = RS("Affiliate") end if %>
  • " onClick='javascript:viewPage("event_detail.asp?ID=<%=RS("ID")%>",650,550)' class="napm2"><%=RS("Title")%>
    <%=RS("genre")%> by <%=RS("Affiliate")%> Affiliate<% if NOT RS("Sub Title")="" then %>
    <%=RS("Sub Title")%><% end if %><% if NOT RS("Detail")="" then %>
    <%=Left(RS("Detail"),200)%><% end if %> ...
    <% if NOT RS("Fee")=0 then %>Member: $<%=RS("Fee")%> <% end if %><% if NOT RS("NonMemberFee")=0 then %> Non Member: $<%=RS("NonMemberFee")%> <% end if %><% if NOT RS("WalkInFee")=0 then %> Walk-In Adder: $<%=RS("WalkInFee")%><% end if %>
    <%=RS("Date")%>

    <% RS.MoveNext %> <% Wend %>

<% RS.Close conn.Close %>
San Jose State logo