<%@ Language=VBScript %> <% Option Explicit %> <% 'Open a connection to the database Dim objConn, strSQL1,objRSNewsletters,testcode Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString=connect() objConn.Open strSQL1="SELECT newsID, title FROM newsletters" Set objRSNewsletters = Server.CreateObject("ADODB.Recordset") objRSNewsletters.Open strSQL1, objConn %> HealthGene - Canine DNA Testing

Home | Technology | Company | Contact


HOME | LIST OF NEWSLETTERS

Newsletters

The following newsletters are available online:

<% Do While Not objRSNewsletters.EOF Response.Write "
" & objRSNewsletters("title") & "
" objRSNewsletters.MoveNext Loop %>

<% objRSNewsletters.Close Set objRSNewsletters = Nothing objConn.Close Set objConn = Nothing %>

We invite to sign up for our electronic newsletter: SIGN UP