<%@ LANGUAGE=VBScript %>
Welcome to my Home Page and thanks for stopping by!    Carl's Guest Book



<% Dim strSQL, cnn1 Set cnn1 = Server.CreateObject ("ADODB.Connection") cnn1.Open "Data Source = QuotesWMY" Set QuotesRecordset = Server.CreateObject("ADODB.Recordset") Randomize () strSQL = "SELECT TOP 1 Quotes.QuoteID, " & _ "Quotes.Quote, Quotes.QuoteAuthor, " & _ "Quotes.QuoteCategory FROM Quotes " & _ "WHERE Quotes.QuoteID=" & Int((186)*Rnd()+1) QuotesRecordset.Open strSQL, cnn1 %>
KB5WMY-logo
Random Quotation

"<%= QuotesRecordset("Quote")%>"

By <%= QuotesRecordset("QuoteAuthor") %>.

From <%= QuotesRecordset("QuoteCategory") %>.
<% QuotesRecordset.Close Set QuotesRecordset = Nothing cnn1.Close Set cnn1 = Nothing %>




My Hobbies! - Click on thumbnails to visit these pages..
   Ham Radio    Computers & Software
   Photography    Tips and Tricks
   My Favorite Links    Experimental Area
  NATIONAL WEATHER  My "Just for FUN" Page


Comments?      

Last updated Thursday, July 8th, 1999
© 1999 Carl McNair.

<% whichname="\DefaultPageCount.txt" whichdir=Server.Mappath ("\kb5wmy\") whichFN=whichdir & whichname forreading=1 Dim PageCount Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichFN, forreading, True) thisline=thisfile.readline strCnt = thisline PageCount = (Cdbl(strCnt) + 1) Response.Write "
" Response.Write ("You are Visitor number ") Response.Write PageCount Response.Write "
" thisfile.Close set thisfile=nothing Set WriteStream = fs.CreateTextFile(whichFN, True) WriteStream.WriteLine PageCount WriteStream.Close set fs=nothing %>

[ E-mail: [email protected] ] ©1999 James-Randall.Com | Voice: 903-832-7633 | Texarkana, TX.
All Rights Reserved. All other trademarks are property of respective owners. Reproduction without permission prohibited.