kan du dette??

hvis rs("stem") er lig med 0 Then
skal være
hvis rs("stem") er lig med ingenting Then

if rs("stem") ="" then
response.write "der står ikke noget"
else
response.write "der står noget"
end if

if Instr(rs("stem"),"ja") Then
' der står ja
Else
' Det står noget andet
End if

du forstår det ikke.... læs mit spm igen..´jeg har lavet denne kode som ikke virker:
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
if LCase(strStemt) = LCase(strDette) Then
  strHar = "ja"
  strFelt =  rs("stem") & "," & strDette
end if
end if

>> freedom > hvilken fejlmeddelelse får du?

if rs("stem") = "" Then

Til
if Len(""&rs("stem")&"") = 0 then

Prøv dette kode:

if rs("stem") = strDette Then
  strHar = "ja"
elseif inStr(1,rs("stem"),",") > 0 then
  strEt = Split(rs("stem"),",")
  For t = LBound(strEt) to UBound(strEt)
    if strEt(t) = strDette Then
      strHar = "ja"
      exit for
    end if
  next
  if strHar <> "ja" then
    strHar = "nej"
    strFelt = rs("stem") & "," & strDette
  end if
else
  strHar = "nej"
  if len("" & rs("stem") & "") = 0 then
    strFelt = strDette
  else
    strFelt = rs("stem") & "," & strDette
  end if
end if

Response.Write "<br><br>"
Response.Write "strHar : " & strHar & "<br>"
Response.Write "strFlet : " & strFelt & "<br>"

virker næsten giver:
strStemt: asp_6


strHar : nej
strFlet : asp_6
strFelt(3): asp_6
strFelt(4): asp_6
Update data set stem='asp_6' Where id=36takker fo stemmesedlen...

strFelt skulle gerne blive til asp_5,asp_6
da asp_5 allerde er i databasen... forstå`??

ja det tror jeg...Det troede jeg faktisk også den gjorde..Prøver lige at teste det p åmin maskine.

er "stem" et notat felt ?

Hvis stem er et notat felt kan det nogle gange ske at man kun kan "bruger" det en gang i koden så man skal ligge indholdet over i en variable, rs_stem = rs("stem"), prøv lige dette:


rs_stem = rs("stem")
if rs_stem = strDette Then
  strHar = "ja"
elseif inStr(1,rs_stem,",") > 0 then
  strEt = Split(rs_stem,",")
  For t = LBound(strEt) to UBound(strEt)
    if strEt(t) = strDette Then
      strHar = "ja"
      exit for
    end if
  next
  if strHar <> "ja" then
    strHar = "nej"
    strFelt = rs_stem & "," & strDette
  end if
else
  strHar = "nej"
  if len("" & rs_stem & "") = 0 then
    strFelt = strDette
  else
    strFelt = rs_stem & "," & strDette
  end if
end if

Response.Write "<br><br>"
Response.Write "strHar : " & strHar & "<br>"
Response.Write "strFlet : " & strFelt & "<br>"

desværre det samme:
strStemt: asp_5


strHar : nej
strFlet : asp_5
strFelt(3): asp_5
strFelt(4): asp_5
Update data set stem='asp_5' Where id=36takker fo stemmesedlen...

stem er notat(meno)

det forstår jeg ikke for det virker når jeg tester på min.

indeholder rs("stem") kun "asp_5" eller er der et , efter ?

kun asp_5

Så må du vise lidt mere kode...

Læs:

http://www.eksperten.dk/spm/221754

Kommentar fra nanoq
09/06-2002 00:45:20