Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.open XXX GetData() InsertData() ・・・ ObjConn.Close Set ObjConn = Nothing
2.DBへの接続・切断は関数毎 GetData() InsertData() ・・・
Function GetData() Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.open XXX Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 GetData = ObjRS.GetRows ObjRS.Close Set ObjRS = Nothing ObjConn.Close Set ObjConn = Nothing End Function