teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

追記.コード全体

2020/06/02 06:10

投稿

ka999
ka999

スコア9

title CHANGED
File without changes
body CHANGED
@@ -18,6 +18,7 @@
18
18
   新サーバーにAccessは入っていません。
19
19
   旧サーバーのAccessはMicrosoft(R) Access 97です。
20
20
 
21
+
21
22
  以下このエラーになるまでに試したことを記載します。
22
23
  ```エラー文
23
24
  ADODB.Connection エラー '800a0e7a'
@@ -49,4 +50,100 @@
49
50
  Access97形式から
50
51
  Access2003形式に保存して置き換えました。
51
52
 
52
- 以上を行い、問題のエラー文になりました。
53
+ 以上を行い、問題のエラー文になりました。
54
+
55
+
56
+ 追記.コード全体
57
+ ```ASP
58
+ <%@Language="VBScript" %>
59
+ <html>
60
+ <head>
61
+ </head>
62
+ <body bgcolor="ffffff">
63
+ <BR><center>
64
+ <BR>
65
+ <P align="center">
66
+ <FONT size="+1" face="MS ゴシック" color="#666666"><B>「全体について」投稿ページ</B></FONT>
67
+ </P>
68
+
69
+ <table width="95%" cellspacing="10">
70
+ <%
71
+ Sub disp(ByVal rss)
72
+ Do While Not rss.EOF
73
+ Response.Write "<tr><td bgcolor='#FFF7F7'>"
74
+ Response.Write "<div style='text-indent:" & rss("level")*20 & "px'>"
75
+ If rss("title")="削除済" Then
76
+ Response.Write rss("id") & ":<span style='color:#FF99AA'>削除済</span> "
77
+ Response.Write "(" & FormatDateTime(rss("sdat"),0) & ") "
78
+ Else
79
+ Response.Write " ┗ "&rss("id") & ":<a href='q&a_003.asp?id=" & rss("id") & "'>"
80
+ Response.Write rss("title") & "</a> "
81
+ Response.Write rss("nam") & "(" & FormatDateTime(rss("sdat"),0) & ") "
82
+ If rss("flg") < 4 then
83
+ Response.Write " <img src='イラスト.gif'> "
84
+ End If
85
+ End If
86
+ Response.Write "</div></td></tr>"
87
+ SQL_S="SELECT * FROM Q-表示 Where parent=" & rss("id") & " ORDER BY sdat ASC"
88
+ Set rs_s=db.Execute(SQL_S)
89
+ If rs_s.EOF=False Then Call disp(rs_s)
90
+ rss.MoveNext
91
+ Loop
92
+ End Sub
93
+ If Request.QueryString("cnt")="" Then
94
+ cnt=1
95
+ page=1
96
+ Else
97
+ cnt=CInt(Request.QueryString("cnt"))
98
+ tmpCnt=cnt-15
99
+ page=CInt(Request.QueryString("page"))
100
+ End If
101
+ Set db=Server.CreateObject("ADODB.Connection")
102
+ Set rs=Server.CreateObject("ADODB.Recordset")
103
+ db.Provider="Microsoft.ACE.OLEDB.12.0"
104
+ db.Mode=3
105
+ db.ConnectionString=Server.MapPath("master.mdb")
106
+ db.Open
107
+ rs.Open "SELECT * FROM Q-表示 WHERE parent=0 ORDER BY sdat DESC",db,3,2
108
+ rs.AbsolutePosition=cnt 'エラーの出た部分
109
+ Do While Not rs.EOF
110
+ Response.Write "<tr><td bgcolor='#F5FFFF'>"
111
+ If rs("title")="削除済" Then
112
+ Response.Write rs("id") & ":<span style='color:#FF99AA'>削除済</span> "
113
+ Response.Write "(" & FormatDateTime(rs("sdat"),0) & ") "
114
+ Else
115
+ Response.Write rs("id") & ":<a href='q&a_003.asp?id=" & rs("id") & "'>"
116
+ Response.Write rs("title") & "</a> "
117
+ Response.Write rs("nam") & "(" & FormatDateTime(rs("sdat"),0) & ") "
118
+ If rs("flg") < 4 then
119
+ Response.Write " <img src='イラスト.gif'> "
120
+ End If
121
+ End If
122
+ Response.Write "</td></tr>"
123
+ SQL1="SELECT * FROM Q-表示 Where parent=" & rs("id") & " ORDER BY sdat ASC"
124
+ Set rs1=db.Execute(SQL1)
125
+ If rs1.EOF=False Then Call disp(rs1)
126
+ rs.MoveNext
127
+ cnt=cnt+1
128
+ If cnt=page*15+1 Then Exit Do
129
+ Loop
130
+ Response.Write "</table>"
131
+ Response.Write "<div align='center'>"
132
+ If page>1 Then
133
+ Response.Write "<a href='q&a_001.asp?cnt=" & tmpCnt & "&page=" & page-1
134
+ Response.Write "'><img src='next.gif' alt='前ページへ' border='0' /></a> "
135
+ End If
136
+ Response.Write " <a href='q&a_002.asp'><img src='note.gif' width='40' height='40'"
137
+ Response.Write " alt='新規作成' border='0'/></a> "
138
+ If Not rs.EOF Then
139
+ Response.Write " <a href='q&a_001.asp?cnt=" & cnt & "&page=" & page+1
140
+ Response.Write "'><img src='prev.gif' alt='次ページへ' border='0' /></a>"
141
+ End If
142
+ Response.Write "</div>"
143
+ %>
144
+ <BR>
145
+ <BR>
146
+ </body>
147
+ </html>
148
+
149
+ ```

1

追記情報

2020/06/02 06:10

投稿

ka999
ka999

スコア9

title CHANGED
File without changes
body CHANGED
@@ -14,6 +14,9 @@
14
14
  ここからどのように修正したらいいか分からず、困っています。
15
15
 
16
16
  記述以外に必要な情報があれば追記します。よろしくお願いします。
17
+ > 追記情報.
18
+  新サーバーにAccessは入っていません。
19
+  旧サーバーのAccessはMicrosoft(R) Access 97です。
17
20
 
18
21
  以下このエラーになるまでに試したことを記載します。
19
22
  ```エラー文