-1

最後に、管理者がIISを構成してくれたので、エラーメッセージを以下に示します。Set SQLStream = CreateObject（ "ADODB.Stream"）Set SQLConnection = CreateObject（ "ADODB.Connection"）Set SQLCommand = CreateObject（ "ADODB.Command"）Set SQLRecordSet = CreateObject（ "ADODB.RecordSet"）SQLConnection.Open "Provider = sqloledb; SERVER = SQLPROD; DATABASE = MyDataBase; UID = MyUsername; PWDMyPassword; "

    'Response.Write("Connection Status: " & SQLConnection.State) & vbnewline
    'Response.Write("Connection Provider: " & SQLConnection.Provider) & vbnewline
    'Response.Write("Version: " & SQLConnection.Version) & vbnewline

    SQLCommand.ActiveConnection = SQLConnection
    SQLCommand.CommandText = "SELECT Seminars.Year, Seminars.SeminarID, Seminars.Theme, Seminar_Week.First, Seminar_Week.Last, Seminar_Week.WeekID, Seminar_Week.Date, Seminar_Week.Affiliation FROM Seminars CROSS JOIN Seminar_Week"
    'Response.Write("SQL Command Passed in: " & SQLCommand.CommandText)

    Set adoRec = SQLCommand.Execute()
        file1 = "./seminars/" & seminar_type & "/" & seminar_year & "/" & adoRec("Date") & "-" & adoRec("Year") & "_" & adoRec("Last") & ".pdf"
        file2 = "./seminars/" & seminar_type & "/" & seminar_year & "/" & adoRec("Date") & "-" & seminar_year & "_" & adoRec("Last") & "(handouts).pdf"
        file3 = "./seminars/" & seminar_type & "/" & seminar_year & "/" & adoRec("Date") & "-" & seminar_year & "_" & adoRec("Last") & "_Flyer.pdf"
    Set fso = CreateObject("scripting.filesystemobject")
        Response.Write("<p style=" & "margin-left:10px;" & "><img src=" & "./img/right_arrowblue.png" & " alt=" & "Expand/Collapse" & " id=" & "arrow_" & adoRec("Week") & " /><strong>[" & adoRec("Date") & "]</strong> " & "<a href=" & "javascript:toggle('seminar_" & adoRec("Week") &"')"">"&aroRec("First") & adoRec("Last") & ", " & adoRec("Affiliation") & "</a></p>")

コードの最後の行でこのエラーが発生します

ADODB.Recordsetエラー'800a0cc1'

要求された名前または序数に対応するコレクションにアイテムが見つかりません。

FilePath、244行目

244行目は、Webページの各セミナーに関する情報を書き込む必要があるコードの最後の行です。

すべての異なる文字列のどこかに余分なスペースがあるため、この時点で間違ったファイルパスを指していると確信しています。

今の私の質問は、最初に使用されたもの、つまりで使用されたものでしょうか

"<p style=" & "margin-left:10px;" & "><img src=" & "./img/right_arrowblue.png"

トラブルの原因になっています。

また、「展開/折りたたみ」の使用に慣れていないので、誰かがそれについてもう少し教えてくれたら。私は他の誰かのコードを修正しようとしているので、8ボールの少し後ろにいます。

4

3 に答える 3

1

解決策への1つの小さなステップ：

あなたのSQL

"SELECT * FROM Seminars WHERE [SeminarID] = 5 ORDER BY DESC"

間違いなく間違っています：ORDER BYには（少なくとも）列名が必要です：ORDER BY[SeminarID]DESC。

それでもすべての問題が解決しない場合は、段階的なアプローチを検討する必要があります。

エラーが発生した場合は、エラーについて教えてください（番号、説明、行）。それが私があなたにそれらを出版するように頼むとき、私が意味したことです。IISからの「URLの処理中にエラーが発生しました」よりも適切な情報が得られない場合は、データベース関連のコードを完全に正しく取得するために、コマンドラインスクリプトを作成する必要があります。

Experiments.vbsから始めます：

  Dim sCS : sCS     = !your connection string!
  Dim oCN : Set oCN = CreateObject("ADODB.Connection")
  oCN.Open sCS
  WScript.Echo "CN open:", oCN.State

  Dim sSQL : sSQL    = !your SQL statement!
  Dim oRS  : Set oRS = oCN.Execute(sSQL)
  WScript.Echo "RS EOF:", CStr(oRS.EOF)
  WScript.Echo "Frs Col:", oRS.Fields(0).Name, oRS.Fields(0).Type

  Dim i : i = 0
  Do Until oRS.EOF
     WScript.Echo i, oRS.Fields(0).Value
     i = i + 1
     oRS.MoveNext
  Loop
  oCN.Close

コマンドウィンドウ（DOSボックス）で実行します：cscriptexperiments.vbs。これにより、次のような行が表示されます。

CN open: 1
RS EOF: False
Frs Col: Id 3
0 ...
1 ...
2 ...

または、次のようなフォーカスされた/公開可能なエラーメッセージ。

... .vbs(2465, 14) Microsoft OLE DB Provider for SQL Server: Falsche Syntax in der Nä
he des 'DESC'-Schlüsselworts.

（DESCの近くの悪い構文）、私がステートメントを試したときに得た

"SELECT * FROM Alpha ORDER BY DESC"
于 2012-06-20T21:32:22.890 に答える
1 
RS.MoveNext

無限ループを回避するために、Loopキーワードの前の行に上記のコードを配置します。

于 2012-06-20T20:58:33.443 に答える
0

loopループブロックの最後にキーワードがありませんか？

ここで構文を確認してください：http：//msdn.microsoft.com/en-us/library/eked04a7.aspx

于 2012-06-20T20:41:17.313 に答える