<%@LANGUAGE="VBSCRIPT"%> <% Dim vanderworld_blog Dim vanderworld_blog_numRows Set vanderworld_blog = Server.CreateObject("ADODB.Recordset") vanderworld_blog.ActiveConnection = MM_vanderworld_conn_STRING vanderworld_blog.Source = "SELECT entry_date, entry_time, entry_title, entry FROM blog_this ORDER BY entry_date DESC" vanderworld_blog.CursorType = 0 vanderworld_blog.CursorLocation = 2 vanderworld_blog.LockType = 1 vanderworld_blog.Open() vanderworld_blog_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 vanderworld_blog_numRows = vanderworld_blog_numRows + Repeat1__numRows %> VanderWorld : A Celebration Of All Things Meer
 










!! Click Here !!
[but don't tell Jeff!]

Message Board

Return to the
Main VW Page

unless otherwise stated, all content is copyright © 2000
by Jeff VanderMeer

site design by
Garry Nurrish

this site is best viewed with ms internet explorer and a screen res. of 800x600

 

BLOG THIS!
<% While ((Repeat1__numRows <> 0) AND (NOT vanderworld_blog.EOF)) %>


<%= DoDateTime((vanderworld_blog.Fields.Item("entry_date").Value), 1, 1033) %>, <%= DoDateTime((vanderworld_blog.Fields.Item("entry_time").Value), 3, 1033) %>

<%= UCase((vanderworld_blog.Fields.Item("entry_title").Value)) %>

<%=(vanderworld_blog.Fields.Item("entry").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 vanderworld_blog.MoveNext() Wend %>

 


<% vanderworld_blog.Close() Set vanderworld_blog = Nothing %>