Hjælp med at finde fejlene?!...

Hej Annika.

Kan du ikke lige smide ASP-koden her så jeg kan se hvad den gør ??

Meyer

En helt skør tanke: er der et felt med en id, hvor der kun er plads til ét tegn eller ciffer.
Så vil \"10\" måske blive til \"1\" eller \"0\", som er der allerede. Men det er bare et gæt!

Hejsa..
Det går ikke så godt det her :o)

Har kigget i databasen, og ændret ID fra tekst til Autonum.
Så ser det ud til at jeg kan oprette mere end 9 nu :o))

MEN... når jeg trykker på profilerne nu, får jeg DENNE dejlige fejl>>
Microsoft OLE DB Provider for ODBC Drivers error \'80040e07\'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/odigo_a/vis.asp, line 20


Så det der vel ET eller andet i den ddb der ikke matcher???
Kæmper videre stadig, men stadig.. I er velkomne til at kontakte mig, hvis I tør se på det her.

Annika

Hvis du før skrev

  ... WHERE id=\'7\'

skal du nu skrive

  ... WHERE id=7

Det der står i menuen lige nu er:

<tr>
      <td width=\"100%\"><A HREF=\"menu_lista.asp?navn=a\"target=\"_self\">----A----</a></td>
  </tr>
    <% if navn = \"a\" then %>
    <%
      Set Conn = Server.CreateObject(\"ADODB.Connection\")
      Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"../database/odigoliste.mdb\")
      SQL = \"Select * From Profil Order By ID\"
      Set RS = Conn.Execute(SQL)%>
    <% Do While Not RS.EOF %>
    <% test = left(rs(\"Odigo_navn\"),1)%>
    <% if test = \"A\" or test = \"a\" then %>
      <tr>
        <td width=\"100%\">&nbsp;<FONT face=verdana SIZE=\"1\"><A HREF=../vis.asp?nr=<%=RS(\"ID\")%>><% =RS(\"Odigo_navn\")%></font></a></td>
      </tr>
    <% end if %>
    <%
      RS.MoveNext
      Loop
    %>
    <%end if%>


Dette skal altså rettes til:

<tr>
      <td width=\"100%\"><A HREF=\"menu_lista.asp?navn=a\"target=\"_self\">----A----</a></td>
  </tr>
    <% if navn = a then %>
    <%
      Set Conn = Server.CreateObject(\"ADODB.Connection\")
      Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"../database/odigoliste.mdb\")
      SQL = \"Select * From Profil Order By ID\"
      Set RS = Conn.Execute(SQL)%>
    <% Do While Not RS.EOF %>
    <% test = left(rs(\"Odigo_navn\"),1)%>
    <% if test = A or test = a then %>
      <tr>
        <td width=\"100%\">&nbsp;<FONT face=verdana SIZE=\"1\"><A HREF=../vis.asp?nr=<%=RS(\"ID\")%>><% =RS(\"Odigo_navn\")%></font></a></td>
      </tr>
    <% end if %>
    <%
      RS.MoveNext
      Loop
    %>
    <%end if%>


Eller hvordan???
Håber du har jeg, og at jeg har fanget pointen...

Nej, ikke der. Det er ikke der du skal fjerne \"...\" omkring. Det er et eller andet
SQL-udtryk, og det skal have noget med  id  at gøre. Første version af ovenstående
ser korrekt ud. Det er et andet sted.

Prøver lige efter at have tænkt og kigget lidt igen.
Det fra før, var menuen, men da det er det at vise profilerne, er det vel min vis-fil den er \"gal\" med...
det eneste der står i den med \"ID\" er nedenstående:

<%
idnr = Request.QueryString(\"nr\")
If idnr = \"\" Then
  Response.Redirect \"vis.asp?nr=1\"
Else
  Kategori = idnr
  Session(\"nr\") = idnr
End If
%>
<html>
  <head>
    <title>Vis</title>
    <LINK href=\"css/base.css\" rel=Stylesheet type=text/css>
  </head>
  <body>
  <%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"database/odigoliste.mdb\")
    SQL = \"Select * From Profil Where id = \'\" & Kategori & \"\' Order By ID\"
    Set RS = Conn.Execute(SQL)
  %>
    <table border=\"0\" width=\"149\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"50%\"><form name=\"edit\" action=\"edit.asp\" method=\"post\">
        <input type=\"hidden\" name=\"ID\" Value=<% =rs(\"id\") %>><input src=\"gfx/edit.jpg\" type=\"image\">
        </form></td>
      <td width=\"1%\"></td>
      <td width=\"50%\"><form name=\"slet\" action=\"slet.asp\" method=\"post\">
        <input type=\"hidden\" name=\"ID\" Value=<% =rs(\"id\") %>><input src=\"gfx/slet.jpg\" type=\"image\">
        </form></td>
    </tr>
  </table>

Der er ualmindeligt mange ID der synes jeg, og bliver helt i tvivl om hvilke der skal være \"\" omkring og ej..
Hvis det er det rigtige område, vil du så skrive hvilke der skal rettes??

(Bør måske sige at som absolut newbie, så synes jeg det er svært at finde fejl, i noget en anden en har lavet *S* - men måske det er en god måde at lære lidt på.
Bare det dog ikke havde været en hel dag jeg havde siddet med det...)

Puha.. godt man har eksperten...

Det går nok... Du skal ændre linien

  SQL = \"Select * From Profil Where id = \'\" & Kategori & \"\' Order By ID\"

til

  SQL = \"Select * From Profil Where id = \" & Kategori & \" Order By ID\"

Ser du forskellen? Nu bliver det til  Wwhere id = 7  i stedet for    Where id = \'7\'    hvis
altså kategorien er 7.

Jubiiii...
Det virker nu.
Tak for hjælpen ErikJ

Så simpelt og så svært :))
nu kan jeg komme videre med indtastninger osv...

Takker igen

Annika

Det er derfor vi er her - døgnet rundt *gg*

- Glæd jer ikke..
Har allerede flere ting som skal rettes/ændres...
- og det kan godt gå hen og give sjove ting..

!Såsom - aut. opdatering til en anden DB jeg har..
- eller pådutning på et nyhedsbrev (som ikke er oppe endnu!!)

Tjoew...
I skal nok komme til at kende mig som \'hende den trælse der nada fatter\'
- Glæder mig til at lære jer bedre at kende..

Og med dette..
Den sidste kommentar i denne streng fra mig af!

Annika (som nu er lykkelig over at kunne komme videre)

hummm.. ser ud til jeg ikke tænkte LANGT nok!!

Help Erik eller en anden!!
For når de skal ændres eller slettes de profiler..
så skal der også rettes i filerne til DET..
Og jeg troede jeg havde fanget den..

men for at rette står der nu:
SQL = \"Select * From Profil Where id = \'\" & idnr & \"\' and bruger = \'\" & Bruger & \"\' Order By ID\"


Prøvede at fjerne \' som i den anden.. men nej.. så mangler der ngle parametre..

for at slette står der nu:

SQL = \"Select * From Profil Where id = \'\" & idnr & \"\' and bruger = \'\" & Bruger & \"\' Order By ID\"

Ret ens, så mon ikke det er samme steder??

Kan løsningen gives??? samt en letforståelig forklaring evt???

Annika

Du skal formentlig rette begge til

SQL = \"Select * From Profil Where id = \" & idnr & \" and bruger = \'\" & Bruger & \"\' Order By ID\"

altså fjerne de to \'-er ved id men ikke ved bruger, som nok stadig er en tekst. Tror jeg nok ;-)

Arghhh...
opgiver for i dag..
der er flere linier i opdater og slet der skal rettes...

Er alt for træt til det lige nu, og er bange for at smadre filerne mere end gavne lige nu...
men du havde ret i den der også :o)) (har kun ændet i opdater)

Men for at opdatere helt, skal endnu en ID rettes..
Der er bare det, at der er 2 steder i den linie med ID...

Well.... erikJ...
Skrive lige en <a href=\"mailto:arghhh@annika.dk\">mail</A> eller her, hvis jeg kan spørge mere i morgen..

Annika

Spørg, spørg, spørg - men overvej et nyt spørgsmål, hvis du også vil have
andre til at kigge på det!