er der nogen der lige kan finde fejlen her ???

kan det være "¨" i SQLen???

Prøv at fjerne: ¨
I:
...Users.ID¨FROM...

Hvorfor skriver du <td width=""50"">

Jeg ville da skrive <td width="50">

Ellers prøv at køre scriptet lokalt, hvis det er muligt og se fejlen.

...Det var et svar :)

Zaditor det skal være sådan som det er.

Undskyld, jeg fejlede, tænkte mig ikke lige om.. hehe...

zaditor >>> Det er fordi det står indeni en
Response.Write ""
Så er det nødvendigt!

killer r & m-koldsgaard >>> det er desvære ikke det, den fjernedejeg lige efter jeg fik lagt det her ind...

Zaditor >>> fordi det ligger i en responsewrite, hvis jeg bare skriver <td width="50"> så vil den afslutte efter width= og så opfatte 50 som en variabel eller komando og det kan den så ikke finde ud af hvad er, men hvorfor så 2 "" fordi at jeg på den måde bevare det overblik " normalt give, men det jeg gør er at jeg afslutter min Response.write, og starter den igen lige efter... derfor

m-koldsgaard >>> jeg kan ikke lige køre det lokalt,,, desvære...

Hvad skriver den til dig?
Blank side eller hvad???

der var her den var gal... midlertidigt...

  Response.write "<tr><td Width=""50"">" & RS("ID") & "</TD>"
  Response.write "<td Width=""150"">" & RS("User") & "</TD>"
  Response.write "<td Width=""150"">" & RS("Pass") & "</TD>"
  Response.write "<td Width=""150"">" & RS("Niveau") & "</TD></tr>"


RS skulle være RSuser

Den skrev altså en tom tabel...

prøv at erstatte ""_"" med en pling
eksempel
Response.write "<tr><td Width='50'>" & RS("ID") & "</TD>"

det var det. og så må fejlen i det store heler have været det med rs og SQL heler scriptet ser således ud nu:

---------------------------------------------------------------------------
<% option explicit %>
<Html>
<Head></Head>
<Body>
<%
Dim cn, SQL, mode, user1, pass, niveau, rs, strPath, strDSN, user, rsuser, usersql

User1 = request.form("User1")
Pass = request.form("Pass")
Niveau = request.form("usertype")

Mode = request.querystring("mode")
user = request.querystring("user")

If mode = "add" then

set cn = server.createobject("ADODB.Connection")
cn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

SQL = "INSERT INTO users (User, Pass, Niveau) "

SQL = SQL & "VALUES('" & User1 & "' , '" & Pass & "' , " & Niveau & ")"

cn.execute SQL
cn.Close

set cn = Nothing

  Response.redirect "Admin.ASP?side=20&Menu=4&User=" & User & ""

End if
If mode = "del" then

set cn = server.createobject("ADODB.Connection")
cn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

SQL = "DELETE * FROM Users WHERE User = " & user1 & " AND pass = " & pass & ";"

cn.execute SQL
cn.Close

set cn = Nothing

  Response.redirect "Admin.ASP?side=20&Menu=4&User=" & User & ""

end if
If mode = "vis" then

strPath = server.Mappath("Data.mdb")
strDSN = "provider = microsoft.jet.OLEDB.4.0; Data Source =" & strPath
set cn = server.createobject("ADODB.Connection")
cn.open strDSN

userSQL = "SELECT Users.User, Users.Pass, Users.Niveau, Users.ID FROM Users ORDER BY Users.User;"
Set rsuser = cn.Execute(userSQL)

  Response.write "<Table width=""500"">"

Do While Not rsuser.EOF

  Response.write "<tr><td Width=""50"">" & RSuser("ID") & "</TD>"
  Response.write "<td Width=""150"">" & RSuser("User") & "</TD>"
  Response.write "<td Width=""150"">" & RSuser("Pass") & "</TD>"
  Response.write "<td Width=""150"">" & RSuser("Niveau") & "</TD></tr>"

rsuser.MoveNext
Loop

  Response.write "</Table>"

End if

cn.Close
Set cn = Nothing

%>

</Body>
</Html>
---------------------------------------------------------------------------

Men hvorfor den ikke gav en fejl ved jeg sQ ikke

men ellers tak for hjælpen... ;o) jeg var sQ lidt blind men det kan man jo blive af og til når man arbejder med ASP

og det virker... så det er fint...

Ja brug php... hehe..

Craig icq----
er du igang?

zaditor - Din hjemmeside ( www.sunesen.tk ) indeholder da ikke meget php... Det er da asp.

og så er den da pænt lang tid om at load... men det er måsæe kun mig...

Craig / www.IT-Links.dk

Nej, men lille koldsgaard, nu har jeg så ikke lige oversat det endnu.. Kan du forstå det..?

Og det var også dig, der fik mig til at bruge det....

Ja, men det er også mig, som har fået dig til at bruge (dvs. du skal lige lære det...) php, for at vi ikke skulle programmere i det samme. PHP er nyere og skulle være bedre, der for synes jeg du skulle lære php i stedet for asp.
"Og det var også dig, der fik mig til at bruge det..."
Til at bruge det??? Jeg har sq lavet alt asp'en på dit site.

Det er ikke noget chat sted... Tror jeg melder dig..