<%@ LANGUAGE="VBSCRIPT" ENABLESESSIONSTATE = False %> <% '******************************************************************** ' Name: Header.asp ' ' Purpose: Header include file used to start all pages ' also includes global functions ' '******************************************************************** Response.Buffer = True Response.Expires = 0 sub DoHeader(strTitle) %> Nothing To It! Class Calendar - <%= strTitle %> <% end sub sub DoFooter(strTitle) %> <% end sub function GetDataConnection() dim oConn, strConn Set oConn = Server.CreateObject("ADODB.Connection") strConn = "DSN=nothingtoit_7051"'"Driver={SQL Server}; server=localhost; UserID=IUSR_FRONTIERDEV; initial catalog=enhansiv" oConn.Open strConn set GetDataConnection = oConn end function %>