---
title: "Hjäääääääälp!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9830-hjäääääääälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2001-06-01T20:23:00.000Z"
updated: "2001-06-01T21:45:00.000Z"
replies: 12
views: 234
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/9830-hjäääääääälp"
---

# Hjäääääääälp!!!

## #1 — ampy, 2001-06-01T20:23Z

Jag håller på med ett community. Men jag vill så att en ska bli medlem och namnet redan finns så ska det stå. Hur gör man?
Ska man lääga in det i den här koden?

\<%

IF Request.Form("losen") = Request.Form("losen2") THEN

Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
SQL = "INSERT INTO anvandare (Namn, Losen) VALUES ('" & Request.Form("ID") &"','" & Request.Form("losen") &"')"
set RS = Connection.Execute(SQL)
Response.Redirect("loggain.asp")

ELSE
session("galet") = "Du måste skriva lika lösen i båda fälten!"
Response.Redirect("blimedlem.asp")
END IF
%\>

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

## #2 — Wiberg, 2001-06-01T20:29Z

Använd sökfunktionen. Ämnet har tagits upp flera gånger tidigare. :)

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

## #3 — LarsG, 2001-06-01T20:36Z

Ja, så här t.ex.

```
<%

if Request.Form("losen") = Request.Form("losen2") then
   Set connection = server.createObject("adodb.connection")
   connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
   namn = Request.Form("ID")
   set rs = connection.execute("select 1 from anvandare where namn = '" & namn & "'")
   if  rs.eof then
       SQL = "INSERT INTO anvandare (Namn, Losen) VALUES ('" & namn &"','" & Request.Form("losen") &"')"
       Connection.Execute SQL,,128
       ok = true
   else
       session("galet") = namn & " är redan upptaget!"
       ok = false
   end if
   rs.close
   set rs = nothing
   connection.close
   set connection = nothing
   if ok then
      response.redirect "loggain.asp"
   else
      response.redirect "blimedlem.asp"
   end if
else
   session("galet") = "Du måste skriva lika lösen i båda fälten!"
   Response.Redirect "blimedlem.asp"
end if
%>
```

red: byt connect till connection

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

## #4 — ampy, 2001-06-01T20:39Z

Det blir detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: 'connect' 

/community/regga.asp, rad 17

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

## #5 — LarsG, 2001-06-01T20:50Z

Det skall stå connection i stället.

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

## #6 — ampy, 2001-06-01T20:56Z

Nu funkade det. Tack så mycket. Vet du hur man gör så att man kan se hur många medlemmar det är också?

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

## #7 — Vide, 2001-06-01T21:06Z

såhär... :)

```
set rs = connection.execute("select count(namn) as cnt from anvandare")
Response.Write rs("cnt")
```

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

## #8 — LarsG, 2001-06-01T21:07Z

```
'öppna databas

sql = "select count(*) as members from anvandare"

set rs = connection.execute (sql)
response.write "Antal medlemmar: " & rs("members")
rs.close
set rs = nothing

'stäng databas
```

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

## #9 — ampy, 2001-06-01T21:11Z

Vadå, ska jag öppna databasen. Det vet jag inte hur man gör. Måste man lägga in en kod i databasen?

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

## #10 — Vide, 2001-06-01T21:14Z

I din kodsnutt ovan så öppnar du databasen med dessa rader:

```
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
```

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

## #11 — ampy, 2001-06-01T21:31Z

Det funkar nu så att man kan se hur många medlemmar det är.

Men det är en till sak jag undrar och det är hur man gör så att man ser alla namnen som är medlemmar.

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

## #12 — LarsG, 2001-06-01T21:35Z

```
'öppna databas
sql = "select namn from anvandare"

set rs = connection.execute (sql)
while not rs.eof
response.write "Namn: " & rs("namn") & "<br>"
rs.movenext
wend
rs.close
set rs = nothing

'stäng databas
```

Du får väl snygga till utskriften.

Tillägg:
Om du vill att dom skall komma i bokstavsordning så får du skriva 

```
sql = "select namn from anvandare order by namn asc"
```

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

## #13 — ampy, 2001-06-01T21:45Z

Du är ju riktig duktig på ASP ju. 

Det jag vill nu är att alla medlemmar ska få en egen sida där det står information om den medlemmen. Du kan väl maila mig på min e-mail om du vill hjälpa mig.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9830-hjäääääääälp