find pulje ud fra alder

Du kan lave det med SQL opslag. Jeg antager du har en from hvor man angiver sig alder:


'Her laves connection til din database
Conn.Open "bla bla... det skal du selv lige paste ind"
alder = Requst.Form("alder")
if Int(alder) >= 11 then
  Response.write "Du er for gammel"
else
  strSQL = "SELECT * FROM tabel WHERE min >= " & alder & " AND max <= " & alder
  Set rs = Conn.Execute(strSQL)
  if rs.EOF then
    Respinse.Write "Fandt inden pulje til dig men ven"
  else
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("pulje") & "<br>"
      rs.MoveNext
    loop
  end if
end if

Det ser godt ud... Kan man lave det sådan, så maxalderen findes, ved at den gennemsøger databasen og finder den største værdi...

Jeg har nok ikke lige udtrykt mig klart nok med det andet, men den skulle gerne udskrive en slags liste - lidt ala et søge resultat...
Grunden til dette, er at de forskellige puljer skifter på samme tid som folkeskolen gør (altså efter sommerferien!) Derfor kan man altså godt som f.eks. 12 årig være 2 forskellige steder (f.eks. i maj i pulje 1, men fra august er man så i pulje 2)

Den udskriver også en liste... En pulje på hver linie i dette loop:
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("pulje") & "<br>"
      rs.MoveNext
    loop


Du han hendte max fra databasen sådan her:

strSQL = "SELECT MAX(max) as maxAlder FROM tabel"
set rs = Conn.execute (strSQL)
maxAlder = rs("maxAlder")

den skal også finde min værdi det er samme måde.

strSQL = "SELECT MIN(min) as minAlder FROM tabel"
set rs = Conn.execute (strSQL)
minAlder = rs("minAlder")

Som du så også kan se er min og max reserverede ord i SQL så der skal [] omkring kolonnenavne [max]:

strSQL = "SELECT MAX([max]) as maxAlder FROM tabel"
set rs = Conn.execute (strSQL)
maxAlder = rs("maxAlder")
strSQL = "SELECT MIN([min]) as minAlder FROM tabel"
set rs = Conn.execute (strSQL)
minAlder = rs("minAlder")

alder = Requst.Form("alder")

if CInt(alder) > CInt(maxAlder) then
  Response.write "Du er for gammel."
elseif CInt(alder) < CInt(minAlder) then
  Response.write "Du er ikke gammel nok."
else
  strSQL = "SELECT * FROM tabel WHERE [min] >= " & alder & " AND [max] <= " & alder
  Set rs = Conn.Execute(strSQL)
  if rs.EOF then
    Respinse.Write "Fandt inden pulje til dig men ven"
  else
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("pulje") & "<br>"
      rs.MoveNext
    loop
  end if
end if


Jeg forstår ikke helt din kommentar (24/07-2002 00:00:07), vil du havde alle puljer udskrevet??

>> eagleeye

Jeg kan ikke helt få det til at virke... Har været ved at indsætte noget connection til databasen, men der går et eller andet galt... Gider du lave dette?

Jeg tror du har forstået min kommentar, Det ser i hvertfald ganske rigtig ud, det du har lavet!

connection, hvilken database bruger du??

Man kan faktisk god havde min og max i samme SQL så behøves man ikke lave to:

Eks kunne være:

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open= "DBQ=c:\inetpub\wwwroot\db\XXXX.mdb;Driver={Microsoft Access Driver (*.mdb)};"

strSQL = "SELECT MAX([max]) as maxAlder, MIN([min]) as minAlder FROM tabel"
set rs = Conn.execute (strSQL)
maxAlder = rs("maxAlder")
minAlder = rs("minAlder")

alder = Requst.Form("alder")

if CInt(alder) > CInt(maxAlder) then
  Response.write "Du er for gammel."
elseif CInt(alder) < CInt(minAlder) then
  Response.write "Du er ikke gammel nok."
else
  strSQL = "SELECT * FROM tabel WHERE [min] >= " & alder & " AND [max] <= " & alder
  Set rs = Conn.Execute(strSQL)
  if rs.EOF then
    Respinse.Write "Fandt inden pulje til dig men ven"
  else
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("pulje") & "<br>"
      rs.MoveNext
    loop
  end if
end if

'Oprydning
Conn.Close
Set rs = Nothing
Set Conn = Nothing

Får følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x96c Thread 0x448 DBC 0xb7ca3b4 Jet'.

/adm/puljer/grenene/funktion.asp, line 3

