mærkeligt......

hvis strDette er "asp_6" eller 7,8,9 osvskal den tilføje det til strFelt og hvis ikke gøre ingenting...
undskyld stave fejl

Er strStem og strStemt det samme eller to forskellige ? Hvis det ikke er en stavefejl, hvor kommer strStem så fra og hvad er den aktuelle værdi ?

sql = "Update data set " &_
      "stem='" & strFelt & "' " &_
      "Where id=" & strBid & ""

Prøv den her ...

det var en stave fejl,men det virker stadig ikke... samme fejl... vil du se det hele??? strFelt er tom??

curriculum --> det samme...

ja undskyld ..
men hvorfor bruger du ikke cookies ?

Det er en smule svært at finde fejlen i dette brudstykke af koden, når der anvendes variabler der er initialiseret tidligere i koden.

Hvor kommer eks. værdien af strDette fra ?

Som jeg læser koden, er det i dette afsnit at strFelt skal have sin værdi:

if rs("stem") = "" Then
    strHar = "nej"
    strFelt = strDette
end if

Men det forudsætter at strDette har fået en værdi tidligere ?

fordi... det gør jeg bare ikke... det er en lang histroie.. det har noget med points at gøre.. bruger må ikke kunne stemme to gange..

Skriver i cookie'en:

Response.Cookies("Stemt")("Status") = NOW()

og henter den så med:

Dim Voted
Voted = Request.Cookies("Stemt")("Status")
If Voted < NOW()+1 then
  Response.Write "Du har stemt"
Else
  Response.Write "Du har ikke stemt" ....
End If

tmceu --> det er jo det??den har ikke fået noget værdi tidliger... efter om det står noget vælger den en anden værdi for strFelt...

