---
title: "Admin till community"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66848-admin-till-community"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MaQaN"
published: "2003-02-01T12:29:05.000Z"
updated: "2003-02-01T13:10:23.000Z"
replies: 17
views: 284
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/66848-admin-till-community"
---

# Admin till community

## #1 — MaQaN, 2003-02-01T12:29Z

Jag gör ett community och håller nu på med ett admin script. jag får detta felet när jag ska radera en användare

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Too few parameters. Expected 1. 

/ny/community/1/members/admin.asp, line 29 

Här kommer koden

\<!-- #include file = "adovbs.inc" --\>

\<%
If Request("vad") = "login" THEN
	If Request("losen") = "admin" THEN
		Session("access") = "JA"
	END IF
END IF
%\>

\<head\>

\<link href="style.css" rel="stylesheet" type="text/css"\>
\</head\>

\<body bgcolor="#FFFFFF"\>
\<p\>\<font size="2"\>\<b\>\<font face="Verdana"\>communityadmin\</font\>\</b\>\</font\>\</p\>
\<p\>\<font face="Verdana, Arial, Helvetica, sans-serif" color="#000000" size="1"\> 
  \<%IF Session("access") = "JA" THEN%\>
  \</font\>\<font size="1"\>\<b\>\<font face="Verdana"\>Ta bort användare\</font\>\</b\>\</font\> 
  \<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("db/members.mdb")&";pwd=losen" 

IF request.querystring("do") ="delete" Then 
SQL = "DELETE \* FROM members WHERE ID = " & Request("losen")
Connect.Execute(SQL)
Response.Redirect "admin.asp"
ELSE
SQL = "SELECT \* From members ORDER BY fnamn DESC, losen DESC"
Set RecSet = Connect.Execute(SQL) 
%\>
\</p\>
\<table width="500" border="0"\>
  \<% Do Until RecSet.EOF %\>
  \<tr\> 
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>fnamn:\</b\> \<%=RecSet("fnamn")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>enamn:\</b\> \<%=RecSet("enamn")%\>\</font\>\</td\>

    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>username:\</b\> \<%=RecSet("username")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Epost:\</b\> \<%=RecSet("epost")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>ICQ:\</b\> \<%=RecSet("icq")%\>\</font\>\</td\>
      \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Land:\</b\> \<%=RecSet("country")%\>\</font\>\</td\>  
      \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Landskap:\</b\> \<%=RecSet("county")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Hemsida:\</b\> \<%=RecSet("personligurl")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Datum:\</b\> \<%=RecSet("datum")%\>\</font\>\</td\>    
    \<td width="100" rowspan="2"\>\<b\>\<a href="admin.asp?do=delete&losen=\<%=RecSet("losen")%\>"\>\<font face="Verdana" size="1"\>Radera\</font\>\</a\>\</b\>\</td\>
  \</tr\>
  \<tr\> 
    \<td colspan="2"\>\<font face="Verdana" size="1"\>\<%=RecSet("losen")%\>\</font\>\</td\>
  \</tr\>
  \<tr\> 
    \<td colspan="3"\> 
      \<hr size="1" noshade\>
    \</td\>
  \</tr\>
  \<%	 
RecSet.MoveNext 
Loop 
RecSet.Close
END IF 
%\>
\</table\>

\<%ELSE%\>
\<form name="form2" method="post" action="admin.asp?vad=login"\>
  \<font size="1"\> \<font face="Verdana, Arial, Helvetica, sans-serif"\> \</font\>\</font\> 
  \<table width="100" border="0"\>
    \<tr\> 
      \<td colspan="2"\>
        \<div align="center"\>\<font size="1"\>\</font\> \<font size="1"\>\<font face="Verdana"\>\<b\>LOGGA 
          IN\</b\>\</font\>\</font\>\</div\>
      \</td\>
    \</tr\>
    \<tr\> 
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\>L&ouml;senord:\</font\>\</font\>\</td\>
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\> 
        \<input type="text" name="losen" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" size="15" maxlength="20"\>
        \</font\>\</font\>\</td\>
    \</tr\>
    \<tr\> 
      \<td\>&nbsp;\</td\>
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\> 
        \<input type="submit" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" name="Submit2" value="Logga in"\>
        (f&ouml;rvalt: \<b\>admin\</b\>)\</font\>\</font\>\</td\>
    \</tr\>
  \</table\>
  \<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\>\<br\>
  \</font\>\</font\> 
\</form\>
\<%END IF%\>

här måste felet ligga

IF request.querystring("do") ="delete" Then 
SQL = "DELETE \* FROM members WHERE ID = " & Request("losen")

nån som vet?

Permalänk: https://www.webforum.nu/p/66848

## #2 — Palle, 2003-02-01T12:31Z

Kontrollera stavningen samt kolla att dina kolumner heter det som du angett i din sql-sats.

Permalänk: https://www.webforum.nu/p/935326

## #3 — trexter, 2003-02-01T12:33Z

