Games and Comics and Stuff

<% @language=VBScript %> <% option explicit %> <% Response.Buffer = true %> <% Const cTitle = "Games and Comics and Stuff" Const cItemsPerPage = 7 Const cDatabaseName = "gcsdb.mdb" Const cThisFileName = "aboutus.asp" Const cCopyrightOwner = "Some Company" Const cOperationList = 1 Const cOperationView = 2 Function OpenLocalDatabase( strDatabaseName ) Set OpenLocalDatabase = Server.CreateObject("ADODB.Connection") OpenLocalDatabase.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Persist Security Info=False;" & _ "Data Source=" &Server.MapPath( strDatabaseName ) End Function Function GetNumberOfEntriesString( dbOpenDatabase, strTableName ) Dim rsEntriesCount Dim intTotalEntries Set rsEntriesCount = dbOpenDatabase.Execute( "SELECT COUNT(*) FROM [" & strTableName & "]") intTotalEntries = rsEntriesCount(0) If intTotalEntries <> 1 Then GetNumberOfEntriesString = intTotalEntries & " entries
" Else GetNumberOfEntriesString = intTotalEntries & " entry
" End If End Function Function GetNumberOfEntries( dbOpenDatabase, strTableName ) Dim rsEntriesCount Dim intTotalEntries Set rsEntriesCount = dbOpenDatabase.Execute( "SELECT COUNT(*) FROM [" & strTableName & "]") GetNumberOfEntries = rsEntriesCount(0) End Function Function GetListEntries( dbOpenDatabase, strSQLQuery, intPageNumber, strLinkPrompt ) Dim rsQuery Dim intRecordCount Dim intIndex Set rsQuery = dbOpenDatabase.Execute( strSQLQuery ) If Not( rsQuery.Eof and rsQuery.Bof ) Then rsQuery.MoveFirst rsQuery.Move ( cItemsPerPage * intPageNumber ) If Not rsQuery.Eof Then intRecordCount = 0 GetListEntries = "" GetListEntries = GetListEntries & "" GetListEntries = GetListEntries & "" For intIndex = 1 to rsQuery.Fields.Count - 1 GetListEntries = GetListEntries & "" While Not rsQuery.Eof And intRecordCount < cItemsPerPage GetListEntries = GetListEntries & "" GetListEntries = GetListEntries & "" rsQuery.MoveNext intRecordCount = intRecordCount + 1 Wend GetListEntries = GetListEntries & "

" & rsQuery.Fields( intIndex ).Name Next GetListEntries = GetListEntries & "
" & rsQuery.Fields( 1 ).Value & "" For intIndex = 2 to rsQuery.Fields.Count - 1 GetListEntries = GetListEntries & "	" & rsQuery.Fields( intIndex ).Value Next GetListEntries = GetListEntries & "

" Else strOutput = "Sorry, I can't find that list, it must be out of range..." End If Else strOutput = "Oops. There is nothing to show, no items!" End If End Function Function GetItemToDisplay( dbOpenDatabase, strSQLQuery ) Dim rsQuery Dim intIndex Set rsQuery = dbOpenDatabase.Execute( strSQLQuery ) If Not( rsQuery.Eof and rsQuery.Bof ) Then rsQuery.MoveFirst If Not rsQuery.Eof Then GetItemToDisplay = "" For intIndex = 0 to rsQuery.Fields.Count - 2 GetItemToDisplay = GetItemToDisplay & "

" & rsQuery.Fields(intIndex).Name GetItemToDisplay = GetItemToDisplay & "	" & rsQuery.Fields(intIndex).Value Next GetItemToDisplay = GetItemToDisplay & "

" GetItemToDisplay = GetItemToDisplay & "

" & rsQuery.Fields( rsQuery.Fields.Count - 1 ).Value & "

" Else GetItemToDisplay = "Sorry, I can't find that news item." End If End If End Function %> Games and Comics and Stuff

Key Club Program

Enjoy the exclusive benefits of Games and Comics and Stuff’s Key Club Program! Membership is FREE, and you get all of the following:

Membership on the GCS mailing list, giving you advance notice of special promotions and sales
Access to events exclusively for Key Club members
Points for playing in GCS events. Redeem these points for GCS merchandise, promotional items, and more!
Special discount coupons for every $200 you spend.

Registration is easy – you can do it online!

If you registered for Key Club in-store but have yet to receive your login information, email Ed to receive it.

*Note that the request must come from the email address provided when you registered for Key Club.

Already a member? Log in