-Registrera annons-

--- title: "Kod fel...." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/5782-kod-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "cgi" published: "2000-06-04T18:59:00.000Z" updated: "2000-06-05T10:58:00.000Z" replies: 11 views: 215 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/5782-kod-fel" --- # Kod fel.... ## #1 — cgi, 2000-06-04T18:59Z När jag använder mig denna kod så får jag upp att ett fel ligger rad 26, men vad är det som är fel? är något jag glömt eller. ``` <%@ LANGUAGE="VBScript" %> <% namn = Replace(Session("namn"), "'", "''") epost = Replace(Session("epost"), "'", "''") telefon = Replace(Session("telefon"), "'", "''") ort = Replace(Session("ort"), "'", "''") typ = Replace(Session("typ"), "'", "''") detete = Replace(Session("Delete"), "'", "'") password = Replace(Session("Password"), "'", "'") Kat_Id = Session("Kat_Id") rubrik = Replace(Session("rubrik"), "'", "''") pris = Replace(Session("pris"), "'", "''") beskrivning = Replace(Session("beskrivning"), "'", "''") Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen SQLStmt = "INSERT INTO Annonser (namn, epost, telefon, ort, typ, kategori_id, rubrik, pris, beskrivning, delete, password) " SQLStmt = SQLStmt & "VALUES('" & namn & "', '" & epost & "', '" & telefon & "', '" & ort & "', '" & typ & "', " & Kat_Id & ", '" & rubrik & "', '" & pris & "', '" & beskrivning & "') " databas.Execute(SQLStmt) %> -Registrera annons-

Tack för din annons.!

Klicka här för att gå till huvudsidan.

``` \[Redigerat av cgi den 04 jun 2000\] Permalänk: https://www.webforum.nu/p/5782 ## #2 — PatrikB, 2000-06-04T20:06Z Hello, vilken är rad 26 och vilken typ av fel får du? Posta gärna felmeddelandet, cul8er //PatrikB Permalänk: https://www.webforum.nu/p/243404 ## #3 — SPiN, 2000-06-04T20:09Z Är felmeddelandet på INSERT INTO-uttrycket? Då kan det bero på att du inte lägger in någon information till fälten delete och password... Jag tror att det inte går att lämna fält i en databas tomma... Permalänk: https://www.webforum.nu/p/243405 ## #4 — AG, 2000-06-04T20:12Z Testa att byta ut: SQLStmt = "INSERT INTO Annonser (namn, epost, telefon, ort, typ, kategori_id, rubrik, pris, beskrivning, delete, password) " mot: SQLStmt = "INSERT INTO Annonser " SQLStmt = SQLStmt & "(namn, epost, telefon, ort, typ, kategori_id, rubrik, pris, beskrivning, delete, password,) " Har ej testat, men den koden jag klippte in fungerar i mina Insert kopplingar. Hoppas det fungerar Andreas Permalänk: https://www.webforum.nu/p/243406 ## #5 — cgi, 2000-06-04T21:43Z Tack AG nu funkar det perfekt ;) , du kanske kan ta dig en titt på denna kod också, får upp felet: Expected ')' /cgi-bin/Annons/annons.asp, line 60 If Request.Form("\<%=rs("Password") har laggt till så att när användaren skriver in ett lösenord så raderas annonsen, men det funkar inte så bra, du kanske har någon bättre lösning på problemet. Här kommer koden: ``` <%@ LANGUAGE="VBScript" %> <% id = Request("id") Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen SQLStmt = "SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum " SQLStmt = SQLStmt & "FROM Annonser, Kategorier " SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id " SQLStmt = SQLStmt & "FROM Delete, Password " SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " " Set RS = databas.Execute(SQLStmt) %> -Läs annonns- <% CurrentRecord = 0 Do while NOT RS.EOF %>

"> <% End IF %>

<% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>