Till att börja med: använd Request**.Form**("losen") eller Request**.QueryString**("losen") i stället för bara Request("losen").

Testa att skriva ut Request.Form("losen").
a = Request.Form("losen")
Response.Write a

 :)

Permalänk: https://www.webforum.nu/p/935327

## #4 — MaQaN, 2003-02-01T12:35Z

Jag är ganska dålig på asp men jag tackar för dessa svar och ska testa det, återkommer snart och berättar hur det gick

Permalänk: https://www.webforum.nu/p/935329

## #5 — MaQaN, 2003-02-01T12:37Z

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'ID ='. 

/ny/community/1/members/admin.asp, line 29 

nu fick jag detta fel.

kan ni lösa detta?

Permalänk: https://www.webforum.nu/p/935332

## #6 — MaQaN, 2003-02-01T12:38Z

Testa att skriva ut Request.Form("losen"). 
a = Request.Form("losen") 
Response.Write a

kan du utveckla detta så att jag vet var jag ska sätta in det.

Permalänk: https://www.webforum.nu/p/935335

## #7 — trexter, 2003-02-01T12:40Z

Kopiera in de två ASP-raderna alldeles före SQL-frågan som bråkar med dig.

 :)

Permalänk: https://www.webforum.nu/p/935337

## #8 — trexter, 2003-02-01T12:42Z

Du kan också skriva detta, alldeles **efter** SQL-frågan (för att skriva ut hela strängen):

Response.Write SQL
Response.End

 :)

Permalänk: https://www.webforum.nu/p/935339

## #9 — MaQaN, 2003-02-01T12:43Z

\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("db/members.mdb")&";pwd=losen" 

IF request.querystring("do") ="delete" Then 
SQL = "DELETE \* FROM members WHERE ID = " & Request.form("losen")
Connect.Execute(SQL)
Response.Redirect "admin.asp"
ELSE
SQL = "SELECT \* From members ORDER BY fnamn DESC, losen DESC"
Set RecSet = Connect.Execute(SQL) 
%\>
\</p\>
\<table width="500" border="0"\>
  \<% Do Until RecSet.EOF %\>
  \<tr\> 
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>fnamn:\</b\> \<%=RecSet("fnamn")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>enamn:\</b\> \<%=RecSet("enamn")%\>\</font\>\</td\>

    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>username:\</b\> \<%=RecSet("username")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Epost:\</b\> \<%=RecSet("epost")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>ICQ:\</b\> \<%=RecSet("icq")%\>\</font\>\</td\>
      \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Land:\</b\> \<%=RecSet("country")%\>\</font\>\</td\>  
      \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Landskap:\</b\> \<%=RecSet("county")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Hemsida:\</b\> \<%=RecSet("personligurl")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Datum:\</b\> \<%=RecSet("datum")%\>\</font\>\</td\>    
    \<td width="100" rowspan="2"\>\<b\>\<a href="admin.asp?do=delete&losen=\<%=RecSet("losen")%\>"\>\<font face="Verdana" size="1"\>Radera\</font\>\</a\>\</b\>\</td\>
  \</tr\>
  \<tr\> 
    \<td colspan="2"\>\<font face="Verdana" size="1"\>\<%=RecSet("losen")%\>\</font\>\</td\>

det är detta som bråkar

Permalänk: https://www.webforum.nu/p/935340

## #10 — MaQaN, 2003-02-01T12:46Z

"Du kan också skriva detta, alldeles efter SQL-frågan (för att skriva ut hela strängen): 

Response.Write SQL 
Response.End "

detta fattar jag inte.

Permalänk: https://www.webforum.nu/p/935342

## #11 — trexter, 2003-02-01T12:54Z

DU skrev:

> här måste felet ligga 
> 
> IF request.querystring("do") ="delete" Then 
> SQL = "DELETE \* FROM members WHERE ID = " & Request("losen")

 

Jag skrev:

> Du kan också skriva detta, alldeles efter SQL-frågan (för att skriva ut hela strängen): 
> 
> Response.Write SQL 
> Response.End

Alltså, släng in de två raderna efter det du sa var fel. Och posta resultatet.

 :)

Permalänk: https://www.webforum.nu/p/935353

## #12 — @nders, 2003-02-01T13:02Z

Det ser ut som att *losen* kommer från querystringen, och inte från ett formulär med metoden post. Ändra från form till querystring:

```
SQL = "DELETE * FROM members WHERE ID = " & [b]Request.Querystring("losen")[/b]
```

Mvh

Permalänk: https://www.webforum.nu/p/935363

## #13 — MaQaN, 2003-02-01T13:02Z

sidan kan inte visas.

men jag har förenklat det hela, detta är den nya koden men det verkar vara samma typ av fel

\<!-- #include file = "adovbs.inc" --\>

\<%
If Request("vad") = "login" THEN
	If Request("losen") = "admin" THEN
		Session("access") = "JA"
	END IF
END IF
%\>

\<head\>

\<link href="nydajm/gbok/style.css" rel="stylesheet" type="text/css"\>
\</head\>

