Scusate cos'è quest'errore:la pagina è questa è la line 23 è rossa:codice:Microsoft OLE DB Provider for ODBC Drivers error '80040e21' ODBC driver does not support the requested properties. /quote/function.asp, line 23codice:<%Response.Buffer = True%> <% Set conn = Server.CreateObject("ADODB.Connection") if instr(Request.ServerVariables("PATH_TRANSLATED"),"freekot") then strMyConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/quote.mdb")&"" else strMyConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/quote.mdb")&"" end if strLogin = "" strPassword = "" conn.open strMyConn, strLogin, strPassword function checkuser(val) if session("userid") = "" then response.redirect "login.asp" end if end function sub open_recordset(recordset, sql) Set recordset = Server.CreateObject("ADODB.Recordset") recordset.Open sql, conn, 1, 1 end sub function DLookUp(Table,fName, sWhere) on error resume next Dim Res : Res = conn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value if IsNull(Res) then Res = "" DLookUp = Res on error goto 0 end function function getConfig(var) getConfig=Dlookup("config","config_value","config_variable='" & var & "'") end function %>

Rispondi quotando