Når en uerfaren prøver :o)

Hej

Er der nogen der kan tilrette dette så det virker?

Jeg får nogle værdier "post" fra noget flash og det skal så lige behandles lidt inden det skal i databasen.

Jeg forsøger at tælle på hvor mange gange email adressen findes i databasen. 0 gange "insert" på normal vis, hvis den findes skal der "update" ved at tælle antal 1 op. Dette må ske op til 25 gange.

Hvis jeg fjerner hele count delen fungerer det hele fint!

Connectionstring og DoQuotes er sat op i seperat fil.

Er der nogle eksperter der kan hjælpe?  :o)



    dim checkSQL
    dim rs
    dim sAntal
    dim sUge
    dim sSQL
    dim sNavn
    dim sEmail
    dim sNyhed
    dim sCompetition
   
    if Request.Form <> "" then   
        sNavn = Request.Form("navn")
        sEmail = Request.Form("email")
        sNyhed = Request.Form("nyhed")
   
    sCompetition = "test"
        sUge = "39"
    sAntal = "1"


   
    checkSQL = "SELECT COUNT (Email) FROM Results WHERE Email=" & sEmail
    set rs = cnnTarget.execute(checkSQL)   
   
   
          if rs = 0 then
            sSQL = "INSERT INTO Results (Navn, Email, Nyhedsbrev, Antal, Uge, Konkurrence) VALUES ("
            sSQL = sSQL & "'" & Left(DoQuotes(sNavn), 200) & "',"
            sSQL = sSQL & "'" & Left(DoQuotes(sEmail), 200) & "',"
            sSQL = sSQL & "'" & Left(DoQuotes(sNyhed), 50) & "',"           
            sSQL = sSQL & "'" & Left(DoQuotes(sAntal), 50) & "',"       
            sSQL = sSQL & "'" & sUge & "',"
            sSQL = sSQL & "'" & Left(DoQuotes(sCompetition), 200) & "')"
            cnnTarget.execute sSQL
            response.write("<OK />")
        else if rs > 0 and rs < 26
            sSQL = "UPDATE Results SET Antal = "rs + 1" WHERE Email= " & sEmail
            cnnTarget.execute sSQL
            response.write("<OK />")
        else
            response.write("ERROR")
        end if
       
    else
        response.write("ERROR")
    end if
       

   
    cnnTarget.close
    set cnnTarget = nothing