<%=rs("Rubrik")%> Annonsen skriven av "><%=("Namn")%> den <%=rs("Datum")%>. Beskrivning: <%=rs("Beskrivning")%> Telefon: <%=rs("Telefon")%> <% If Request.Form("<%=rs("Password")%>") = "<%=rs("Password")%>" Then Responce.Redirect "raderad.asp" Else %> <% If Request.Form("<%=rs("Password")%>") = "" Then %> Fel lösenord! <% Else %> Fel lösenord! <% End If %> <% Rs.Delete RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %> " method="POST">
Lösenord:

``` Permalänk: https://www.webforum.nu/p/243407 ## #6 — emission, 2000-06-05T00:20Z cgi, i ASP används \<% och %\> för att skilja ASP-kod från HTML. \<%= används för att snabbt trycka ut ett värde från ASP:n till sidan. Att skriva: If Request.Form("\<%=rs("Password")%\>") = "\<%=rs("Password")%\>" Then är alltså helt fel. Det ska vara If Request.Form(rs("Password")) = rs("Password") Then ...men det är en väldigt lustig kodsnutt. Du menar antagligen... If Request.Form("Password") = rs("Password") Then En annan grej... Else %\> \<% If Onödigt att hoppa ur ASP:n med %\> för att direkt hoppa in igen med \<%. Sådant tar processorkraft. Dessutom kan man inte köra en response.redirect mitt i sidan, om man inte lagt till \<%response.buffer=true%\> i början. Hör av dig när det börjar ordna upp sig. mvh Permalänk: https://www.webforum.nu/p/243408 ## #7 — Vide, 2000-06-05T06:15Z Gunnar, du måste väl ändå mena att man måste lägga till \<%response.buffer=true%\> längst upp, då du måste buffra hela koden så att den vet att det finns en Redirect i sidan, annars skickas det en massa till klienten och så ooops kommer det en redirect, och då går det inte att ändra i HTTP'n från serversidan... Permalänk: https://www.webforum.nu/p/243409 ## #8 — emission, 2000-06-05T07:24Z Självklart. Jag ska inte svara på inlägg vid den tiden på natten. Jag ändrar så att det står rätt. Tack Vide. Permalänk: https://www.webforum.nu/p/243410 ## #9 — nanne, 2000-06-05T08:28Z Hmm.. är det inte också så att Delete och Password är reserverade ord? För ibland kan det vara så. För mig så hade jag ett jäkla problem med en fält som hette "Hemsida" när jag ändrade namn på fältet så gick det helt plötsligt. Så det måste man även tänka på. Permalänk: https://www.webforum.nu/p/243411 ## #10 — cgi, 2000-06-05T09:56Z OK har ändrat lite i koden, men får fortfarande upp felmeddelande: ``` <%@ LANGUAGE="VBScript" %> <% id = Request("id") Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen SQLStmt = "SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum " SQLStmt = SQLStmt & "FROM Annonser, Kategorier " SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id " SQLStmt = SQLStmt & "FROM Delete, Password " SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " " %> -Läs annonns- <% CurrentRecord = 0 Do while NOT RS.EOF Loop %>

"> <% End IF %> <% Do While RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>

<%=rs("Rubrik")%> Annonsen skriven av "><%=("Namn")%> den <%=rs("Datum")%>. Beskrivning: <%=rs("Beskrivning")%> Telefon: <%=rs("Telefon")%> <% If Request.Form("Password") = rs("Password") Then Responce.Redirect "raderad.asp" Else %> <% If Request.Form("Password") = "" Then %> Fel lösenord! <% Else %> Fel lösenord! <% End If %> <% Do While Rs.Delete RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %> " method="POST">
Lösenord:

``` Permalänk: https://www.webforum.nu/p/243412 ## #11 — emission, 2000-06-05T10:09Z Du gör ju ingen sökning i databasen... set rs=databas.execute(SQLstmt) Permalänk: https://www.webforum.nu/p/243413 ## #12 — cgi, 2000-06-05T10:58Z Nu får jag upp: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' \[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'Annonser.Kategori_id=Kategorier.Kat_Id FROM Delete, Password AND Annonser.Id=23'. /cgi-bin/Annons/annons.asp, line 19 Permalänk: https://www.webforum.nu/p/243414 --- Tråden på webben: https://www.webforum.nu/amne/asp/5782-kod-fel