fejl i databasen

Erstat By med [By] - det er et reserveret ord i SQL

skal jeg så også ændre kolonnenavnet i min database?

nej, det er ikke nødvendigt. Men alternativt kan du jo kalde det fx: bynavn

jeg får stadig fejlmeldingen:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

fejlen ligger ved linjen rs.Open strSQL,conn

plz hjælp =)

Er  Level  ikke også reserveret ord.. -->  [level]

Hvis din klonne du smider et tallet i..:
strSQL=strSQL & "'1', "

er defineret som tal kolonne skal der ikke ping omkring:
strSQL=strSQL & "1, "


Hvis den kolonne du smider Now() i er en date/time kolonne så prøv at rette:
strSQL=strSQL & "#"&Now()&"#, "
til:
strSQL=strSQL & "Now(), "

den bliver ved med at sige:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

og jeg tror ikke at level er reserveret jeg har brugt det i sessions før...

Du behøver ikke et recordset for at lave en insert. Brug conn.execute
selvom det nok ikke er det der er galt.

jeg har andre database gemninger liggende i samme fil, altså der er flere systemer der bruger siden til at gemme alt efter hvad Querystringen "gem" returnerer og de virker fint

Så er det nok en af de andre der er forkert. Er du sikker på linienummeret?

jaja den returnerer kun den fejl når jeg bruger den database, de andre gemmer den ordenligt.

jeg mangler nogen svar... eagle det var ikke det der var galt :P

erikjacobsen har vist svare på det så ;)

dem samme fejlmeddelelse selvom det er Conn.Execute(strSQL)

Jeg sagde også bare, at det RecordSet var unødvendigt.

Men vis os kode og giv et link til siden, så finder vi løsningen. Vi kan
ikke finde den uden flere oplysninger.

.... hvis du har en mail sender jeg gem filen, den er halv stor til at knalde ind i text :)

Du mener: hvis jeg vil fortælle dig min mailadresse ;) Det vil jeg ikke.

Det skal ske på eksperten.dk eller slet ikke. Hvis den virkelig er så stor
som du siger, så kunne det være en ide for dig at dele den op i mindre
bidder. Så er det også nemmere for dig at se hvor fejlen reelt opstår.

Er du 200% sikker på det er den rigtige fil/linje den fejl kommer i..

Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

Da den ikke kan finde Insert i starten af denne linje:
strSQL = "Insert into Brugere

så godt som... hvilken linje kunne det da ellers være?

Alle andre steder du siger rs.Open eller conn.execute

overhovedet ikke

det er for mig meget mystisk... jeg kan sætte hele stykket ind men det bliver måske en smule uoverskueligt?

Det behøver du heller ikke.

Men så får du helt sikkert ikke svar ;)

Men hvis det ikke er overskueligt, hvorfor gør du det så ikke overskueligt?

... det kan jeg ikk =)
jeg er et rodehoved af rang... det der med indrykning har aldrig været min stærke side :P

nå, i får den alligevel ejg håber det er tilladt at knalde så lang en kode ind :P

det er systemet: bruger i skal kigge efter


<%
strGem = Request.Querystring("gem")
if strGem = "" then
Response.Write "du skal gemme i en database"
else
Function RemoveHTML( strInputText )

  TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;BASE;BASEFONT;" &_
    "BGSOUND;BIG;BLOCKQUOTE;BODY;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
    "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
    "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;IFRAME;IMG;" &_
    "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
    "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
    "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STYLE;SUB;SUP;" &_
    "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;UL;VAR;WBR;XMP;" 

  Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"
   
  Dim nPos1, nPos2, nPos3
  Dim strResult, strTagName, bRemove, bSearchForBlock
 
  Dim runNo, AttackLimit, strRef
 
  runNo = 1
  AttackLimit = 5
 
  strResult = strInputText
  do
    runNo = runNo + 1
    strRef = strResult
    strText = strRef
    strResult = ""
   
    nPos1 = InStr(strText, "<")
    Do While nPos1 > 0
      nPos2 = InStr(nPos1 + 1, strText, ">")
      If nPos2 > 0 Then
        strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
        strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
        nPos3 = InStr(strTagName, " ")
        If nPos3 > 0 Then
          strTagName = Left(strTagName, nPos3 - 1)
        End If
        If Left(strTagName, 1) = "/" Then
          strTagName = Mid(strTagName, 2)
          bSearchForBlock = False
        Else
          bSearchForBlock = True
        End If   
        If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
          bRemove = True
          If bSearchForBlock Then
            If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
              nPos2 = Len(strText)
              nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
              If nPos3 > 0 Then
                nPos3 = InStr(nPos3 + 1, strText, ">")
              End If
              If nPos3 > 0 Then
                nPos2 = nPos3
              End If
            End If
          End If
        Else
          bRemove = False
        End If
        If bRemove Then
          strResult = strResult & Left(strText, nPos1 - 1)
          strText = Mid(strText, nPos2 + 1)
        Else
          strResult = strResult & Left(strText, nPos1)
          strText = Mid(strText, nPos1 + 1)
        End If
      Else
        strResult = strResult & strText
        strText = ""
      End If
      nPos1 = InStr(strText, "<")
    Loop
    strResult = strResult & strText
 
  loop until (strRef = strResult) OR (runNo = AttackLimit)
 
  if (runNo >= AttackLimit) then
    strResult = "text fjernet"
  end if
  RemoveHTML = strResult