\<body bgcolor="#FFFFFF"\>
\<p\>\<font size="2"\>\<b\>\<font face="Verdana"\>G&auml;stboksadmin\</font\>\</b\>\</font\>\</p\>
\<p\>\<font face="Verdana, Arial, Helvetica, sans-serif" color="#000000" size="1"\> 
  \<%IF Session("access") = "JA" THEN%\>
  \</font\>\<font size="1"\>\<b\>\<font face="Verdana"\>Ta bort inl&auml;gg\</font\>\</b\>\</font\> 
  \<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("db/members.mdb")&";pwd=losen" 

IF request.querystring("do") ="delete" Then 
SQL = "DELETE \* FROM members WHERE ID = " & Request("id")
Connect.Execute(SQL)
Response.Redirect "admin.asp"
ELSE
SQL = "SELECT \* From members ORDER BY username DESC, epost DESC"
Set RecSet = Connect.Execute(SQL) 
%\>
\</p\>
\<table width="500" border="0"\>
  \<% Do Until RecSet.EOF %\>
  \<tr\> 
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>Username:\</b\> \<%=RecSet("username")%\>\</font\>\</td\>
    \<td width="200"\>\<font face="Verdana" size="1"\>\<b\>E-POST:\</b\> \<%=RecSet("epost")%\>\</font\>\</td\>
    \<td width="100" rowspan="2"\>\<b\>\<a href="admin.asp?do=delete&id=\<%=RecSet("ID")%\>"\>\<font face="Verdana" size="1"\>Radera\</font\>\</a\>\</b\>\</td\>
  \</tr\>
  \<tr\> 
    \<td colspan="2"\>\<font face="Verdana" size="1"\>\<%=RecSet("losen")%\>\</font\>\</td\>
  \</tr\>
  \<tr\> 
    \<td colspan="3"\> 
      \<hr size="1" noshade\>
    \</td\>
  \</tr\>
  \<%	 
RecSet.MoveNext 
Loop 
RecSet.Close
END IF 
%\>
\</table\>

\<%ELSE%\>
\<form name="form2" method="post" action="admin.asp?vad=login"\>
  \<font size="1"\> \<font face="Verdana, Arial, Helvetica, sans-serif"\> \</font\>\</font\> 
  \<table width="100" border="0"\>
    \<tr\> 
      \<td colspan="2"\>
        \<div align="center"\>\<font size="1"\>\</font\> \<font size="1"\>\<font face="Verdana"\>\<b\>LOGGA 
          IN\</b\>\</font\>\</font\>\</div\>
      \</td\>
    \</tr\>
    \<tr\> 
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\>L&ouml;senord:\</font\>\</font\>\</td\>
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\> 
        \<input type="text" name="losen" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" size="15" maxlength="20"\>
        \</font\>\</font\>\</td\>
    \</tr\>
    \<tr\> 
      \<td\>&nbsp;\</td\>
      \<td\>\<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\> 
        \<input type="submit" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" name="Submit2" value="Logga in"\>
        (f&ouml;rvalt: \<b\>admin\</b\>)\</font\>\</font\>\</td\>
    \</tr\>
  \</table\>
  \<font size="1"\>\<font face="Verdana, Arial, Helvetica, sans-serif"\>\<br\>
  \</font\>\</font\> 
\</form\>
\<%END IF%\>

nu får jag felet:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'ID ='. 

/ny/community/1/members/admin.asp, line 29 

IF request.querystring("do") ="delete" Then 
SQL = "DELETE \* FROM members WHERE ID = " & Request.form("id")

vill den att jag ska skriva nåt mer här

Permalänk: https://www.webforum.nu/p/935364

## #14 — trexter, 2003-02-01T13:05Z

Se där! @nders löste det (antagligen)!  :bire 
Just därför ska du använda .QueryString och .Form. ;)

 :)

Permalänk: https://www.webforum.nu/p/935367

## #15 — solbulle, 2003-02-01T13:05Z

MaQaN: Använd gärna kod-taggarna. \[kod\]

Permalänk: https://www.webforum.nu/p/935369

## #16 — MaQaN, 2003-02-01T13:06Z

Nej anders löste det tyvärr inte, jag får dett felmedelande

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'ID ='. 

/ny/community/1/members/admin.asp, line 32 

ok solbulle det ska jag göra i fortsättningen.

Permalänk: https://www.webforum.nu/p/935370

## #17 — solbulle, 2003-02-01T13:10Z

Hm, hur gör du egentligen när du kollar/kör sidan? Kommer du till den genom att posta ett formulär eller genom att följa en länk?

Hur ser då formuläret / länken ut?

Permalänk: https://www.webforum.nu/p/935374

## #18 — MaQaN, 2003-02-01T13:10Z

Jo det är löst det var en .QueryString. 

tack så mycket för all hjälp

Permalänk: https://www.webforum.nu/p/935375

---

Tråden på webben: https://www.webforum.nu/amne/asp/66848-admin-till-community
