---
title: "Databas fråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10494-databas-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mdb"
published: "2001-07-10T18:56:00.000Z"
updated: "2001-07-10T20:57:00.000Z"
replies: 5
views: 211
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/10494-databas-fråga"
---

# Databas fråga

## #1 — mdb, 2001-07-10T18:56Z

Hej alla!

Håller på och pular lite på detta scriptet. Får det inte att funka :/ Om t ex någon skriver i formuläret att hon är en kvinna så reggas hon. Men om det redan finns en kvinna i databasen så stå "Sorry, vi har redan en kvinna i teamet!"

hjälp...

\<%
    strSex=trim(Request.Form("sex"))

    If strSex = "kvinna" Then
        SEX = "kvinna"

            Else If strSex = "man" Then
            SEX = "man"

    End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("databas.mdb")
SQL="SELECT \* FROM tabell WHERE Sex='" & SEX & "'"
Connect.Execute(SQL)

If SEX=RecSet("Sex") Then
    Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"
 
    Else
        'Kod som sparar i databasen.
        Response.Write "Välkommen, du är visst en "& SEX &"."
 
End If

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%\>

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

## #2 — Pace, 2001-07-10T19:17Z

Kan du inte bara kolla om EOF är sant, i så fall är det bara att lägga till i db:n, ANNARS "sorry, kvinna finns redan..."

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

## #3 — LarsG, 2001-07-10T19:18Z

Det får alltså bara finnas en person av vardera könet i databasen? Så här kanske.

```
<%
SEX =Ucase(trim(Request.Form("sex")))
if  SEX <> "KVINNA" and SEX <> "MAN" then
  response.write "Ange man eller kvinna <br>"
  response.end
end if

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
SQL="SELECT 1 FROM tabell WHERE Sex='" & SEX & "'"
set recset = Connect.Execute(SQL)

if not recset.eof then
Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"
Else
'Kod som sparar i databasen.
Response.Write "Välkommen, du är visst en "& SEX &"."
End If

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>
```

Om jag har missförstått så kan du gärna förklara lite mer.

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

## #4 — mdb, 2001-07-10T20:45Z

Pace: Hur menar du?

LarsG: Du har förstått rätt, ska testa koden.

Edit: muppar som fan

\[Redigerat av mdb den 10 jul 2001\]

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

## #5 — Pace, 2001-07-10T20:51Z

Mdb: Jag menar precis som LarsG kodade under mitt inlägg! (tack för det LarsG!)

```
if not recset.eof then
Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"
Else
'Kod som sparar i databasen.
Response.Write "Välkommen, du är visst en "& SEX &"."
End If
```

"Välkommen, du är visst en kvinna."

Kul välkomstmeddelande! :e

Förresten, glömde ju:

**Välkommen mdb!**

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

## #6 — mdb, 2001-07-10T20:57Z

Aha Pace. Förresten, tack för det varma mottagandet ;) Tror jag stannar kvar ett tag :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10494-databas-fråga