Giv personen et nummer mellem 1 og 20

lav en tabel med en tæller kolonne.. som du trækker fra og ligger til i:)

Jeg bruger denne til at tælle med:
<%
Dim t

For t = 1 to 20 Step 1
    Response.Write "<p>Variablen t er nu = " & t & "</p>"
Next
%>

Så er jeg ikke kommet videre, da jeg ikke kan overfører tallet til min database.
Jeg kan heller ikke finde tal som er brugt og slettet igen.

Jeg skal lige sige at jeg har 2 beta tester "mig selv" i min database, dem har jeg selv lavet, funktioen skal gerne kunne undersøge om der er et tal som ikke er brugt.

vent lige og se om nogle har en hurtig og simpel løsning og ellers kommer jeg med min (måske) underlige løsning, men som også virker:))

Ok, jeg venter lidt.

Man kunne checke, om der allerede var 20 personer:

set rs = conn.execute("select * from TabelNavn")

if not (rs.bof or rs.eof) then
' der er records
  if rs.recordcount = 20 then
    ' der er allerede 20 personer..
  else
    ' der er under 20 personer
  end if
end if

Hvis man ikke kan bruge rs.recordcount, kan man lave en loop:

antalrecords = 0
do while not rs.eof
  antalrecords = antalrecords + 1
  rs.movenext
loop

if antalrecords = 20 then
  ' der er allerede 20
else
  ' der er under 20
end if

"SELECT COUNT (id) AS antal From dintabel"

hvis du har en kolonne som hedder id selvfølgelig.

så kan du med en if sætning tjecke om antal er større eller mindre en 20:)

Mente nok at man kunne bruger Count.. var ikke helt sikker :-)

Kunne du ikke lige så godt finde det ledige nummer i samme omgang.

F.eks. kunne du lave en tabel possibleids med et felt id og 20 rækker
og så bruge:

SELECT MIN(id) FROM possibleids WHERE id NOT IN (SELECT id FROM betatesters)

og hvis id er primær nøgle eller har et unikt index så vil du ikke have
samtidigheds problemer selvom 2 laver query samtidigt, da den ene INSERT
vil fejle

Hej begge to
Nu er jeg kigget på jeres forslag, og er kommet frem til dette:
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/newsletter.mdb")

    set rs1 = conn.execute("select * from user")

    if beta_nr <= "20" then
    Response.Write "Tal under 20"
    End if
    if beta_nr > "20" Then
    Response.Write "Tal over 20"
    End if
%>

Men kan ikke komme videre, hvordan kommer jeg videre?

jeg har som sagt en besværlig metode.. men jeg ville lave tomme rækker i min database som hver har sit nummer .. fra 1 til 20.  (vi kan ikke bruge ID kolonne da det er primary key så vi opretter vores egen kolonner)

Jeg vil aldrig bruge delete from, men hellere en update sql og insert sql.

når man tilmelder sig skal der tjeckes i kolonnen navn fra en ende af om navn er = ""; hvis det er det bliver den række udfyldt med de oplysninger man har tilmeldt sig med..

når man afmelder sig køre du igen en update sql sætning som bare går ind på den pågældende række og sætte alle værdier til "" lige pånær nummer kolonnen.

hvis der ikke er nogle tomme pladser bliver man bare ikke sat ind.

Jeg har en række som hedder beta_nr i min database, men du mener at det vil blive nemmere hvis jeg laver 20 nye rækker, f.eks. beta_nr1, beta_nr2 o.s.v. er det rigtigt?

Og derefter skal man undersøge om personen har et nummer eller noget andet, rigtigt?

jeg mener stadig at mit forslag (05/05-2005 19:16:36) er en god løsning

Nej bare lav en kolonne som hedder "Nummer" i din række.. og deri indtaster du i den første række 1 , 2 i den næste osv.

og så det jeg skrev

Kommentar: kalp
07/05-2005 16:45:06

til at fylde resten af kolonnerne ud i rækkerne.

og arne_v's forslag er sikkert fint.. du kan bede ham uddybe det hvis ikke du forstår det eller ønsker mere kode. Jeg har indrømmet fra start af min fremgangsmåde virker men ikke nødvendigvis er den bedste;)

Nu har jeg prøvet jeres forslag, men jeg kan ikke få det til at virke, måske er det bare mig som ikke kan forstå hvad I mener.

Kan I hjælpe mig mere, f.eks. lidt mere kode?

Jeg kan måske godt lave det til dig i næste uge hvis det er... har ikke rigtig tid før desværre

Det lyder fint, hvis du har brug for min database eller andre oplysninger, så kan du skrive til mig på denne adresse: malle@mail.dk

Fint nok:) og har du ikke hørt fra mig engang i midten af næste uge så smid blot en reminder herinde:)

create.asp
----------

