VBScript執行插入記錄–用Connection

On error resume NextDim mu_ConnString, mu_InsertSqlmu_ConnString = "driver={SQL Server};Server=192.xx.xx.xx;database=TestFax;Uid=sa;pwd=zzz;"    '串連SQL Server2005'mu_ConnString = "Provider=MSDAORA.1;Data Source=GSxxx;User ID=xx;Password=xxx"          '串連Oracle資料庫mu_InsertSql = "Insert into T_UserInfo(UName,UAge,UMoney) values('陳天',20, 3000)"Dim objConnectionset objConnection = CreateObject("ADODB.Connection")objConnection.Open mu_ConnString                      '開啟資料庫if(objConnection.State = 0) Then    MsgBox "串連資料庫失敗"else    objConnection.Execute mu_InsertSql    if err.number = 0 Then        MsgBox "執行插入成功"    else        MsgBox "執行插入失敗"    end if    objConnection.Close    set objConnection = Nothingend ifMsgBox "操作結束"