---
title: "hur ska det vara"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62279-hur-ska-det-vara"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2002-12-15T19:45:20.000Z"
updated: "2002-12-16T13:08:38.000Z"
replies: 7
views: 296
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/62279-hur-ska-det-vara"
---

# hur ska det vara

## #1 — jwradhe, 2002-12-15T19:45Z

jag har en kod som ska lägga till en användare i databasen men det blir fel..och vad jag ändrar på eller tar bort så blir det fel.

här e koden 

```
<html>

<head>
<%
If Request.Form("pass2") = Request.Form("pass2") then 
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("forum.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>

<%
	Addera = "SELECT * FROM users"
	RecSet.Open Addera, Connect, 3, 3
	
	Do Until RecSet.EOF
	If UCase(Request.Form("user")) = UCase(RecSet("userName")) Then
	%>
		<meta http-equiv="refresh" content="3;URL=registrera.asp">
		<title>Registering user</title>
		</head>

		<body>
		<p align="center"><font face="Verdana" size="2">Anvndarnamnet var upptaget... du är <b>inte</b> registrerad...
        </font></p>
		</body>

		</html>
		<% RecSet.MoveNext
		loop
		RecSet.Close
							<%
			else
	
	RecSet.AddNew
	RecSet("userName") = Replace(Replace(Request.Form("user"),"<",""),">","")
	RecSet("realname") = Replace(Replace(Request.Form("name"),"<",""),">","")
	RecSet("userpass") = Request.Form("pass1")
	RecSet("userEmail") = Request.Form("mail")
	RecSet("userRegistred") = Date
	RecSet("userInlagg") = 0
	RecSet("title") = "Medlem"
	RecSet.Update
	RecSet.Close
Connect.Close
Set Connect = nothing

%>

		<meta http-equiv="refresh" content="2;URL=forum.asp">
		<title>Registering user</title>
		</head>

		<body>
<p align="center"><font face="Verdana" size="2"><b>Anvndaren registrerad...</b><br><br></font>
<font face="Verdana">Välkommen till forumet!</font></p>
		</body>

		</html>

<%
 end if
else
%>

		<meta http-equiv="refresh" content="3;URL=registrera.asp">
		<title>Registering user</title>
		</head>

		<body>
<p align="center"><font face="Verdana" size="2">Felaktiga uppgifter... anvndare <b>INTE</b> registrerad...</font></p>
		</body>

		</html>

<%
end If
%>
```

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

## #2 — LarsG, 2002-12-15T20:17Z

```
<html>

<head>
<%
If Request.Form("userpass") = Request.Form("pass2") then 
   Set Connect = Server.CreateObject("ADODB.Connection")
   Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("forum.mdb")
   Set RecSet = Server.CreateObject("ADODB.Recordset")
   user = "'" & replace(request.form("user"),"'","''") & "'"
   Addera = "SELECT 1 FROM users where username = " & user
   RecSet.Open Addera, Connect, 3, 3
   
   if not recset.eof then
        recset.close
        connect.close
%>
	<meta http-equiv="refresh" content="3;URL=registrera.asp">
	<title>Registering user</title>
	</head>

	<body>
	<p align="center"><font face="Verdana" size="2">Anvndarnamnet var upptaget... du är <b>inte</b> registrerad...
        </font></p>
	</body>
	</html>
<%
    else
	RecSet.AddNew
	RecSet("userName") = Replace(Replace(Request.Form("user"),"<",""),">","")
	RecSet("realname") = Replace(Replace(Request.Form("name"),"<",""),">","")
	RecSet("userpass") = Request.Form("pass1")
	RecSet("userEmail") = Request.Form("mail")
	RecSet("userRegistred") = Date
	RecSet("userInlagg") = 0
	RecSet("title") = "Medlem"
	RecSet.Update
	RecSet.Close
        Connect.Close
	Set Connect = nothing
%>
	<meta http-equiv="refresh" content="2;URL=forum.asp">
	<title>Registering user</title>
	</head>

	<body>
	<p align="center"><font face="Verdana" size="2"><b>Anvndaren registrerad...</b><br><br></font>
	<font face="Verdana">Välkommen till forumet!</font></p>
	</body>

	</html>
<%
    end if
else
%>
	<meta http-equiv="refresh" content="3;URL=registrera.asp">
	<title>Registering user</title>
	</head>

	<body>
	<p align="center"><font face="Verdana" size="2">Felaktiga uppgifter... anvndare <b>INTE</b> registrerad...</font></p>
	</body>

	</html>
<%
end If
%>
```

Om du får något felmedelande, ta med det och visa vilken rad som orsakar felet.

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

## #3 — jwradhe, 2002-12-15T20:22Z

```
Feltyp:
Microsoft JET Database Engine (0x80040E09)
Det går inte att uppdatera. Databasen eller objektet är skrivskyddat.
/sp forum/registrera2.asp, line 28
```

line 28

```
RecSet.AddNew
```

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

## #4 — jwradhe, 2002-12-15T20:22Z

hmm..=?

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

## #5 — Peeer, 2002-12-15T20:39Z

Är databasen skrivskyddad? Har du behörighet att skriva till mappen där databasen ligger?

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

## #6 — jwradhe, 2002-12-15T20:45Z

mm

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

## #7 — jwradhe, 2002-12-16T13:04Z

får 

```
Microsoft JET Database Engine error '80040e09' 

Cannot update. Database or object is read-only. 

/jwradhe/registrera2.asp, line 28
```

 nu

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

## #8 — jwradhe, 2002-12-16T13:08Z

nu har det fixat sig.

skrev

```
Addera = "SELECT * FROM users where username = " & user
```

stället för

```
Addera = "SELECT 1 FROM users where username = " & user
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62279-hur-ska-det-vara