<%
' table betatesters:
'    field id : long (primary key)
'    field name : text 50
'    field email : text 50
' table possibleids:
'    field id : long (primary key)
' (has 20 rows with values 1-20)
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;User Id=Admin;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT MIN(id) AS minid FROM possibleids WHERE id NOT IN (SELECT id FROM betatesters)",con
id = rs("minid")
If 1 <= id And id <= 20 Then
    con.Execute "INSERT INTO betatesters VALUES(" & id & ",'" & Request.Form("name") & "','" & Request.Form("email") & "')"
    Response.Write "You are now a beta tester"
Else
    Response.Write "No more beta testers allowed"
End if
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>

create.html
-----------

<form method="POST" action="create.asp">
Navn: <input type="TEXT" name="name">
<br>
Email: <input type="TEXT" name="email">
<br>
<input type="SUBMIT" value="Opret">
</form>

Undskyld at jeg først skriver tilbage nu, men har haft travlt.

Mange tak for din kode, men den skriver altid: "No more beta testers allowed" og det er lige meget om min database er tom eller ej.

har du 20 rækker i table possibleids ??

Jeg bruger ikke possibleids, men se billedet her:
http://www.darkskies.dk/tabel.jpg

Jeg har lavet en ved navn beta_nr, hvor at nummeret skal gemmes i, de 2 som er der nu, har jeg selv sat ind i databasen manuelt.

Måske er det bare mig, men skal jeg lave en ny tabel med 20 rækker eller hvad, måske er det bare mig der er træt eller ikke forstår hvad du skriver :)

hele ideen i mit forslag er den tabel med 20 rækker

lidt primitivt men det virker

hvis du hellere vil bruge en anden løsning så fint

Hej Kalp
Her er en reminder :)

Jeg sidder lidt uden internet for tiden:( men skal se om vores windows2000 advanced server er oppe så kan jeg stadig godt kigge på det.

troede du desuden du ville bruge arne_v's forslag:)

Jeg er kørt helt galt med denne løsning, er det ikke muligt at en af jer kan lave sådan en funktion, så jeg bare kan smide den ind på min side.

Hvis I skal bruge min database eller andre ting, så skriv til mig: spam@darkskies.dk

kan man ikke bare gøre sådan her?:

<%

sql = "Select * from user order by beta_nr" ' se sorteres alfabetisk/numerisk stigende; 0, 1, 2, 3, 4...20
set rs = conn.execute(sql)

if not (rs.bof or rs.eof) then
' der er mindst 1 post

dim i, fundet, tom_id

i = 0

fundet = "nej"

do while not rs.eof fundet = "nej"
i = i + 1

if rs("et felt der er normalt er tomt, når id'en ikke er taget") = "" then
    tom_id = rs("beta_nr")
    fundet = "ja"
end if

rs.movenext
loop

' den næste id, som den nye brugere kan få, er i variablen: tom_id
' så kan du f.eks. oprette en ny bruger med:
'
' sql = "insert into user (mail, navn, password, ... osv) values('" request.form("mail") & "', ... osv , " & tom_id & ")"
'
' eller opdatere en record:
'
' sql = "update user set mail = '" & request.form("mail") & "', ... osv , beta_nr = " & tom_id & " where Noget = Bestemt"

else

    response.write "Databasen er tom!"

end if

%>


Når arve_v kommer med en løsning, plejer det at virke.. hvis du ikke forstår hans løsning, bed ham forklare dig det nærmere..

Det eneste problem jeg kan se, er kommunikationen mellem brugerene i dette spm.. følg op på spørgsmål og forslag fra deltagerne i dette spm..

/theSurfer

Hej theSurfer

Må jeg sende dig mine 2 databaser og nogle sider, da jeg ikke kan finde hoved og hale i det?

Hvis du vil hjælpe mig, så send mig en mail på denne adresse spam@darkskies.dk

Jeg foretrækker at problemerne løses via eksperten.dk.

Med udgangspunkt i 28/06-2005 22:37:19:

Er der et eller flere felter, der afgør om et beta-tester-nummer er ledigt? Hvis ja, hvilke kriterier?

/theSurfer

OK :)

Jeg vil gerne have 20 beta tester til et program som jeg er ved at lave, og så kan man gå ind på tilmeld siden, der bliver beta_nr sat til 0, når at man så logger ind kan man blive beta tester, men kun hvis der er et nummer mellem 1-20 som er ledigt(den funktion skal jeg også have lavet), hvis der er et nummer som er ledigt så kan man tilmelde sig som beta tester, hvis der ikke er et nummer ledigt så kan man ikke tilmelde sig som beta tester.

Her er et billed:
http://www.darkskies.dk/beta.jpg

Jeg kigger på det, engang i aften/nat eller i morgen..

/theSurfer

