codevalve

Logos for open source projects

John — Wed, 31 Dec 2008 21:30:58 +0000

Here are some logos I’ve been working on for few open source projects.

GLUEScript

Devchekio Logo

Hewle Guide System

Trying out the latest WordPress

John — Thu, 24 Apr 2008 22:53:26 +0000

I’m trying a few blogging engines slash content management systems and thought the site could really use the update as well.

I also have realized I have an article and some code on DevDex that should live here as a reference as well.

Check out Jeff Atwood’s article on WordPress CPU usage and why you should turn on caching.

Database Connection Through VBScript Classes Part 1

John — Wed, 23 Apr 2008 06:08:34 +0000

Are you tired of writing the code to connect to a database over and over again?
I’ve grown very tired of it. I decided it was time to build a reusable class to hook up the connection and recordset objects I use in almost all of my projects.

The concept I came to love is a VBScript class.

Here is the code for the class.

Class DataBaseFunctions

' Declare variables to have public scope.

Public rs
Public cn

'Method to initialize connection to database

Private Sub Init

if isobject(cn) = false then

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.ConnectionString = Application("DB_CONN")
cn.Open

end if

End Sub

' Method to destory objects created.

Public Sub Destroy

if isobject(rs) = true then
rs.Close
Set rs = nothing
end if

if isobject(cn) = true then
cn.Close
Set cn = nothing
end if

End Sub

End Class

Now I only need one line of code on my ASP page to initialize my database connection. Notice the use of the Application object to store the connection string. This has always been a convieniant way to store global information and make it eaiser to change later.
Add this code to your global.asa in the Application_OnStart() sub to set the Application(“DB_CONN”) variable equal to your database DSN (in this case) or a DSN-less connection string.

Application("DB_CONN") = "DSN=cvDatabase;"

Here is how you would use the DataBaseFunctions class in your ASP page :






<%
Set db = new DataBaseFunction

db.Init
Set db.rs = db.cn.Execute("SELECT * FROM tblUser WHERE UserID = 10")

Response.Write(db.rs.Fields(1).value)

db.Destroy

Set db = Nothing
%>

What we do.

John — Tue, 22 Apr 2008 12:38:04 +0000

We build software.

We can help you design, build and deploy solutions for your school, team or business.

We provide cost effective web hosting from simple web pages all the way to dedicated turn key systems.

Solutions; our only product.