% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim EnshuCD EnshuCD = Request("EnshuCD") 'サイバートレード存在チェック(電商くんは常にサイバー会計連動のためecdb存在チェックは不要) Dim CT21db Dim CT21variable CT21variable = 1 On Error Resume Next Err.Clear() Set CT21db = Server.CreateObject("ADODB.Connection") CT21db.ConnectionTimeout = 60 CT21db.CommandTimeout = 60 CT21db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sfcuser;Password=sfc-5963;Initial Catalog=ct21sqldb;Data Source=" & SQLServer If Err.Description <> "" Then CT21variable = 0 End If On Error Goto 0 %>