Helt i orden :)

Jeg regner med at poste koden i dag..

/theSurfer

Ok :)

heysa.. har først lige fået tid, til at kigge på det.. jeg håber ikke at det er en svær opgave, og vil poste koden snarest muligt..

Hvis det tager lang tid, bliver jeg nødt til at fortsætte engang i eftermiddag, da jeg skal tidligt op (skal på arbejde)..

/theSurfer

Bare tag det roligt, det haster ikke :)

Jeg har endeligt fået lavet et eksempel.. skal bare lige justeres lidt.. og så kan jeg smide hele ASP koden her ind..

Jeg har haft travlt her på det sidste, med en masse overarbejde.. der sker nok det samme i næste uge..

/theSurfer

Det er helt fint, du skal ikke få stress pga mig :)

Jeg synes at der er gået lang tid, med det here projekt.. jeg arbejder meget, og er normalt godt smadret, når jeg kommer hjem..

Det bedste ville være, hvis du kunne få en anden til at lave det.. måske kan arne_v lave det..?

Beklager ventetiden.. har bare ikke haft tid.

/theSurfer

OK :(

Jeg prøver at oprette et spørgsmål inde under: "Programmeringsopgaver" i stedet for :)

Mange tak for hjælpen :)

Dem der har været med i dette spørgsmål, bedes lægge et svar, så jeg kan lukke dette spørgsmål.

jeg lavede jo en løsning 10/05-2005 21:42:20 som virker perfekt hos mig

Det kan være, at trekkies lige skal have det forklaret.. men så må trekkies lige skrive..

/theSurfer

Hej arne_v
Undskyld at jeg først skriver nu, da jeg har haft travlt søndag og i dag :)

Jeg har prøvet din løsning igen, og rettet lidt i den, den skriver følgende:
"No more beta testers allowed" selv om at der kun er 2 beta tester i databasen, nummer 1 og 2.

Efter at jeg har rettet i koden ser de sådan ud:
<%
' table betatesters:
'    field id : long (primary key)
'    field name : text 50
'    field email : text 50
' table possibleids:
'    field id : long (primary key)
' (has 20 rows with values 1-20)
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/newsletter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT MIN(id) AS minid FROM user WHERE id NOT IN (SELECT id FROM user)",con
id = rs("minid")
If 1 <= id And id <= 20 Then
    con.Execute "INSERT INTO betatesters VALUES(" & id & ",'" & Request.Form("name") & "','" & Request.Form("email") & "')"
    Response.Write "You are now a beta tester"
Else
    Response.Write "No more beta testers allowed"
End if
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>

Hvis du vil have flere oplysninger om det jeg skal bruge, så kommer det her:
Min database hedder "newsletter" og ligger i mappen "log"
Min tabel hedder "user"
Den række som skal undersøges er "beta_nr"

Hvis du skal bruge flere oplysninger så bare skriv :)

kan du poste output fra

SELECT * FROM possibleids

?

Hvis jeg bruger denne kode:
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/newsletter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM user"

'Response.Write SQLstmt
Conn.Execute(strSQL)
set rs = conn.execute(strSQL)
%>

<%
    DO WHILE NOT rs.EOF
    beta_nr = rs("beta_nr")
%>

<%=beta_nr%>
<p>

<%
rs.movenext
LOOP
rs.close
'Response.Write "</table>"
conn.close
set conn = nothing
set strSQL = nothing
%>

Så får jeg dette ud af databasen:

1

0

øh

min kode forventer 2 tabeller:

betatesters med 0-20 rækker
possibleids med altid 20 rækker

Jeg har jo kun 2 personer inde i min database.
0 er et tal de får når at man tilmelder sig til siden, derefter skal tilmelde sig som betatester, derefter får man et tal mellem 1-20.

Det 1 tal der står i databasen lige nu, er et jeg selv har indsat i databasen.

hele ideen i min kode er at du skal have de 2 tabeller og at den sidste
skal indeholde en række for hver af de 20 mulige pladser

Det vil sige at en tabel med tallene 1-20

Den anden tabel med oplysninger om brugeren.

Er det korrekt?

jep

Så prøver jeg det af, svarer måske først tilbage i morgen.

Jeg har nu prøvet at få den til at virke, men jeg får denne meddelse:
"No more beta testers allowed"

Jeg har rettet koden til dette:
<%
' table betatesters:
'    field id : long (primary key)
'    field name : text 50
'    field email : text 50
' table possibleids:
'    field id : long (primary key)
' (has 20 rows with values 1-20)
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/newsletter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT MIN(beta_nr) AS minid FROM beta_nr WHERE id NOT IN (SELECT beta_nummer FROM user)",con
id = rs("minid")
If 1 <= id And id <= 20 Then
    con.Execute "UPDATE user SET beta_nummer='" & Request.Form("beta_nummer") & "' WHERE ID=" & TRIM(Request.QueryString("id"))
    Response.Write "You are now a beta tester"
