<!--#include file="adovbs.inc"-->
<%

'''TODO for you! Configuration:
''''2. Database connection
Function CATEGORY_GetDatabaseConn()
	Dim oRet
	Dim strDSN
	strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("prodmentor.mdb")
	Set oRet = Server.CreateObject	("ADODB.Connection")
	oRet.Open strDSN	
	Set CATEGORY_GetDatabaseConn = oRet
End Function


'''TODO for you! Configuration:
''''3. Some ads if you'd like

Function CATEGORY_GetAd(nNumber)
	Select Case nNumber
		Case 1
			CATEGORY_GetAd = "Insert a top banner???"
		Case 2
			CATEGORY_GetAd = "Insert a bottom banner???"
		Case 3
			CATEGORY_GetAd = "Insert a button???"
	End Select	
End Function

%>