<%@ LANGUAGE="vbscript"%>
<%Option Explicit%>
<%Response.Buffer=True%>
<%
if gbHandleErrors then on error resume next 'will catch errors and then code at bottom of this page will display message
dim s, strMainHTML, strErrMsg, objUser, objProtocol, strTable, iSingleProtocolID
set objUser = new User
if not objUser.InitializeConnection(PROVIDER,gstrDataSource,"","") then
response.write "Could not connect to the database"
response.end
end if
%>
Forms Main