strDette er ikke identificeret i denne linje (linje 3 efter sql'en)!
strFelt = strDette

her er hele scriptet:
<%
' check om bruger har stemt..
strDette = request.Querystring("data")
strTor = Split(strDette,"_")
strKat = strTor(0)
strid = strTor(1)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("..\databaser\bruger.mdb")
Conn.Open DSN
strSQL = "Select * from data where brugernavn = '" & session("brugernavn") & "'"
set rs = Conn.ExeCute(strSQL)
strStemt = rs("stem")
if rs("stem") = "" Then
strHar = "nej"
strFelt = strDette
end if
if instr (strStemt,",") > 0 Then
strEt = Split(strStemt,",")
  For t = LBound(strEt) to UBound(strEt)
if strEt(t) = strDette Then
strHar = "ja"
strFelt =  rs("stem") & "," & strDette
else
end if
next
end if
if instr (strStemt,",") = 0 Then
strStem2 = rs("stem")
if strStem2 = strDette Then
strHar = "ja"
strFelt =  rs("stem") & "," & strDette
else
end if
end if
'hvis strHar = nej fortæsset dette

strBid = rs("id")
if strHar = "ja" Then
response.write "du har stemt..."
else
response.write strFelt
sql = "Update data set "
sql = sql & "stem='" & strFelt & "' "
sql = sql & "Where id=" & strBid & ""
response.write sql
Set rs = Conn.Execute(sql)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN
strSQL = "Select * from " & strKat & " where id=" & strId
set rs = Conn.ExeCute(strSQL)
if rs.EOF Then
resonse.write "kunne ikke finde, det toruails du stemte på.... kontakt venligt admin.. under send en email til admin"
else
strHits = rs("hits") + request.form("points")

sql = "Update " & strKat & " set "
sql = sql & "hits='" & strHits & "' "
sql = sql & "Where id=" & strid & ""
Set rs = Conn.Execute(sql)

response.write "takker fo stemmesedlen..."
end if
end if
%>

Er du sikker på, at der er nogen værdi i querystring'en ?

Prøv at indsætte disse linier i toppen af koden:

Response.Write "data: " & request.Querystring("data")
Response.End

Dette udskriver værdien af data fra querystring og stopper scriptet.

Du har ikke evt. ændret metode fra GET til POST, der hvor du stemmer fra ?

ja det er der...... indholder
asp_5

kat og id

Prøv at køre denne kode midlertidig. Gem en kopi af din nuværende kode og indsæt denne i filen. Kopier så alt hvad der skrives til skærmen herind, eller smid et link til filen.

Jeg har smidt nogle response.write ind, for at se værdierne ned gennem scriptet.

<%
' check om bruger har stemt..
strDette = request.Querystring("data")
strTor = Split(strDette,"_")
strKat = strTor(0)
strid = strTor(1)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("..\databaser\bruger.mdb")
Conn.Open DSN

strSQL = "Select * from data where brugernavn = '" & session("brugernavn") & "'"
set rs = Conn.ExeCute(strSQL)

strStemt = rs("stem")

response.write "strStemt: " & strStemt & "<BR>"

if rs("stem") = "" Then
strHar = "nej"
strFelt = strDette
end if

response.write "strFelt: " & strFelt & "<BR>"


if instr (strStemt,",") > 0 Then
strEt = Split(strStemt,",")
  For t = LBound(strEt) to UBound(strEt)
if strEt(t) = strDette Then
strHar = "ja"
strFelt =  rs("stem") & "," & strDette
else
end if

response.write "strFelt(2): " & strFelt & "<BR>"

next
end if

if instr (strStemt,",") = 0 Then
strStem2 = rs("stem")
if strStem2 = strDette Then
strHar = "ja"
strFelt =  rs("stem") & "," & strDette
else
end if

response.write "strFelt(3): " & strFelt & "<BR>"

end if
'hvis strHar = nej fortæsset dette

strBid = rs("id")
if strHar = "ja" Then
response.write "du har stemt..."
else

response.write "strFelt(4): " & strFelt & "<BR>"

sql = "Update data set "
sql = sql & "stem='" & strFelt & "' "
sql = sql & "Where id=" & strBid & ""
response.write sql
Set rs = Conn.Execute(sql)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN
strSQL = "Select * from " & strKat & " where id=" & strId
set rs = Conn.ExeCute(strSQL)
if rs.EOF Then
resonse.write "kunne ikke finde, det toruails du stemte på.... kontakt venligt admin.. under send en email til admin"
else
strHits = rs("hits") + request.form("points")

sql = "Update " & strKat & " set "
sql = sql & "hits='" & strHits & "' "
sql = sql & "Where id=" & strid & ""
Set rs = Conn.Execute(sql)

response.write "takker fo stemmesedlen..."
end if
end if
%>

giver:
Update data set stem='' Where id=36
Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Feltet "data.stem" kan ikke indeholde en streng af længden nul.

/on/t_forum/stem.asp, line 48

Hvad ? Du skulle gerne have en masse response.write ned gennem siden ?

nej..det er outputet..

undskyld min fejl:
strStemt: asp_5
strFelt:
strFelt(3):
strFelt(4):
Update data set stem='' Where id=36
Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Feltet "data.stem" kan ikke indeholde en streng af længden nul.

/on/t_forum/stem.asp, line 66

strFelt indholder ingentibg mærkeligt ikk? godnat.. kommer igen imorgen og håber du kan hjælpe..

Det går galt omkring denne blok:

if instr (strStemt,",") = 0 Then
strStem2 = rs("stem")
if strStem2 = strDette Then
strHar = "ja"
strFelt =  rs("stem") & "," & strDette
else
end if
end if

Prøv at erstatte den med denne:

if instr (strStemt,",") = 0 Then
if LCase(strStemt) = LCase(strDette) Then
  strHar = "ja"
  strFelt =  rs("stem") & "," & strDette
end if
end if

Alternativt prøv med denne:

if not instr (strStemt,",") Then
if LCase(strStemt) = LCase(strDette) Then
  strHar = "ja"
  strFelt =  rs("stem") & "," & strDette
end if
end if

Der bør principielt ikke være forskel på de 2 alternativer, men ift. dit oprindelige er der flg. ændringer:

1. strStem2 er fjernet. Du har allerede værdien fra rs("stem") i strStemt
2. Jeg har konverteret til lowercase, for at eks. ASP_5 er lig asp_5
3. Jeg har fjernet en "tom" else

det samme... du for 50 points . og jeg opretter spm. igen...

okay