Fejl

hvad er fejl medelelsen ?

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected \'End\'
/asp/database/blandet.asp, line 39


Browser Type:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

Page:
GET /asp/database/blandet.asp

Time:
24. juli 2001, 12:40:01

Det kunne være rart at have fejlmedelelsen, men et bud er at de sidste sætninger skal være.

set row = nothing
conn.close
set conn = nothing

da du vist ikke må lukke connectionen mens du har et aktivt recordset.

Oswald det var ikke det :)

du har en masse else if ... then, som du ikke afslutter med et end.

vidste jeg sq ikke man skulle

kan du give et eksempel?


else if() then

end???

Så er det måske dette :).
Prøv at skriv ELSEIF og ikke ELSE IF

Men det andet er nu god skik.

prøv denne:

<%
Set conn = Server.CreateObject(\"ADODB.connection\")
Conn.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.mapPath(\"test.mdb\")

if(request(\"action\") =\"hent\") then
    SQL = \"select * from user\"
    Set row = Conn.execute( SQL )
else
    if(request(\"action\") =\"ret\") then
       
        SQL = \"update user set navn = \'mads2000\' where id =1\"
        Conn.execute( SQL )
   
  else
      if(request(\"action\") =\"slet\") then
            SQL = \"Delete from user where id =10\"
            conn.execute( SQL )
        else
          if(request(\"action\") =\"skriv\") then
                set row = server.createobject(\"ADODB.Recordset\")
                SQL = \"select * from user\"
                row.open SQL,1,3
                row.addnew
                row(\"navn\") = \"mads\"
                row.update
                row.close
            else
       
                Response.write(\"Du mangler at skrive en funktion\")
            end if
        end if
    end if
end if
conn.close
set conn = nothing
set row = nothing
%>

/nute

hver gang du laver en if skal den afsluttes med end if.

if ... then

else
    if ... then
    end if
end if

Du kan forøvrigt med fordel omskrive din kode til at bruge select..case.

Jeg ville nu ellers lave noget i stilen med. (Den er ikke testet så der er nok en fejl eller to)

select case lcase(request(\"action\"))
case \"hent\"
    SQL = \"select * from user\"
    Set row = Conn.execute( SQL )
case \"ret\"       
        SQL = \"update user set navn = \'mads2000\' where id =1\"
        Conn.execute( SQL )
case \"slet\"
            SQL = \"Delete from user where id =10\"
            conn.execute( SQL )
case \"skriv\"
                set row = server.createobject(\"ADODB.Recordset\")
                SQL = \"select * from user\"
                row.open SQL,1,3
                row.addnew
                row(\"navn\") = \"mads\"
                row.update
                row.close
case else
       
                Response.write(\"Du mangler at skrive en funktion\")
end select

jeg er fullstendig enig med oswald. En select case er bedre å benytte til denne type problem.

/nute

ARghhh slag til mig *GG*

det var fordi jeg havde taget fejl af

else if og elseif


.... takker for hjælpen..!