Min line 3 ser sådan ud:
Conn.Open= "DBQ=inc/db/puljer.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Fejlen betyder at den ikke kan finde database filen i den sti du har angivet...
Hvor ligger databasen i forhold til asp filen?

Beklager den lange svar tid, men har været på ferie og så havde jeg fuldstændig glemt det...

Filen som alt denne kode ligger i, ligger i mappen "puljer" et niveau højrer oppe, ligger mappen "inc" inde i den ligger mappen "db" hvor så databasen "puljer.mdb" ligger!

Noget i denne stil:
"rod"
- puljer
- inc
  - db

Så prøv med denne Conn.Open linie, den vil havde en fysik sti:

Conn.Open= "DBQ=" & Server.MapPath("../inc/db/puljer.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Eller:

Conn.Open= "DBQ=" & Server.MapPath("/inc/db/puljer.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Jeg beklager igen den lange svar tid, man har haft travlt i skolen...

Har pt. følgende og har prøvet begge dine forslag, men kan ikke få det til at virke:

<% mode = request("mode")
if mode = "" then %>
<FORM ACTION="funktion.asp?mode=find" METHOD="POST"><INPUT TYPE="text" NAME="alder"><INPUT TYPE="submit" VALUE="Find"></FORM>
<% end if %>

<% if mode = "find" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")

Conn.Open= "DBQ=" & Server.MapPath("../inc/db/spejder.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

strSQL = "SELECT MAX([max]) as alder_max, MIN([min]) as alder_min FROM grenene"
set rs = Conn.execute (strSQL)
maxAlder = rs("alder_max")
minAlder = rs("alder_min")

alder = Requst.Form("alder")

if CInt(alder) > CInt(maxAlder) then
  Response.write "Du er for gammel."
elseif CInt(alder) < CInt(minAlder) then
  Response.write "Du er ikke gammel nok."
else
  strSQL = "SELECT * FROM grenene WHERE [min] >= " & alder & " AND [max] <= " & alder
  Set rs = Conn.Execute(strSQL)
  if rs.EOF then
    Respinse.Write "Fandt inden pulje til dig men ven"
  else
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("titel") & "<br>"
      rs.MoveNext
    loop
  end if
end if

'Oprydning
Conn.Close
Set rs = Nothing
Set Conn = Nothing
end if %>

Hvad er det som ikke virker?? Får du en fejlkode eller en tom side...

Beklager ingen den lange svar tid, er lige kommet hjem fra studietur...

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 2.
/sejs_gruppe/grenene/funktion.asp, line 13

Hvad står i linie 13 ??

Er det denne:
strSQL = "SELECT MAX([max]) as alder_max, MIN([min]) as alder_min FROM grenene"

Så prøv at tjekke at kolonne og tabel navne er stavet rigtigt.

Min linie 13 er:
set rs = Conn.execute (strSQL)

Jeg har tjekket alle felterne igennem og alle sammen er stavet rigtigt osv osv

Jeg har prøvet denne kode med en database tabel som denne:

Tabelnavn: grenene
ID : Autonummer
max : tal
min : tal
titel : tekst

--- koden ---


<HTML>
<HEAD><TITLE></TITLE></HEAD>
<BODY>
<% mode = request("mode")
if mode = "" then %>
<FORM ACTION="funktion.asp?mode=find" METHOD="POST">
<INPUT TYPE="text" NAME="alder">
<INPUT TYPE="submit" VALUE="Find">
</FORM>
<% end if %>

<% if mode = "find" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")

Conn.Open= "DBQ=" & Server.MapPath("../inc/db/spejder.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

strSQL = "SELECT MAX([max]) as alder_max, MIN([min]) as alder_min FROM grenene"
set rs = Conn.execute (strSQL)
maxAlder = rs("alder_max")
minAlder = rs("alder_min")

alder = Request.Form("alder")

if CInt(alder) > CInt(maxAlder) then
  Response.write "Du er for gammel."
elseif CInt(alder) < CInt(minAlder) then
  Response.write "Du er ikke gammel nok."
else
  strSQL = "SELECT * FROM grenene WHERE [max] >= " & alder & " AND [min] <= " & alder
  Set rs = Conn.Execute(strSQL)
  if rs.EOF then
    Response.Write "Fandt inden pulje til dig men ven"
  else
    Do while not Rs.EOF
      Response.write "Du passer i pulje " & rs("titel") & "<br>"
      rs.MoveNext
    loop
  end if
end if

'Oprydning
Conn.Close
Set rs = Nothing
Set Conn = Nothing
end if %>

</BODY>
</HTML>

Det virker perfekt nu... Aner ikke hvad der var galt, men tak :-)