---
title: "Problem med databaser i ASP!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43058-problem-med-databaser-i-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "trexter.com"
published: "2002-05-04T13:43:02.000Z"
updated: "2002-05-04T16:35:02.000Z"
replies: 1
views: 194
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/43058-problem-med-databaser-i-asp"
---

# Problem med databaser i ASP!

## #1 — trexter.com, 2002-05-04T13:43Z

Yo everybody, yo!

Jag har ett formulär på en sida:

```
<form ACTION="registrera.asp" method="post" name=registrate>
Önskat användarnamn:
<br>
<INPUT TYPE="TEXT" VALUE="Användarnamn" NAME="username" SIZE="20" MAXLENGTH="15">
<br>
Önskat lösenord:
<br>
<INPUT TYPE="TEXT" VALUE="Lösenord" NAME="password" SIZE="20" MAXLENGTH="40">
<br>
<INPUT TYPE="submit" VALUE="Registrera!">
</form>
```

och en sida som tar emot uppgifterna och kollar så att användarnamnet är unikt. Är det, det, så ska uppgifterna läggas in i databasen! 

Problemet är att ingenting händer (inte ens något skojigt felmeddelande)... det blir bara vitt  :D 
Kolla man i databasen så verkar det som om "username" inte "når fram". Jaja, nog snackat! Filen:

```
<!-- #include file="../inc/adovbs.inc" -->
<%

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 

	Set RecSet = Server.CreateObject("ADODB.Recordset")

If Not Isnull(Request.Form("username")) Then strusername = Cstr(Request.Form("username"))
SQL = "SELECT username FROM medlemmar where username = '" & strusername & "'"

set rs = Connect.Execute(SQL)
If Not rs.EOF Then
	While Not rs.EOF
		If LCase(RS("username")) =  LCase(strusername) Then
%>
Sorry, användarnamnet är upptaget. Prova med ett annat!
<%
		End If

		rs.movenext
	Wend

Else

	Addera = "SELECT * FROM medlemmar"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

Recset("username") = Request.Form("username")
Recset("password") = Request.Form("password")
end if

	RecSet.Update
	RecSet.Close
	Connect.Close
%>
```

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

## #2 — saw, 2002-05-04T16:35Z

Du måste vara noga med vad du kallar dit recordset för du har initierat ditt recordset så här:

```
Set RecSet = Server.CreateObject("ADODB.Recordset")
```

Men du använder det så här:

```
set rs = Connect.Execute(SQL)
If Not rs.EOF Then
	While Not rs.EOF
```

Alltså du anvender rs i stället för RecSet.

Tänk så här, du köper dig en Saab men försöker att köra en Volvo.. 
Inge´vidare va...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43058-problem-med-databaser-i-asp