Databas fråga

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
%>

------------------
<A HREF="mailto:mupp@mydicksbigger.com
">mupp@mydicksbigger.com
</A>
mydicksbigger.com

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..."

------------------
Peter D

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.

------------------
essentitia preter non sans multiplicandum

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]

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!

------------------
Peter D

[Redigerat av Pace den 10 jul 2001]

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

------------------
<A HREF="mailto:mupp@mydicksbigger.com
">mupp@mydicksbigger.com
</A>
mydicksbigger.com