End Function

strAdmin1 = "<font color=" & Request.Form("farve") & ">"
strAdmin2 = "</font>"

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
set rs = Server.CreateObject("ADODB.recordset")
if strGem = "tagwall" then
DSN = DSN & "DBQ=" & Server.MapPath("Tagwall.mdb")
elseif strGem = "forum" then
DSN = DSN & "DBQ=" & Server.MapPath("Forum.mdb")
elseif strGem = "nyhedssystem" then
DSN = DSN & "DBQ=" & Server.MapPath("Nyhed.mdb")
elseif strGem = "bruger" then
DSN = DSN & "DBQ=" & Server.MapPath("Brugere.mdb")
end if
Conn.Open DSN
'115
                                                        'TAGWALL
                                                        if strGem = "tagwall" then

strTekst1 = Request.Form("Overskrift")
strTekst1 = Replace(strTekst1, "'", "''")
strTekst2 = Request.Form("Tag")
strTekst2 = Replace(strTekst2, "'", "''")
strTekst2 = Replace(strTekst2,VbCrLf,"<br>")
strTekst3 = Request.Form("Email")
strTekst3 = Replace(strTekst3, "'", "''")
strTekst4 = Request.Form("Forfatter")
strTekst4 = Replace(strTekst4, "'", "''")
if cint (session("level")) < 9 then
strTekst1 = Replace(strTekst1, "Siden lukker", "siden lukker ikke")
strTekst1 = Replace(strTekst1, "siden lukker", "siden lukker ikke")
strTekst4 = Replace(strTekst4, "admin", "wannabee admin")
strTekst4 = Replace(strTekst4, "Admin", "wannabee admin")
strTekst4 = Replace(strTekst4, "Ejer", "wannabee admin")
strTekst4 = Replace(strTekst4, "ejer", "wannabee admin")
strTekst4 = Replace(strTekst4, "Koma", "wannabee admin")
strTekst4 = Replace(strTekst4, "koma", "wannabee admin")
strTekst4 = Replace(strTekst4, "Kragen", "wannabee admin")
strTekst4 = Replace(strTekst4, "kragen", "wannabee admin")
strTekst4 = Replace(strTekst4, "Arez", "wannabee admin")
strTekst4 = Replace(strTekst4, "arez", "wannabee admin")
end if

strSQL="Insert into tags (Skriver, Overskrift,"
strSQL=strSQL & "Tag, Email, Dato, Ip)"
strSQL=strSQL & "values "
strSQL=strSQL & "('" & Server.HTMLEncode(strTekst4) & "', "
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst1) & "', "
if (session("level")) => 5 then
strSQL=strSQL & "'" & strAdmin1 & strTekst2 & strAdmin2 & "', "
else
strSQL=strSQL & "'" & RemoveHTML(strTekst2) & "', "
end if
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst3) & "', "
                                                                'Nyhedsystem
                                                elseif strGem = "nyhedssystem" then

if Not cint(session("level")) => 7 Then
Response.redirect "login.asp"
end if

strSQL="Insert into nyheder (Forfatter, Overskrift,"
strSQL=strSQL & "Nyhed, Dato, Ip)"
strSQL=strSQL & "values "
strSQL=strSQL & "('" & Request.Form("Forfatter") & "', "
strSQL=strSQL & "'" & Request.Form("Overskrift") & "', "
strSQL=strSQL & "'" & Request.Form("Nyhed") & "', "

                                                                'FORUM
                                                elseif strGem = "forum" then
if Request.Querystring("action") = "comment" then
strTekst2 = Request.Form("Comment")
strTekst2 = Replace(strTekst2, "'", "''")
strTekst2 = Replace(strTekst2,VbCrLf,"<br>")
strTekst1 = Request.Form("Forfatter")
strTekst1 = Replace(strTekst1, "'", "''")

