<% ' DSNless connection to Access Database DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp = Dsntemp & "DBQ=" & Server.mappath("db/crowley.mdb") If Session("logged")="True" Then %>

Email Management.   This is the email management page. Below you will see all the visitors that visited crowleymccarthy.ie and registered for updates. Although email updates are processsed and sent automatically, you can email all registrants from here.   <% 'dim oConn, oRes, sqlState, currentPage, rowCount, i ' DSNless connection to Access Database set oConn=Server.CreateObject("ADODB.connection") oConn.Open DSNtemp Set oRes=Server.CreateObject("ADODB.recordset") sqlState="Select * from Emailer ORDER BY Email_ID Desc" oRes.Open sqlState, oConn Dim counter counter=1 If oRes.Eof Then Response.Write "" End If Do While Not oRes.EOF Dim dDay2, dMonth2, dYear2, todayDate2 dDay2 = Day(oRes("Sign_date")) dMonth2 = Month(oRes("Sign_date")) dYear2 = Year(oRes("Sign_date")) todayDate2 = dday2 & "/" & dmonth2 & "/" & right(dyear2,2) Response.Write "" Response.Write " " Response.Write " " oRes.MoveNext counter=counter+1 Loop oRes.Close oConn.Close Set oConn=nothing %> Date Recipient Email Address     No Results Found " & counter & ".) " & todayDate2 & " " & oRes("Fname") & " " & oRes("Email") & "   Login Page | Logout

<%Else%>

36 Strand Road, Clonakilty, Co Cork, Ireland.             Telephone: (023) 34774
Charlotte House, Fr. Matthew St. Cork City, Ireland.  Telephone: (021) 4274354