HOME  |   CONTACT US  |   NEWSbriefs  |   SEARCH   

-

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=nccme" Set RecSet = Server.CreateObject("ADODB.Recordset") Sql = "Select * FROM data where navorder<>'0'" Sql = Sql & "ORDER BY navorder ASC" RecSet.Open Sql, Conn If RecSet.EOF Then 'do nothing Else Do While Not RecSet.EOF Response.Write "" & RecSet("title") & "
" RecSet.MoveNext Loop End If RecSet.Close Set RecSet = nothing Conn.Close Set Conn = nothing %>

<% If dbid > 0 Then Response.Write "

" Response.Write "  " Response.Write "

" End If %>

<% If dbid > 0 Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=nccme" Set RecSet = Server.CreateObject("ADODB.Recordset") Sql = "Select * FROM data where id=" & dbid RecSet.Open Sql, Conn If RecSet.EOF Then 'do nothing Else Response.Write "" & RecSet("title") & "

" Response.Write "" & RecSet("content") If RecSet("link") <> "" Then Response.Write "

" & RecSet("link") & "" End If If RecSet("attachment") <> "" Then Response.Write "

Download Attachment" End If If RecSet("image") <> "" Then Response.Write "

" End If Response.Write "" End If RecSet.Close Set RecSet = nothing Conn.Close Set Conn = nothing Else If dbSection = "newsletter" Then Response.Write "E-Newsletter

" Response.Write "Please click here to sign up for our E-Newsletter

" Response.Write "What is a E-Newsletter:
" Response.Write "Many popular websites and businesses have online newsletters, known as eNewsletters, which are sent to their subscribers electronically, usually via email. Their purpose is to inform readers of updates to the site and/or provide information relating to the site's topic. Newsletters are also a factor in building and maintaining a relationship with the subscribers by reminding them of the site, urging them to return." Response.Write "

" ElseIf dbSection = "welcome" Then Response.Write "Welcome

" Response.Write "Welcome to the online home of NC-CME, a nonprofit organization dedicated to improving healthcare through the certification of continuing medical education professionals.

" Response.Write "Pathways to Competence for CME Professionals presentation -- October 18, 2006

" Response.Write "We cordially invite you to read on:" Response.Write "

" Response.Write "
• Learn about the organization and it's credentialing initiative
" Response.Write "
• Send us your email address, receive periodic NEWSbriefs
" Response.Write "
• Join a Committee, contribute your skills toward creating the certification program
" Response.Write "
• Become a Charter Donor, speed the development process
" Response.Write "

" Response.Write "" End If End IF %>