% OPTION EXPLICIT Response.Buffer=TRUE %> <% '============================================ ' ' {webroot}/asp/ ' ' Code Action: ' - ' '============================================ ' ' Code Changes ' ------------ ' - '============================================ ' 'Optionally reset ADO activity behavior settings 'objBehavior.bDoErrorTrap=FALSE 'objBehavior.bErrorTrapShowSQL=FALSE 'objBehavior.sErrorTrapPageURL="/asp/ErrorTrap/Failure_ProblemEncountered.asp" 'objBehavior.bDoLogErrors=FALSE 'objBehavior.bDoEmailNotify=FALSE 'objBehavior.bDoAutoErrorHandling=FALSE '----------------------------------------------------------------------------------------- '- Declare local variables '----------------------------------------------------------------------------------------- DIM objDBC 'Database Connection Object DIM objRCS 'ADO Recordset Object DIM sSQL 'query string '----------------------------------------------------------------------------------------- '- Setup Database Objects '----------------------------------------------------------------------------------------- 'open a database connnection SET objDBC=NEW DatabaseConnectionObject objDBC.Connect Application("ConnectionString1"),objBehavior,Application("sDataSourceType1") 'create a recorset object SET objRCS=NEW ADORecordsetObject objRCS.AssignADOConnection(objDBC) '----------------------------------------------------------------------------------------- '- '----------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------- '- functions and subroutines '----------------------------------------------------------------------------------------- SUB CleanUP() objDBC.Disconnect SET objRCS=Nothing SET objDBC=Nothing SET objBehavior=Nothing END SUB %>
|