Hjælp til Type mismatch

hej

går ud fra at det er din replace det er galt?!? Hvad er det du gerne vil replace?

/hiks

hvis ikke det er din replace - så angiv lige i hvilken linie fejlen forekommer!

/hiks

Provider error '80020005'

Type mismatch.

/www/003c_slet.asp, line 48



linje 48 er "rsVen.Open, SQLVen, Connect, 1, 3"

Jeg vil replace alle forekomster af "," & id & "," med et komma i databasefelterne ekstra2 og ekstra3.

måske skal der ' udenom feltet, da det er et tekstfelt, men hvor sætter jeg dem?

Prøv at fjerne kommaet i efter rsVen.Open

rsVen.Open SQLVen, Connect, 1, 3

Nu får jeg en:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/www/003c_slet.asp, line 56

Har ændret lidt i scriptet, men får nu denne fejl:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rsVen'
/www/003c_slet.asp, line 56


sådan ser mit script nu ud:

Set rsVen = Server.CreateObject("ADODB.Recordset")
SQLVen = "SELECT * FROM [brugere]"
rsVen.Open SQLVen, Connect, 3, 3
               
If NOT rsVen.EOF then
    Do while NOT rsVen.EOF
   
    id = session("BrugerID")

rsVen = rsVen("ekstra2")
rsVen2 = rsVen("ekstra3")


    rsVen("ekstra2") = replace(rsVen, "," & id & "," ,",")
    rsVen("ekstra3") =  replace(rsVen2, "," & id & "," ,",")

    rsVen.Update

    Loop
End If

rsVen.close

Du skal nok prøve at bruge nogle andre variable til dit mellemresultat end den du holder dit resultat fra forspørgslen i, f.eks.:

  strVen1 = rsVen("ekstra2")
  strVen2 = rsVen("ekstra3")

  rsVen("ekstra2") = replace(strVen1, "," & id & "," ,",")
  rsVen("ekstra3") =  replace(strVen2, "," & id & "," ,",")

Nemlig! - rsVen bliver defineret som en object variabel med

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

så du kan ikke bare senere bruge den som en alm. variabel i sætningen

rsVen = rsVen("ekstra2")

og da slet ikke som begge dele i samme sætning. Det er ren gift...

hehe... nu virker det. Jeg har gjort således:

If NOT rsVen.EOF then
    Do while NOT rsVen.EOF
   
    id = session("BrugerID")

strVen2 = rsVen("ekstra2") & ""
strVen3 = rsVen("ekstra3") & ""


    rsVen("ekstra2") = replace(strVen2, "," & id & "," ,",")
    rsVen("ekstra3") =  replace(strVen3, "," & id & "," ,",")

    rsVen.Update

    rs.movenext
    Loop
End If

læg et svar softpot

hov...

Ja, det må du nok sige. Han/hun hedder altså softspot, ikke softpot! ;o)