strSQL="Insert into Threads (Comskriver, Comid,"
strSQL=strSQL & "Comment, Comdato, Comip)"
strSQL=strSQL & "values "
strSQL=strSQL & "('" & Server.HTMLEncode(strTekst1) & "', "
strSQL=strSQL & "'" & Request.Querystring("id") & "', "
if (session("level")) => 5 then
strSQL=strSQL & "'" & strAdmin1 & strTekst2 & strAdmin2 & "', "
else
strSQL=strSQL & "'" & RemoveHTML(strTekst2) & "', "
end if

elseif Request.Querystring("action") = "create" then

strTekst2 = Request.Form("problem")
strTekst2 = Replace(strTekst2, "'", "''")
strTekst2 = Replace(strTekst2,VbCrLf,"<br>")
strTekst1 = Request.Form("Forfatter")
strTekst1 = Replace(strTekst1, "'", "''")
strTekst3 = Request.Form("Overskrift")
strTekst3 = Replace(strTekst3, "'", "''")
'197
strSQL="Insert into Threads (Threadskriver, Threademne,"
strSQL=strSQL & "Thread, Threadok, Threaddato, Threadip)"
strSQL=strSQL & "values "
strSQL=strSQL & "('" & Server.HTMLEncode(strTekst1) & "', "
strSQL=strSQL & "'" & strTekst3 & "', "
if (session("level")) => 5 then
strSQL=strSQL & "'" & strAdmin1 & strTekst2 & strAdmin2 & "', "
else
strSQL=strSQL & "'" & RemoveHTML(strTekst2) & "', "
end if
strSQL=strSQL & "'ja', "
                                                                'Brugersystem
                                                elseif strGem = "bruger" then
strTekst2 = Request.Form("profil")
strTekst2 = Replace(strTekst2, "'", "''")
strTekst2 = Replace(strTekst2,VbCrLf,"<br>")
strTekst1 = Request.Form("usrname")
strTekst1 = Replace(strTekst1, "'", "''")
strTekst3 = Request.Form("usrpsw")
strTekst3 = Replace(strTekst3, "'", "''")
strTekst4 = Request.Form("bynavn")
strTekst4 = Replace(strTekst4, "'", "''")
strTekst5 = Request.Form("Kon")
strTekst5 = Replace(strTekst5, "'", "''")

strSQL="Insert into Brugere (Profil, Bruger,"
strSQL=strSQL & "Kode, level, Bynavn, Kon, Oprettet, Ip)"
strSQL=strSQL & "values "
strSQL=strSQL & "('" & RemoveHTML(strTekst2) & "', "
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst1) & "', "
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst3) & "', "
strSQL=strSQL & "1, "
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst4) & "', "
strSQL=strSQL & "'" & Server.HTMLEncode(strTekst5) & "', "
end if
end if
strSQL=strSQL & "#"&Now()&"#, "
strSQL=strSQL & "'" & Request.ServerVariables("REMOTE_ADDR") & "')"

rs.Open strSQL,conn

'afslutnings tekst
if strGem = "forum" then
if Request.Querystring("action") = "create" then
Response.Write "Tråden er oprettet <a href='sefor.asp'>Se alle tråde</a>"
elseif Request.Querystring("action") = "comment" then
Response.Redirect "sethread.asp?id=" & Request.Querystring("id")
end if
elseif strGem = "tagwall" then
Response.Write "tag oprettet tak for din besked, <a href='setag.asp'>se tagwall</a>"
elseif strGem = "bruger" then
Response.Write "Din bruger er oprettet, <a href='login.asp'>log ind</a>"
elseif strGem = "nyhedssystem" then
Response.Write "Nyheden er oprettet <a href='senyhed.asp'>Til forsiden</a>"
else
Response.Write "Der er ikke angivet nogen data <a href=java script:history.go(-1)>tilbage</a>"
end if
end if
%>

Det er jo noget helt andet kode end du har vist os indtil nu.

Hvorfor spilder du vores og din tid på den måde?

På grund af dine if-er får du sikkert ikke proppet noget ind i strSQL ud over
de to linier, der står lige før rs.Open. Det finder du ud af ved at:

reponse.write strSql
rs.Open strSQL,conn

og se hvad den skriver ud.

Og når du så ser at der ikke står det rigtige, så går du i gang med at
rydde op i din kode, så du er i stand til at se hvad der foregår.

Jeg gider ikke gøre det for, ej heller gider jeg spilde mere tid på dig ;)

Du skal venligst afvise mit svar - jeg smutter.

jeg lukker ;(