Ошибка времени выполнения ASP Vbscript: объект не поддерживает это свойство или метод

Question

У меня есть этот кусок кода, который дает мне это при выполнении:

Microsoft VBScript runtime error '800a01a8'

Object required: 'be01v-sat'

/CFIDE/csv.asp, line 90

Код:

  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    dim server,username,password,database,table
    server = Request.Form("server")
    username = Request.Form("username")
    password = Request.Form("password")
    database = Request.Form("database")
    table = Request.Form("table")
    dim RS1
    set RS1 = Server.CreateObject( "ADODB.Connection" )
        RS1.Open "SELECT * FROM " & table & "", "server=" & server & ";UID=" & username & ";PWD=" & password & ";database=" & database & ";Provider=SQLOLEDB", 0, 1

    Response.ContentType = "text/csv"

    Response.AddHeader "Content-Disposition", "attachment;filename=export.csv"

    Write_CSV_From_Recordset RS1
  End If

Что я делаю не так, чтобы получить эту ошибку? Спасибо!

Answer 1

Ваше использование connection.open недопустимо (похоже, вы перепутали с recordset.open) - попробуйте это:

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 
    dim server,username,password,database,table 
    strServer = Request.Form("server") 
    username = Request.Form("username") 
    password = Request.Form("password") 
    database = Request.Form("database") 
    table = Request.Form("table") 
    dim conn, rs
    set conn = Server.CreateObject( "ADODB.Connection" ) 
    set rs = Server.CreateObject( "ADODB.Recordset" ) 
    conn.Open "DRIVER={SQL Server};SERVER=" & strServer & ";DATABASE=" & database & ";UID=" & username & ";PWD=" & password, username, password
    set rs = conn.execute("SELECT * FROM " & table)

    Response.ContentType = "text/csv"
    Response.AddHeader "Content-Disposition", "attachment;filename=export.csv" 

    Write_CSV_From_Recordset rs
End If