Bryan Davis - Dragons in our Midst

<% '--- establish access connection Sub OpenDB (ByRef con, d) DB = d & ".mdb" Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) Path = Server.MapPath(Dir) & "\" DSN = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;ReadOnly=0;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=512;ImplicitCommitSync=Yes;FIL=MS Access;DriverId=25" & ";DefaultDir=" & Path & ";DBQ=" & Path & DB & ";" Set con = Server.CreateObject("ADODB.Connection") con.Open DSN End Sub '---- Function InsertAP(n) If n <> "" Then If Instr(n,"'")<>0 Then InsertAP = Replace(n,"'","''") Else InsertAP = n End If End If End Function '---- Sub SelectRefer() response.write "" End Sub %> Bryan Davis - Dragons in our Midst <% PCount=0 NPCount=0 OpenDB con, "readers" SelectSQL = "SELECT Readers.[Processed] FROM Readers" Set PaidReaders = con.execute(SelectSQL) If Not PaidReaders.EOF then PaidReaders.MoveFirst end if Do while Not PaidReaders.eof If trim(PaidReaders("Processed"))="Y" then PCount=PCount+1 else NPCount=NPCount+1 end if PaidReaders.MoveNext Loop PaidReaders.Close If NPCount>0 then strNewMem="Y" else strNewMem="N" end if %>

Dragons in Our Midst

Dragons Club

Becoming part of the Dragons Club allows you into the inner circle of Dragons in Our Midst fans. You will have special access to the message board and privileged e-mail access to the author as well as an e-mail subscription to the author's newsletter. There are two levels of membership:

Free: Sign up for a free user name on http://www.runboard.com where it says, "Open Account." Once you have an account, send me an e-mail (bryan@dragonsinourmidst.com) telling me your user name, and I will give you access to the message forum and sign you up to receive the newsletter. With the free level of membership, do not fill out the form below.

Paid: Fill out the form below, and click on "Submit." A new page will appear that gives you the opportunity to pay for your membership. For $10, I will set up your user name and password and send you the poster of your choice. If you do not already have a desired message board user name and/or password, leave those fields blank and I will create them for you. Once I receive your payment, I will process your order. <%response.write strNewMem%>