connection objConn '連接數據庫
objConn.BeginTrans '啟動事務

'保存用戶注冊信息
strSql = "INSERT INTO members(userName, userPass, nickName, locus, email, inviteName, joinTime, activeString, activeExpires) VALUES('"& strUserName &"', '"& strPassEncry &"', '"& strNickName &"', '"& strLocus &"', '"& strEmail &"', '"& strInvite &"', '"& Now() &"', '"& strActive &"', '"& Date()+3 &"')"
objConn.Execute(strSql)

'發生錯誤,回滾事務
If objConn.Errors.Count > 0 Then
 objConn.Errors.Clear
 objConn.RollBackTrans
End If

'保存用戶教育信息
strSql = "INSERT INTO education(userName, eduCode) VALUES('"& strUserName &"', '"& strCollege &"')"
objConn.Execute(strSql)

'發生錯誤,回滾事務
If objConn.Errors.Count > 0 Then
 objConn.Errors.Clear
 objConn.RollBackTrans
End If

objConn.CommitTrans  '提交事務
destroy objConn   '關閉數據庫