Gemme i database

Eller er der måske en der kan skrive det om så det virker, hele koden kommer her:

<%

font    = "<font size='2' face='Verdana'>"
faktor  = 5
barcolor = "#FF0000"


Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  If (Request.ServerVariables("Content_length") > 0) then
    Sql = "Insert into T_Voteresult (Voteid, Vote, Ip) values('" & Request("Voteid") & "','" & Request("R1") & "','" &  Request.ServerVariables("REMOTE_ADDR") & "')"
    Rs.Execute(Sql)

    Response.redirect Request.ServerVariables("SCRIPT_NAME") & "?design=4&id=" & Request("Voteid")
  end if

  ' *******************************************************
  ' * Viser resultat                                      *
  ' *******************************************************
  If "" <> Request.QueryString("id") then
    If "" = Request.QueryString("mode") then
      Sql = "Select * from T_Vote where Id = " & Request.QueryString("Id")
      Set Record =  Rs.Execute(Sql)
      Dim Valg(5)
      valg(1) = Record("valg1")
      valg(2) = Record("valg2")
      valg(3) = Record("valg3")
      valg(4) = Record("valg4")
      valg(5) = Record("valg5")

      response.write font & Record("Beskrivelse")  & "<br><br>"

      Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & Request.QueryString("Id")
      Set Record =  Rs.Execute(Sql)
      Ialt = Record("found")

      Response.Write "<div align='left'><table border='0'><tr>"
      For i = 1 to 5
        If valg(i) <> "" then
          Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & Request.QueryString("Id") & " and vote = '" & Valg(i) & "'"
          Set Record = Rs.Execute(Sql)
          Procent = 100/Ialt * Record("Found")
          response.write "<td>" & font & Valg(i) & "</td><td>" & font & Round(procent) & "%</td><td><hr width='" & Procent * faktor & "' size='10' align='left' color='" & barcolor & "'></td></tr>"
        end if
      Next
      Response.Write "</table></div>"
    end if
   
    ' *******************************************************
    ' * Hvis mode = vote, opbygges "stemmeseddel"          *
    ' *******************************************************

    If "vote" = Request.QueryString("mode") then
      Sql = "Select * from T_Vote where Id = " & Request.QueryString("Id")
      Set Record =  Rs.Execute(Sql)
      response.write font & Record("Beskrivelse")
      response.write "<form method='POST' action='default.asp?design=4'>"
      response.write "<input type='hidden' name='Voteid' value=" & Request.QueryString("Id") & ">"
      If Record("Valg1") <> "" then
        response.write "<img src='babe\1.jpg' height='100'><input type='radio' value='" & Record("Valg1") & "' name='R1'>" & Record("Valg1") & "<br>"
      end if 
      If Record("Valg2") <> "" then
        response.write "<img src='babe\2.jpg' height='100'><input type='radio' value='" & Record("Valg2") & "' name='R1'>" & Record("Valg2") & "<br>"
      end if
      If Record("Valg3") <> "" then
        response.write "<img src='babe\3.jpg' height='100'><input type='radio' value='" & Record("Valg3") & "' name='R1'>" & Record("Valg3") & "<br>"
      end if
      If Record("Valg4") <> "" then
        response.write "<img src='babe\4.jpg' height='100'><input type='radio' value='" & Record("Valg4") & "' name='R1'>" & Record("Valg4") & "<br>"
      end if
      If Record("Valg5") <> "" then
        response.write "<img src='babe\5.jpg' height='100'><input type='radio' value='" & Record("Valg5") & "' name='R1'>" & Record("Valg5") & "<br>"
      end if
      response.write "<p>&nbsp;<input type='submit' value='Stem' name='B1'>&nbsp;&nbsp; <input type='reset' value='Slet' name='B2'></p>"
      response.write "</form></body></html>"
    end if
end if
%>

drop din DBPath og lav en connection:

dim Conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

end function

OpenConn("database.mdb")

så skal du bare bruge Conn.Execute(SQL) i stedet for rs.Execute(SQL)

min egen udbyder www.wannafind.dk kræver at man bruger den type connection til sin access db, for at det virker. ved ik hvorfor :)

et mere præcist eks, og så den passer til de variabler du har valgt at bruge:

Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath


skal blive til:


dim Rs

function OpenConn( DBName )

Set Rs = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Rs.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

end function

OpenConn("database.mdb")

Det virker altså desværre stadig ikke, får stadig denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

default.asp, line 546

Hvis du søger på den fejl vil den fortælle dig at du ikke har skrive rettigheder til databasen. Du burde kunne se permissions på databasen ved at gå ind med FTP.

Sup