RecSet.update........FEL

Har du kollat så att inte din databas är skrivskyddad / eller öppnad av någon annat program

Och sedan använd inte IDG's Webstudios system med RecSet.Update utan använd följande:

SQL= "UPDATE Tabell SET faltNamn = " & NågotVärde & " WHERE nogotID = Någotannat"
objConn.Execute(SQL)

Vad kör du för server/operativsystem??

Det kan inte bero på att mappen där databasen ligger är skrivskyddad eller att det är fel rättigheter på den!???

den ligger asso på servern så något annat program kan inte andvända db jag ska testa din sql-sats

Som sagt, kolla även ifall du har skrivrättigheter till mappen

hur gör jag det smidigast ...nu när jag har den på servern....

testade din sql-sats fick då detta meddelande:

Microsoft VBScript runtime error '800a01a8'

Object required: 'ObjConn'

/default.asp, line 249

line 248-->

SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1"
	ObjConn.Execute(SQL)

objConn är namnet på ett connection-objekt. byt ut det till namnet du angav när du skapade connectionobjektet högre upp i koden.

mvh,

byt ut objConn mot din connection-variabel, den som börjar ngt liknande:

Set Connection = Server.CreateObject("ADODB.Connection")

cya,

nu blev det:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.

/default.asp, line 249

rad 248 och framåt

SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1"
	Connect.Execute(SQL)

då verkar det som om variabeln Ja är tom.

vad ska du ha in för värde?

det är en omröstning där jag ska plusa på värdet ja med ett typ så här:

If Request.QueryString("fraga") = "Ja" Then
	Ja = RecSet("Ja")
	RecSet("Ja") = Ja -- 1
	
	SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1"
	Connect.Execute(SQL)

det har funkat förut......

Förslag på kod:

SQL= "UPDATE svar SET post_1 = TRUE WHERE ID = 1"
Connect.Execute(SQL)

Du kan ju inte ha en post som heter "ja", det betyder ju inget!

* Inga fjumpar när man frågar efter siffror eller TRUE/FALSE.
* # vid datum.
* Enkelfjumpar för text.

Äh... vad dum jag är... Du kan nästan bortse från mitt förra inlägg.

Men bara nästan. Jag tycker inte din lösning verkar särskilt genomtänkt. Hur ska du göra med nästa fråga då!?

Du kan ju inte hålla på att göra en databaslösning för varje fråga. Det är ju liksom hela vitsen med databaser!

sorry...

här är hela koden :

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &server.mappath("/icaaq-filer/snabbfraga") 

	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Fraga FROM fraga"   
   RecSet.Open Visa, Connect, 3, 3 %>
                    <b> 
                    <% =RecSet("Fraga") %>
                    </b></font></div>
                </td>
                <% RecSet.Close%>
              </tr>
              <tr> 
                <td valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
                  <% If Request.Cookies("vote").haskeys = False And Request.QueryString("fraga") = "" Then %>
                  <%Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Ja, Nej FROM svar"
   RecSet.Open Visa, Connect, 3, 3

	

	Yes = RecSet("Ja")
	No = RecSet("Nej")
	Summa = Yes -- No %>
                  <br>
                  <% YResultat = "0"
	NResultat = "0"

	If Yes => "1" Then
	YResultat = Round(Yes / Summa * 100)
	End If

	If No => "1" Then
	NResultat = Round(No / Summa * 100)
	End If %>
                  <a href="default.asp?fraga=Ja">Ja:</a> <font color="#FF0000"> 
                  <% =YResultat %>
                  </font>%<br>
                  <a href="default.asp?fraga=Nej">Nej:</a> <font color="#FF0000"> 
                  <% =NResultat %>
                  </font>% </font> 
                  <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
                    Antal svar hittills: <b> 
                    <% =Summa %>
                    </b> 
                    <%	RecSet.Close
	Connect.Close
	Else
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Ja, Nej FROM svar"
   RecSet.Open Visa, Connect, 3, 3

	If Request.QueryString("fraga") = "Ja" Then
	Ja = RecSet("Ja")
	RecSet("Ja") = Ja -- 1
	
	SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1"
	Connect.Execute(SQL)

	
		
	Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1
	
	ElseIf Request.QueryString("fraga") = "Nej" Then
	Nej = RecSet("Nej")
	RecSet("Nej") = Nej -- 1
	´såhär hade jag förut
	RecSet.Update
	
	Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1
	
		
	ElseIf Request.QueryString("fraga") = " " Then
	Ja = RecSet("Ja")
	Nej = ResSet("Nej")
	End If

	Yes = RecSet("Ja")
	No = RecSet("Nej")
	Summa = Yes -- No %>
                    <br>
                    <% YResultat = "0"
	NResultat = "0"

	If Yes => "1" Then
	YResultat = Round(Yes / Summa * 100)
	End If

	If No => "1" Then
	NResultat = Round(No / Summa * 100)
	End If %>
                    Ja: <font color="#FF0000"> 
                    <% =YResultat %>
                    </font>%<br>
                    Nej: <font color="#FF0000"> 
                    <% =NResultat %>
                    </font>% </font> 
                  <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
                    Antal svar hittills: <b> 
                    <% =Summa %>
                    </b> 
                    <%	RecSet.Close
	Connect.Close
	End If

jag har bara en omröstning som jag ändrar frågan på en admin sida (som jag inte vet om den funkar nu heller, men det är nästa fråga..)

det kanske är en dum lösning men den funkade ju förut ...har bytt server nu ..

En sak jag ser som är fel är att du har fnuttar runt tal:

If Yes => "1"

Det skall man inte ha, då uppfattas dom inte som tal längre...

hela koden bygger på IDG`s poll script så jag har inte skrivit det själv bara ändrat lite efter mina behov......jag skrotar det och försöker skriva ett själv....ett som funkar(förhopningsvis)

Swede.com har ett bra sådant på svenska

Demo: http://swede.com/support/poll/poll.asp

Ladda hem: http://swede.com/support/poll.zip