Else
    Response.Write "No more beta testers allowed"
End if
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>

Hvad kan fejlen være?

post lige output fra:

SELECT * FROM beta_nr

og

SELECT beta_nummer FROM user

Jeg får nu denne besked "You are now a beta tester", men tallet i databasen bliver slettet.


Når at jeg vil lave et output fra de 2 tabeller, så kører browseren bare og den kommer med en timeout fejl.

Hvis det kan hjælpe lidt så kan du se min kode på mit output her:
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/newsletter.mdb")

    strSQL = "SELECT beta_nr FROM beta_nr"
    strSQL1 = "SELECT beta_nummer FROM user"

    'Response.Write strSQL
    Conn.Execute(strSQL)
    Conn.Execute(strSQL1)
    set rs = conn.execute(strSQL)
    set rs1 = conn.execute(strSQL1)
%>

<%
    DO WHILE NOT rs.EOF
    beta_nr = rs("beta_nr")
%>

<%=beta_nr%>

<%
    DO WHILE NOT rs1.EOF
    beta_nummer = rs1("beta_nummer")
%>

<%=beta_nummer%>

<%
rs.movenext
rs1.movenext
LOOP
LOOP
rs.close
rs1.close
conn.close
set conn = nothing
set strSQL = nothing
set strSQL1 = nothing
%>

1)

Du behøver ikke at udføre de respektive execute-sætninger flere gange:

  Conn.Execute(strSQL)
    Conn.Execute(strSQL1)
    set rs = conn.execute(strSQL)
    set rs1 = conn.execute(strSQL1)

Det er nok med:

    set rs = conn.execute(strSQL)
    set rs1 = conn.execute(strSQL1)


2)

Det er kun server-variabler, der skal sættes til nothing, efter brug.. f.eks. "conn", "rs", "rs1" osv..

Dine variabler "strSQL" og "strSQL1" er almindelige variabler..

Til server-variabler, bruger man: set variabelnavn = noget her
De fjernes igen med: set variabelnavn = nothing

Dvs:

rs.close
rs1.close
conn.close

set rs = nothing
set rs1 = nothing
set conn = nothing

/theSurfer

PS: server-variabler er *ikke* begrænset til "conn", "rs" (og variationer af disse). Alt kan bruges, pånær ugyldige tegn, som f.eks. mellemrum osv..

/theSurfer

jeg ville altså bare fyre de kommandoer af i Access Query ...

thesurfer:
Jeg ved godt at man kan bruge andre ord i stedet for "conn" og "rs" men det har jeg brugt i flere år og det er nemt at huske, jeg er ved at blive gammel så jeg skal bruge noget som jeg kan huske :)

arne_v:
Ups, min fejl, prøver det lige ...

arne_v:
Når at jeg kører en output på beta_nr, kommer den med id og beta_nr, der er 20 tal i dem begge rækker.

Når at jeg kører en output på user, kommer den med beta_nummer, de er 0 og 0, det er de sat til som stadard, men skal forføjes til det nærmeste tal mellem 1-20.

Hvad laver jeg fejl, da du godt kan få det til at virke?

..jeg mente ikke, at du skulle bruge andet end conn, rs, osv.. jeg bruger dem selv..
Min pointe var, at du kun skulle bruge bruge "set X = nothing", hvis du brugte "set X = noget-her".. og ikke med bare "X = noget-her"..

/theSurfer

arne_v:
Da jeg stadig ikke kan få det til at virke, så vil jeg vide om det muligt at jeg få se din kode og database?

sagtens

email eller download ?

Bedst via mail, da jeg har problemer med at downloade med Firefox :(

Send tingene her til:
spam@darkskies.dk

email sendt

(jeg har fyldt 10 beta testere i, men dem kan du jo slette efter at du har set det virke)

hmm

    -Rcvd: 550 Error: Attachement of type .mdb considered unsafe - see http://support.microsoft.com/default.aspx?scid=kb;da;290497
    -Sent: QUIT
    -Rcvd: 221 Bye

jeg prøver lige at zippe

Takker for filen :)

Ja, Microsoft laver rav i alt :)


Jeg kigger få filerne, og vender tilbage senere.

Nu virker det sku :>

Det er bedre end sex :)

Lægger du et svar arne_v?

Lægger I også et svar thesurfer og kalp, da I også der skulle døje med mig i så lang tid :)

svar

Ingen point til mig, tak :-)

/theSurfer

Heller ingen point til mig:) Jeg har ikke haft tid til, at være så meget på E og skulle oprindeligt også selv have kigget på det til dig:)

Her er nogle point, mange tak for hjælpen :)