<%@ Language=VBScript %> <% response.buffer=true %> The Silent Place <% 'Declare all local variables dim conn dim rs dim strsql dim strconn Dim infinity 'Set local variable to the connection string and open the connection strconn = "DBQ=" & Server.MapPath("data/adoandsqladd.mdb") & ";DRIVER=Microsoft Access Driver (*.mdb);DriverId=25;MaxBufferSize=8192;Threads=20;" 'DataConn.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" set conn = server.createobject("adodb.connection") conn.open strconn 'Set local recordset variable equal to rs set rs = server.createobject("adodb.recordset") 'Sets the sql query that determine what records get brought back to the asp page. 'This could easily be change to a very specific set of fields or instead of using a ORDER BY statement 'Using a WHERE statement to determine what records get selected IE(WHERE tblUPDATEADO.id=1) strsql = "SELECT hits FROM tblUpdateADO" rs.open strsql, conn, 1, 3 %>

CLICK ANYWHERE ON THE SYMBOL AND A PORTION OF IT WILL LIGHT UP SYMBOLIZING THE JOINING OF HANDS OF THOSE WHO UNDERSTAND THE SACREDNESS OF THE KINGDOM WITHIN.
<% infinity = "images/circlebig" & rs("hits") & ".gif" %> <%'= infinity %>

Meditation gives us the opportunity to bring Spirit and Matter into gracious balance. This balance is a vital part of allowing joy and peace to flourish in our lives, in our world and in the universe. Thank You for adding your light to the circle and helping ground Christ Consciousness in matter.
Separately we are Divine
Together we are Destiny

 

<% rs.Close Set rs = nothing conn.close set conn = nothing set strconn = nothing %>