%@ LANGUAGE="VBSCRIPT" %> <% ' CDP/BELL Website ' home.asp ' menu page Dim Conn If session("BellSignedIn") <> "YES" then SignIn End if ShowPage '==================================================== 'SubRoutines '==================================================== Sub SignIn Dim mApplPath, Conn, SiteODBC, sql, RS mApplPath=Request.ServerVariables("APPL_PHYSICAL_PATH") SiteODBC="driver={Microsoft Access Driver (*.mdb)};dbq="+mApplPath+"bell\database.mdb" Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open SiteODBC Set RS = Conn.Execute("SELECT counter FROM sysctrl;") session("BellSignedIn") = "YES" session("BellCounter")=RS("counter")+1 RS.Close Set RS=nothing ' sql= "UPDATE sysctrl SET counter = "+cStr(session("BellCounter")) ' sql=sql+ " WHERE RRN = 1" ' Conn.Execute(sql) Conn.Close Set Conn=nothing End Sub Sub ShowPage %>
Children's Stories
by Mary Wingfield Bell


| How a Village Changed | |
|
|
| King in The Clouds | |
|
|
| Zion and His Trumpet | |
|
|
| Mama's Christmas Thorns | |
|
|
| Hoods & Halos | |
|
|
| The Little Church Gang | |
| A small group of kids have many adventures as they find ways to serve God. | |
| Under The Grapevine Tree | |
|
![]()
Questions or comments? Email the Author at mbell@cdp.com
Copyright (c) 1998-2002 Mary Wingfield Bell, All rights
reserved. Reproduction in whole or in part in any form or medium
of more than one copy for personal use without the express written permission of Mary
Wingfield Bell is prohibited.
627-02-<%=session("BellCounter")%>
<% End Sub %>