Hjælp til opbyggning af db og asp

Giv hver spiller et name og en value - så er det som alle andre forms - istedet for alle har C1

det er KUN hvis den er hakket af den sendes videre til din 'put-i-DB'-side

nozio-> det jeg har lavet er kun en skabelon, og ja jeg ved at de skal have forskellige værdier (copy past)

Men hvordan skal jeg bygge db op

Du kan lave 3 tabeller.
1. Spillere
sid | spiller_navn | andre data


2. Hold
hid | Holdnavn | DeltagerNavn | Email | andre data


3. HoldSpillere
id | hid | sid


Så kan du i HoldSpillere gemmme sid på de 6 spillere et hold (hid) har. Så hvis hold med hid 4 har spillere 4,5,8,212,56,32 så vil HoldSpillere se sådan her ud:

| hid | sid
|  4  |  4
|  4  |  5
|  4  |  8
|  4  |  212
|  4  |  56
|  4  |  32

Så kan du altid gå via HoldSpillere og JOIN for at tælle point vise holdet mm.

Det også nemt at gemme, du giver alle checkboxse samme navn "spillere" og i value på hver checkbox sætter du spilleres sid. Fordelen er et checkbox kun overføres hvis den er valgt. Så du får altså de 6 sid i en kommastreng/array som let kan ligges i databasen.

jo jo eagleeye, jeg prøvcer mig lige frem, du ved jo godt jeg ikke er verdens største haj til asp, men jeg prøver mig aligevel frem, så spørger jeg bare når jeg kommer i problemer

får denne fejl når jeg opretter en spiller:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'sid ='.

/dream/GemProfil.asp, line 41

koden ser således ud:

SQL="UPDATE spillere SET "
SQL = SQL & "spillernavn='" & spillernavn & "', "
SQL = SQL & "handicap='" & handicap & "', "
SQL = SQL & "sidsterunde='" & sidsterunde & "', "
SQL = SQL & "totalt='" & totalt & "' "

SQL = SQL & " where sid =" & Request.Querystring("sid")
'response.write sql

Set RS = Conn.Execute(SQL)

response.redirect ("RetListe.asp")

else
end if

Er du sikker på at der er noget i Request.Querystring("sid") ?
Prøv det her:

SQL = SQL & " where sid =" & Request.Querystring("sid")
response.write sql
response.end

Hvad skriver den?

UPDATE spillere SET spillernavn='', handicap='', sidsterunde='', totalt='' where sid =

sorry: UPDATE spillere SET spillernavn='', handicap='0,7', sidsterunde='2', totalt='6' where sid =

og hvordan var det med dette: Field 'spillere.spillernavn' cannot be a zero-length string.

"<felt> cannot be a zero-length string" betyder at "<felt>" ikke må være tomt.. dvs, der skal stå noget..

Som du kan se, er der ikke noget i Request.Querystring("sid"), ellers ville det have stået bag "sid ="

- Når man bruger urls, bruger man Request.Querystring
- Når man bruger forms, bruger man Request.Form

Er du sikker på, at det ikke skal være Request.Form("sid") ?

Se evt:
"Lektion 10: Værdier af variabler i en URL" - http://html.dk/tutorials/asp/lektion10.asp
"Lektion 11: Værdier af elementer i en formular" - http://html.dk/tutorials/asp/lektion11.asp

for den samme med form:

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'sid ='.

hele koden ser således ud:


<%
If Request("mode") = "ny" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")

SQL= "INSERT INTO spillere (spillernavn, handicap, sidsterunde, totalt)"
SQL = SQL & " VALUES ('" & request.form("spillernavn") & "','" & request.form("handicap") & "','" & request.form("sidsterunde") & "','" & request.form("totalt") & "')"

Conn.Execute (SQL)

conn.Close
Set conn = nothing
Set SQL = nothing

response.write "Spiller er nu oprettet."

ElseIf Request("mode") = "gem" then

spillernavn = request.form("spillernavn")
handicap = request.form("handicap")
sidsterunde = request.form("sidsterunde")
totalt = request.form("totalt")



set conn = server.createobject("ADODB.connection")
path = Server.MapPath("xxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL="UPDATE spillere SET "
SQL = SQL & "spillernavn='" & spillernavn & "', "
SQL = SQL & "handicap='" & handicap & "', "
SQL = SQL & "sidsterunde='" & sidsterunde & "', "
SQL = SQL & "totalt='" & totalt & "' "

SQL = SQL & " where sid =" & Request.form("sid")
'response.write sql

Set RS = Conn.Execute(SQL)

response.redirect ("RetListe.asp")

else
end if

Skriv lige koden til hvordan du henter værdierne til:
SQL="UPDATE spillere SET "
SQL = SQL & "spillernavn='" & spillernavn & "', "
SQL = SQL & "handicap='" & handicap & "', "
SQL = SQL & "sidsterunde='" & sidsterunde & "', "
SQL = SQL & "totalt='" & totalt & "' "

SQL = SQL & " where sid =" & Request.Querystring("sid")
'response.write sql

Det vil ikke virke, med mindre at din form har en "?sid=noget-her" i action.

<form action="side.asp?sid=noget"...>

Har du et felt der hedder "sid"?

Hvis os koden til din form.. er det den på http://www.hillerodgolf.dk/dream/spillere.htm ?

og vedr. tomt sid, så står der noget: http://www.hillerodgolf.dk/dream/retProfil.asp?sid=10

Du mangler sid=:

<form method="post" action="GemProfil.asp?mode=gem&amp;id=10">

skal være:

<form method="post" action="GemProfil.asp?mode=gem&amp;sid=<%=request.querystring("sid")%>">

Jeg tror ikke at du må bruge "&amp;".. der *skal* nok stå et "&" i stedet..

jeg får stadig samme fejl

hmm.. hvorfor står der stadig "&amp;;sid=10"?:

<form method="post" action="GemProfil.asp?mode=gem&amp;;sid=10">

Der skal bare stå:
<form method="post" action="GemProfil.asp?mode=gem&sid=<%=request.querystring("sid")%>">

der står: <form method="post" action="GemProfil.asp?mode=gem&;sid=<%=request.querystring("sid")%>"> nu ??

sorry ser en lille ; fejl

samme problem

hmm.. hvorfor kommer der til at stå "&amp;" i html koden?
Bruger du server.urlencode eller ligende?

Hey.. nu virker det..
Du har bare lavet en fejl mht data typen: "Data type mismatch in criteria expression"

Prøv det her:
SQL = SQL & " where sid = " & CInt(Request.Querystring("sid"))

Mener at eagleeye sagde at det ikke havde nogen betydning :-)

Jeg går ud fra, at "sid" er af typen "tal". Hvis "sid" *ikke* er, af typen tal:
SQL = SQL & " where sid = '" & Request.Querystring("sid") & "'"

nu får jeg denne: cannot be a zero-length string.

sid er "id" autonummerering

Se lige under "De hyppigste begynderfejl" på http://html.dk/tutorials/asp/lektion20.asp

Når jeg submitter http://www.hillerodgolf.dk/dream/retProfil.asp?sid=10 , får jeg:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/dream/GemProfil.asp, line 41

ja hvis du ikke udfylder total og sidsterunde

spillernavn er af typen text og nej i TilladNullængde

Skal være:
spillernavn = request.form("navn")

Eller:
<td width="95" class="copy">Navn</td>
      <td width="191"><input type="text" name="spillernavn" size="33"

:-)

den sidste fangede jeg name på textfelt var navn i stedet for spillernavn, så nu funker den del, smider flere points i piljen da dette kan tage længere tid inden jeg er færdig kan jeg se

Hvad er der ellers, der skal laves? :-)

Se lige: http://www.hillerodgolf.dk/dream/retProfil.asp?sid=13
..fandt ud af, at værdierne gemmes... :-)

men jeg har det stadig her: http://www.hillerodgolf.dk/dream/OpretProfil.asp

som det står i mit spørgsmål skal jeg oprette spillere som man kan vælge til sit dreamteam.
Brugerne skal så vælge 6 spillere ud fra listen, som de så giver et holdnavn.

og til sidst skal alle hold listes efter hvem der fører

lidt ligesom drømmeholdet til superligaen eller tour de france, bare i en light udgave, men har sadt points op til 200

Det lyder som noget eagleeye-snask ;-)

:o) kan du fårstå hvorfor denne giver zero: http://www.hillerodgolf.dk/dream/OpretProfil.asp

Har du set mit indlæg 10/04-2004 14:40:20?:
Se lige under "De hyppigste begynderfejl" på http://html.dk/tutorials/asp/lektion20.asp

..og jeg vil gætte på, at du også har lavet denne fejl, på " http://www.hillerodgolf.dk/dream/GemProfil.asp?mode=ny ":

spillernavn = request.form("spillernavn")

--

Skal være: spillernavn = request.form("navn")

Eller: <input type="text" name="spillernavn"

sådan så virker den del :o)

nej det var ikke den fejl men jeg havde nej i TilladNullængde i stedet for ja

huh? TilladNiullængde skal være "nej".. navnet må jo ikke være tomt! :-)

Er det derfor, at der er 2 profiler uden navn (nederest)?: http://www.hillerodgolf.dk/dream/RetListe.asp

hmm.. det er derfor! :-)
Jeg har lige oprettet endnu en profil, men den viser et tomrum i stedet for navnet..

Fix det :-)

det mente jeg også, men når det står nej virker det ikke :o) Hvad skal man så gøre?

Det her:

Skal være: spillernavn = request.form("navn")

Eller: <input type="text" name="spillernavn"

Læser du ikke mine indlæg? :-)
Eller springer du bare et par stykker over..? ;-)

jo jo, men på min maskine står der spillernavn, men ikke ude på nettet havde ikke lastet den op kan jeg se, og nu har jeg så lavet den til nej i db

Hvad bruger du til oploade?:
- FTP
- Browser/Web-interface

ftp

hmm.. så burde det jo være nemt at synkronisere dine filer, med serverens.. ?
Du har din website-mappe på computeren, som du så oploader.. aller mapper+filer i website-mappen..
Så er du sikker på, at alle ændringerne kommer med..

Lav først en backup af serverens mapper+filer..

hva'.. det går da lidt langsom, synes jeg :-)

"Field 'spillere.spillernavn' cannot be a zero-length string."

den virker fint her :o)

hehehe.. god med dig :-)
.. må meget gerne oploade filerne, så jeg kan finde fejl, og forhåbentligt og rettelser :-)

hvis man ikke udfylder navn får man en fejl ellers ikke

Kan du gætte hvem "MitNavn" er? *fnis* *fnis* *fnis*  ;-)

Hmm.. du skal ha' noget validering på..
Smid lige koden herind.. husk at erstatte følsomme data med "xxx" som du plejer..

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "SELECT * FROM spillere order by sid ASC"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ret Spiller Liste</title>
<LINK href="ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">

<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top" width="60%">
              <table cellSpacing="0" cellPadding="3" border="0">
                <tbody>
                  <tr>
                    <td vAlign="top" width="236" colspan="2">
                      <p class="copy"><img border="0" src="../eliten/herrer/images/spiller_profil.gif">
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236" bgcolor="#294A7B" colspan="2">
                      <p class="rammetopBold">SPILLERE</p>
                    </td>
                  </tr>
                  <%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                    end if

                    if bgskift = 0 then
                    color="bgcolor='#eeeeee'"
                else
                  color="bgcolor='#ffffff'"
        end if
                  %>
                  <tr>
                    <td vAlign="top" width="90%" class="copy" <%=color%>><% response.write "<a href=""retProfil.asp?sid=" & RS("sid") &""">" & RS("spillernavn") & "</a>"  %></td>
                    <td vAlign="top" class="copy" width="10%" align="right" <%=color%>>
                    <a href="retProfil.asp?sid=<%=RS("sid") %>">
                    <img border="0" src="../eliten/herrer/images/ret_button.gif" <%=color%>>
                    </a>
                    </td>
                  </tr>
                    <%
    RS.MoveNext
    loop
  %>
  <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>
                </tbody>
              </table>
            </td>
            <td><img height="1" src="spacer.gif" width="15" border="0"></td>
            <td vAlign="top">
              <table cellSpacing="0" cellPadding="0" border="0">
                <tbody>
                  <tr>
                    <td colspan="2">
                      <img border="0" src="../eliten/images/golf_admin.gif">
                    </td>
                  </tr>
                  <tr>
                    <td colspan="2">
                      <p class="copy"><img border="0" src="info.gif" vspace="3" width="170" height="30">
                    </td>
                  </tr>
                  <tr>
                    <td valign="top">
                      <p class="copy"><img border="0" src="bullet.gif" hspace="3" width="5" height="10">
                    </td>
                    <td valign="top">
                      <p class="copy">
                    </td>
                  </tr>
                  <tr>
                    <td valign="top">
                      <img border="0" src="bullet.gif" hspace="3" width="5" height="10">
                    </td>
                    <td valign="top">
                      <p class="copy">
                    </td>
                  </tr>
                </tbody>
              </table>
            </td>
          </tr>
        </tbody>
      </table>
    </td>
  </tr>
   
<font>
  </font>
</table>
<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <p align="center" class="copyright">Copyright © 2004.&nbsp; All rights
      reserved Hillerød Golf Klub</td>
  </tr>
</table>
</body>

og her gem og ret filen:

<%
If Request("mode") = "ny" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")

SQL= "INSERT INTO spillere (spillernavn, handicap, sidsterunde, totalt)"
SQL = SQL & " VALUES ('" & request.form("spillernavn") & "','" & request.form("handicap") & "','" & request.form("sidsterunde") & "','" & request.form("totalt") & "')"

Conn.Execute (SQL)

conn.Close
Set conn = nothing
Set SQL = nothing

response.write "Spiller er nu oprettet."

ElseIf Request("mode") = "gem" then

spillernavn = request.form("spillernavn")
handicap = request.form("handicap")
sidsterunde = request.form("sidsterunde")
totalt = request.form("totalt")



set conn = server.createobject("ADODB.connection")
path = Server.MapPath("xxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL="UPDATE spillere SET "
SQL = SQL & "spillernavn='" & spillernavn & "', "
SQL = SQL & "handicap='" & handicap & "', "
SQL = SQL & "sidsterunde='" & sidsterunde & "', "
SQL = SQL & "totalt='" & totalt & "' "

SQL = SQL & " where sid = " & CInt(Request.Querystring("sid"))
'response.write sql

Set RS = Conn.Execute(SQL)

response.redirect ("RetListe.asp")

else
end if
%>

Kigger lige på det..

- Skal *alle* felter udfyldes? Hvis nej:
- Hvilke felter må ikke være tomme?

og her opret...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "SELECT * FROM spillere order by spillernavn ASC"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opret Spiller</title>
<LINK href="ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">

<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top" width="60%">
              <table cellSpacing="0" cellPadding="3" border="0">
                <tbody>
                  <tr>
                    <td vAlign="top" width="236">
                      <p class="copy"><img border="0" src="opret_profil.gif">
                    </td>
                  </tr>
                  <%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                    end if

                    if bgskift = 0 then
                    color="bgcolor='#eeeeee'"
                else
                  color="bgcolor='#ffffff'"
        end if
                  %>
                  <%
    RS.MoveNext
    loop
  %>
  <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>
                  <tr>
                    <td vAlign="top" width="236">
<form method="POST" action="GemProfil.asp?mode=ny" name="opret">
  <table width="309" cellspacing="0" cellpadding="3">
    <tr>
      <td class="copy" bgcolor="#ebebeb" width="87">Navn</td>
      <td width="208" bgcolor="#EBEBEB"><input type="text" name="spillernavn" size="33" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>
    <tr>
      <td class="copy" width="87">Handicap</td>
      <td width="208"><input type="text" name="Handicap" size="6" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>   
    <tr>
      <td class="copy" bgcolor="#EBEBEB" valign="top" width="87">Sidste runde</td>
      <td width="208" bgcolor="#EBEBEB"><input type="text" name="sidsterunde" size="6" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr> 
    <tr>
      <td class="copy" valign="top" width="87">Total Score</td>
      <td width="208"><input type="text" name="totalt" size="6" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>
    <tr>
      <td class="copy" width="87" bgcolor="#EBEBEB">&nbsp;</td>
      <td bgcolor="#EBEBEB">
      <input type="submit" value="Send" name="B1">
      </td>
    </tr>
  </table>
</form>
                    </td>
                  </tr>
                </tbody>
              </table>
            </td>
            <td valign="top"><img border="0" src="../eliten/herrer/images/golf_admin.gif"></td>
          </tr>
        </tbody>
      </table>
    </td>
  </tr>
   
<font>
  </font>
</table>
</body>

Hvis du ikke har set det:

- Skal *alle* felter udfyldes? Hvis nej:
- Hvilke felter må ikke være tomme?

alle felter skal udfyldes, ellers kan startværdien i fælterne sidsterunde og totalt være 0 (nul)

:o)

Fint: alle felter skal udfyldes, inden formen submittes :-)

Man kan gøre det her på 2 måde:
1) via JavaScript (klientside, sker i browseren, kan manipuleres)
2) via ASP (serverside, sker på serveren, kan ikke manipuleres)

Vælg 1 eller 2 :-)

Da det kun er admin der skal have adgang til dette, så er 1 fint nok

dammit.. har lige lavet den med nr 2 :-)


"gem og ret"-filen.. erstatter den gamle kode:

<%
spillernavn = request.form("spillernavn")
handicap = request.form("handicap")
sidsterunde = request.form("sidsterunde")
totalt = request.form("totalt")

If Request("mode") = "ny" then

if spillernavn <> "" and handicap <> "" and sidsterunde <> "" and totalt <> "" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")

SQL= "INSERT INTO spillere (spillernavn, handicap, sidsterunde, totalt)"
SQL = SQL & " VALUES ('" & request.form("spillernavn") & "','" & request.form("handicap") & "','" & request.form("sidsterunde") & "','" & request.form("totalt") & "')"

Conn.Execute (SQL)

conn.Close
Set conn = nothing
Set SQL = nothing

response.write "Spiller er nu oprettet."

else

response.write "Du skal udfylde *alle* felter!"
end if

ElseIf Request("mode") = "gem" then

set conn = server.createobject("ADODB.connection")
path = Server.MapPath("xxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL="UPDATE spillere SET "
SQL = SQL & "spillernavn='" & spillernavn & "', "
SQL = SQL & "handicap='" & handicap & "', "
SQL = SQL & "sidsterunde='" & sidsterunde & "', "
SQL = SQL & "totalt='" & totalt & "' "

SQL = SQL & " where sid = " & CInt(Request.Querystring("sid"))
'response.write sql

Set RS = Conn.Execute(SQL)

response.redirect ("RetListe.asp")

else
end if
%>



laver den lige med nr 1.. :-)

Jeg havde smidt scriptet imellem <head> og </head>:
<script type="text/JavaScript">
var fejl;
var el;

function val(frm)
{
fejl = "nej";
el = frm.elements;
for (i=0;i<el.length;i++) {
if (el[i].type == "text" && el[i].value == "") fejl = "ja";
}

if (fejl == "ja") {
alert("Du skal udfylde *alle* felter!");
return false;
} else {
return true;
}

}
</script>

og en tilføjelse til dit <form>-tag:

<form ...  onsubmit="return val(this)">

"..." betyder "din eksisterende kode her"

Er denne til no. 1 : Kommentar: thesurfer 10/04-2004 15:56:56

Nr 1 (JavaScript): 10/04-2004 16:06:34
Nr 2 (ASp) : 10/04-2004 15:56:56

OK, så er den klaret brugte bare dit første forslag

Så er jeg kommet til del 2.

http://www.hillerodgolf.dk/dream/OpretHold.asp

Ja, det virker..men kønt er det ikke :-)
Kigger lige på det..

Bruger du en response.end efter "Du skal udfylde *alle* felter!" ?

tabellen hedder hold:

hid  | holdnavn  |  deltager  |  mail  | andre

men den skal hente spillerne fra tabellen spillere

hvordan gøres dette, har kun prøvet at hente fra en tabel af gangen og her skal den hente fra en tabel og gemme i en anden

Bruger du en response.end efter "Du skal udfylde *alle* felter!" ?

--> jeg har bare copy pastet din kode

eagleeye: Forstår ikke helt denne løsning: Kommentar: eagleeye 10/04-2004 12:09:58

erstat de gamle linier ( gem/opret filen) med disse:

else

response.write "Du skal udfylde *alle* felter!<br>"
response.write "<a href='java script:history.go(-1)'>Tilbage</a>"
end if

mht JOIN: http://www.w3schools.com/sql/sql_join.asp

sådan så er det gjort

i gem-opret filen, indsæt det her før din asp kode:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opret Spiller</title>
<LINK href="ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">


og det her efter din asp kode:

</body>
</html>

så er det gjort også

hmmmm, det er godt nok noget langhåret det her: http://www.w3schools.com/sql/sql_join.asp

hmm.. lidt pænere, men ikke helt så godt :-)

Indsæt nogle "&nbsp;" (mellemrum, "no-breaking space") før linierne:

response.write "&nbsp;&nbsp;Du skal udfylde *alle* felter!<br>"
response.write "&nbsp;&nbsp;<a href='java script:history.go(-1)'>Tilbage</a>"

Du bestemmer selv antallet.. bare det du synes er pænt..

mht SQL Join> Ja :-)
Det er derfor jeg sagde "noget eagleeye-snask" :-)

Han er god til det der halløj..

Jeg er igang med denne fra eagleeyes kommentar 10/04-2004 12:07:52:

2. Hold
hid | Holdnavn | DeltagerNavn | Email | andre data

og det er denne http://www.hillerodgolf.dk/dream/OpretHold.asp, men kan ikke se hvordan afkrydsningsfælterne kan gemme info i den del af databasen i tabellen hold.

Hvis checkboxene hedder det samme navn og har forskellig value.

Først skal du lave et nyt hold ved at indsætte holdnavn, deltager navn og email:

SQL = "insert into hold (holdnavn,DeltagerNavn,Email) values("
SQL = SQL & "'" & Request.Form("holdnavn") & "', "
SQL = SQL & "'" & Request.Form("deltager") & "', "
SQL = SQL & "'" & Request.Form("mail") & "')"
Conn.Execute(SQL)

Så skal du hente "hid" ud af databasen som på den post som lige er blevet lavet. Dette skal måske lige rettes alt efter database typen du bruger:

SQL = "SELECT @@IDENTITY FROM hold"
Set RS = Conn.Execute(SQL)
hid = rs(0)


Så skal du havde lagt hid og sid ind i tabellen som samler spillerne til holdet (de 6 valgte). De kan hentes med:

spillerid = Request.Form("spiller")
sidArr = Split(spillerid, ",")
for i = lbound(sidArr) to ubound(sidArr)
  SQL = "insert into HoldSpillere (hid,sid) values (" & hid & "," & trim(sidArr(i)
  Conn.Execute(SQL)
next



men du skal havde alle checkboxe til at havde samme navn i det eks jeg lige har vist skal deres navn være "spiller". Og i value på checkbox'en skal spilleren ID være.

Man kan også sikre sig inden man indsætter at der ikke er to hold som har samme navn?
men jeg er faktisk nød til at smutte igen :(

ok....

Den sidste SQL sætning:
SQL = "insert into HoldSpillere (hid,sid) values (" & hid & "," & trim(sidArr(i)

manger der lidt i:
SQL = "insert into HoldSpillere (hid,sid) values (" & hid & "," & trim(sidArr(i)) & ")"

jeg håber du kan komme vidre med det :)

mine checkbokse har denne: <input type="checkbox" name="<%=rs("sid")%>" value="ON">

Prøv at lave dem om til dette sådan de har samme navn, og value er lig deres sid:

<input type="checkbox" name="spiller" value="<%=rs("sid")%>">

må jo prøve mig frem, men det ser langhåret ud

ok det er gjort, så må jeg håbe nogle andre kan kigge forbi, da jeg skal have det færdig til i morgen :o)

Ok :) ja det håber jeg på. Men jeg er nød til at smutte igen nu.

Det med JOIN eks, hvis man vil havde alle spillerne tilsluttet et hold, her holdet med hid=1:

SELECT hold.holdnavn, spiller.spillernavn
FROM (hold LEFT JOIN holdspiller ON hold.hid = holdspiller.hid) LEFT JOIN spiller ON holdspiller.sid = spiller.sid WHERE hold.hid=1;

erikjacobsen er vist også god til det der.. men på hans minisite står der:

"Karmasystemet er for dårligt. Jeg dropper eksperten.dk et stykke tid."

Vi må se om jeg kan finde ud af det :o)

uha, findes der en anden løsning end denne langhårede eagleeye løsning, måske en der var lidt nemmere at lave for os nybegynnere.

jeg må se om eagleeye kommer forbi i morgen, da jeg har prøvet alt her til aften uden at komme vider. Men indtil vider kan du jo lige smide et svar thesurfer, for det du har hjulpet mig med

En anden mulighed, er at lave to tabeller en med spillere og en med hold. Så lade hold tabellen havde 6 kolonner spiller_1 til spiller_6.


1. Spillere
sid | spiller_navn | andre kolonner


2. Hold
hid | Holdnavn | DeltagerNavn | Email | spiller_1 | spiller_2 |...| spiller_6


Den SQL som henter alle spilerne ud til et hold vi se sådan her ud:

SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or ... or spillere.sid=hold.spiller_6) and hold.hid=1"


Som jeg ser det har du mindst 2 tabeller. En til spiller og en til hold. Spørgsmålet er om du mener der skal være en tabel som laver relationen imellem spiller og hold tabellen, eller om relationen skal ligge i 6 kolonner i hold tabellen.
Der er nogle regler, "En spiller kan være på mange hold", så derfor skal hold relationen ikke være i spiller tabelen.

Tit kan det være en ide at tegne tabellerne på et ark papir og skrive kolonnenvane på. Tegne pile hvor der er relationer imellem tabelerne.

En anden ting er også hvor dynamisk skal systemet være? Du skriver:
>> ...hvor man vælger 6 spillere, som man så følger gennem hele sæsonen.
Betyder det man ikke kan udskifte spillere igennem en sæson?

man kan ikke skifte spillere i gennem sæsonen, man skal kun kunne se hvad de laver af points gennem sæsonen, som admin indtaster i tabellen spillere

alle 6 spillere har en løbende total score gennem sæsonen, samt alle 6 scores totalt, er scoren for holdet

Ok, hvis du syntes forslaget 10/04-2004 12:07:52 forvirdre kan du overveje det sidste. JOIN sætter to tabeller ved siden af hinanden sådan de fremstår som en tabel. Hvis man har en kolonne til hver spiller skal man ud i nogle lange where dele som så skal udgøre JOIN'en.

Man kan sige, hvis det kun er en gang man kan vælge spiller kan man "nøjes" med 6 kolonner en til hver spiller i hold tabelen. Men jeg mener du skal vælge den du har det bedst med.

Koden som indsætter et nyt hold vil stadigvæk være meget lig den anden. Nu skal spilerne så bare indsættes i hold tabellen og ikke i relation tabellen. Så man skal ikke hente idet på det nye hold som er indsat, dog skal man så hente sid for alle spilerne ind i den første SQL sætning.

det skal vel en relation mellem spiller og hold, da der bliver intastet score/points i spiller tabellen, som så skal regnes sammen på holdet ?

Ja det skal der være, og den føste løsning er relationen i en tabel, den anden er relationen i 6 kolonner så hvor kolonne spiller_1 til spiller_6 er en relation til  spillere tabellen.

hvis man tager udgangspunkt i denne: http://www.hillerodgolf.dk/dream/OpretHold.asp

skal linien i toppen så se således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1
or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or ... or spillere.sid=hold.spiller_6) and hold.hid=1"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>

Det jeg har vist som SQL sætning er hvordan man henter alle spillere som er valgt til et hold.


Hvis du vil oprette et hold skal koden se sådan her ud:


SQL = "insert into hold (holdnavn, DeltagerNavn, Email, spiller_1, spiller_2, spiller_3, spiller_4, spiller_5, spiller_6) values("
SQL = SQL & "'" & Request.Form("holdnavn") & "', "
SQL = SQL & "'" & Request.Form("deltager") & "', "
SQL = SQL & "'" & Request.Form("mail") & "', "
spillerid = Request.Form("spiller")
sidArr = Split(spillerid, ",")
for i = lbound(sidArr) to ubound(sidArr)
  SQL = SQL & trim(sidArr(i)
  if i<ubound(sidArr) then SQL = SQL & ", "
next
SQL = SQL & ")"
Conn.Execute(SQL)

så det bliver sådan her i denne: http://www.hillerodgolf.dk/dream/OpretHold.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")
SQL = "insert into hold (holdnavn, DeltagerNavn, Email, spiller_1, spiller_2, spiller_3, spiller_4, spiller_5, spiller_6) values("
SQL = SQL & "'" & Request.Form("holdnavn") & "', "
SQL = SQL & "'" & Request.Form("deltager") & "', "
SQL = SQL & "'" & Request.Form("mail") & "', "
spillerid = Request.Form("spiller")
sidArr = Split(spillerid, ",")
for i = lbound(sidArr) to ubound(sidArr)
  SQL = SQL & trim(sidArr(i)
  if i<ubound(sidArr) then SQL = SQL & ", "
next
SQL = SQL & ")"
Conn.Execute(SQL)
%>

kan denne så selv finde ud af de afkrydsninger der bliver gjort

Ja der skal vælges 6 spillere for den virker. De 6 spillere bliver hentet her:
spillerid = Request.Form("spiller")
sidArr = Split(spillerid, ",")

og lagt ind i SQL sætningen her:
for i = lbound(sidArr) to ubound(sidArr)
  SQL = SQL & trim(sidArr(i)
  if i<ubound(sidArr) then SQL = SQL & ", "
next

ok, tester lige

i formen skal den så se således ud:
<form method="POST" action="OpretHold.asp" name="opret">

får denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/dream/OpretHold.asp, line 15

Ja det ser fint ud.

Når koden som genner i databasen ligger på samme side så skal man lige tjekke at form'en er sent til siden så din kode skal være:


<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")
  SQL = "insert into hold (holdnavn, DeltagerNavn, Email, spiller_1, spiller_2, spiller_3, spiller_4, spiller_5, spiller_6) values("
  SQL = SQL & "'" & Request.Form("holdnavn") & "', "
  SQL = SQL & "'" & Request.Form("deltager") & "', "
  SQL = SQL & "'" & Request.Form("mail") & "', "
  spillerid = Request.Form("spiller")
  sidArr = Split(spillerid, ",")
  for i = lbound(sidArr) to ubound(sidArr)
    SQL = SQL & trim(sidArr(i)
    if i<ubound(sidArr) then SQL = SQL & ", "
  next
  SQL = SQL & ")"
  Conn.Execute(SQL)
end if
%>

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/dream/OpretHold.asp, line 62


kode:

<%
bgskift=0
do while not RS.EOF --------->> dette skulle være 62
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>

ok det måske ikke det hele som skulle pakkes ind. Du bruge vel også connection til at vise alle spiller, så det med Conn skal være før if sætningen sådan her:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  SQL = "insert into hold (holdnavn, DeltagerNavn, Email, spiller_1, spiller_2, spiller_3, spiller_4, spiller_5, spiller_6) values("
  SQL = SQL & "'" & Request.Form("holdnavn") & "', "
  SQL = SQL & "'" & Request.Form("deltager") & "', "
  SQL = SQL & "'" & Request.Form("mail") & "', "
  spillerid = Request.Form("spiller")
  sidArr = Split(spillerid, ",")
  for i = lbound(sidArr) to ubound(sidArr)
    SQL = SQL & trim(sidArr(i)
    if i<ubound(sidArr) then SQL = SQL & ", "
  next
  SQL = SQL & ")"
  Conn.Execute(SQL)
end if
%>

og din SQL = SQL & trim(sidArr(i)
skal vel være SQL = SQL & trim(sidArr(i))

Ja :)

får stadigvæk denne:

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/dream/OpretHold.asp, line 63

du har en linje som lig noget?

Set RS = Conn.Execute(....

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>

hele koden:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  SQL = "insert into hold (holdnavn, DeltagerNavn, Email, spiller_1, spiller_2, spiller_3, spiller_4, spiller_5, spiller_6) values("
  SQL = SQL & "'" & Request.Form("holdnavn") & "', "
  SQL = SQL & "'" & Request.Form("deltager") & "', "
  SQL = SQL & "'" & Request.Form("mail") & "', "
  spillerid = Request.Form("spiller")
  sidArr = Split(spillerid, ",")
  for i = lbound(sidArr) to ubound(sidArr)
    SQL = SQL & trim(sidArr(i))
    if i<ubound(sidArr) then SQL = SQL & ", "
  next
  SQL = SQL & ")"
  Conn.Execute(SQL)
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opret Hold</title>
<LINK href="ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">

<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top" width="60%">
              <table cellSpacing="0" cellPadding="3" border="0">
                <tbody>
                  <tr>
                    <td vAlign="top" width="236">
                      <p class="copy"><img border="0" src="billeder/opret_hold.gif"><br>
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236">
                      <table border="0" width="309" cellspacing="0" cellpadding="3">
                        <tr>
                          <td width="62" bgcolor="#294A7B" class="rammetopBold">
                            <p align="center">VÆLG</td>
                          <td width="231" bgcolor="#294A7B" class="rammetopBold">SPILLERNAVN</td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236">
<form method="POST" action="OpretHold.asp" name="opret">
  <table cellspacing="0" cellpadding="3" width="70%">
<%
bgskift=0
do while not RS.EOF
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
                  <tr>
                  <td class="copy" width="62" align="center" <%=color%>><input type="checkbox" name="spiller" value="<%=rs("sid")%>"></td>
                  <td class="copy" <%=color%> width="80%"><%=rs("spillernavn")%></td>
                  <td class="copy" <%=color%>><%=rs("klasse")%></td>
                  </tr>
<%
RS.MoveNext
loop
%>
<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>

    <tr>
      <td class="copy" colspan="3">
        <hr color="#AA0000" size="1">
      </td>
    </tr>   

    <tr>
      <td class="copy" width="62" bgcolor="#EBEBEB">Holdnavn</td>
      <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="holdnavn" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>   
    <tr>
      <td class="copy" valign="top" width="62">Dit Navn</td>
      <td width="231" align="right" colspan="2"><input type="text" name="deltager" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr> 
    <tr>
      <td class="copy" valign="top" width="62" bgcolor="#EBEBEB">Din Email</td>
      <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="mail" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>
    <tr>
      <td class="copy" width="62">&nbsp;</td>
      <td width="231" colspan="2">
      <input type="submit" value="Send" name="B1">
      </td>
    </tr>
  </table>
</form>
                    </td>
                  </tr>
                </tbody>
              </table>
            </td>
            <td valign="top"><img border="0" src="../images/spacer.gif"></td>
            <td valign="top"><img border="0" src="billeder/dream_small.gif"></td>
          </tr>
        </tbody>
      </table>
    </td>
  </tr>
   
<font>
  </font>
</table>
</body>

Et eller anden sted inden denne linje:

do while not RS.EOF --------->> dette skulle være 62


Skal der være en linje som putter data ind i RS som sikkert ser ud i stil med:

Set RS = Conn.Execute(SQL-sætning)

Den SQL sætning du har brugt til at liste spillerne ud med skal stadig være der.

Lige før denne linje:

do while not RS.EOF

Skal der et par stykker ind så det bliver i stil med dette:

SQL = "select * from spillere"
Set rs=Conn.Execute(SQL)
do while not RS.EOF

Sådan, nu skal de bare vises med relation

på hvilken måde mener du??
Nu skulle du gerne kunne oprette et nyt hold, hvis tabellen i er rettet til i databasen.

Får denne fejl:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/dream/VisAlleHold.asp, line 4

SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1
-------------------------------------------------------------------------------^

med brug af denne:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1
or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) and hold.hid=1"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>

ja den opretter nu, men så skal jeg vise holdene på en side

Der er vist kommet et return ind efter hold.spiller_1 prøv sådan her:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) and hold.hid=1"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>

Men det med hold.hid=1 skal være noget andet eller listen den kun for et hold.

Så der skal en order by hold.hid ind:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%>

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/dream/VisAlleHold.asp, line 5

Er hold.spiller_1 til hold.spiller_6 af typen tal?

selvfølgelig var de ikke det :o)

Nå jeg må til og i seng. Jeg begynder faktisk at tvivle lidt på om det vil virker på den måde. Selve SQL sætning skal nok rettes til dette:

SQL = "select hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid"

ok...men jeg arbejder vider med det, også i morgen inden jeg rejser til fyn

ok :)
Jeg har lige lavet en lille test og det kan vist godt lige gå,

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid"
Set rs = conn.Execute(SQL)
do while not rs.EOG
  Reponse.Write rs("holdnavn") & " - " & rs("spiller_navn") & "<br>"
  rs.Movenext
loop
%>

EOG --> EOF  :)

http://www.hillerodgolf.dk/dream/VisAlleHold.asp

Hvis jeg skal have Holdejer ind (DeltagerNavn) så kokser den, men det behøver jeg nok ikke

Hvordan kan man sørge for at holdnavn ikke bliver gentaget hele vejen ?
http://www.hillerodgolf.dk/dream/VisAlleHold.asp

/cdc

kunne også tænke mig at få at vide hvordan man kan få et mellemrum mellem holdene, jeg får en mellem hver spiller og ikke mellem hver 6 som laver et hold

Eagleeye-> hvad skal tabellen holdspiller bruges til, den er tom nu?

Når jeg bruger din sidste version, får jeg denne 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 0x11e0 Thread 0x12a8 DBC 0x1625014 Jet'.

/dream/VisAlleHold.asp, line 3

ikke den fejl det var denne fejl:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/dream/VisAlleHold.asp, line 7

og nu denne efter at have rettet i koden:
Microsoft VBScript runtime error '800a01a8'

Object required: 'Reponse'

/dream/VisAlleHold.asp, line 7

Nu fik jeg den til at virke, men den gamle er bedre at arbejde med da den tager scoren med

Eagleeye-> hvad skal tabellen holdspiller bruges til, den er tom nu?
Den tabel skal ikke bruges hvis du bruge det med spiller_1 til spiller_6 kolonnerne i hold tabellen.

Jeg er endnu engang på vej ud af døren :(
men skriv bare nogle spørgsmål, så vil jeg svare på den senere i dag.

Til denne:
Nu fik jeg den til at virke, men den gamle er bedre at arbejde med da den tager scoren med
Gamle?

Hvis du vil liste hele holdet må du når du udskriver lige lave en sum variable hvor man summere point for hver spiller som så udskrives til sidst. Hvis du bare vil havde holdnavnet+summen af point uden spillerne listet kan du bruge SQL til at summere.

--->Hvis du vil liste hele holdet må du når du udskriver lige lave en sum variable hvor man summere point for hver spiller som så udskrives til sidst. Hvis du bare vil havde holdnavnet+summen af point uden spillerne listet kan du bruge SQL til at summere.

Ja jeg vil kun have holdet og den totale sum vist med den bedste score øverst. Men jeg er selv på vej ud af døren, skal til fyn og er først tilbage onsdag

/cdc

Så er jeg tilbage for en kort bemærkning, hvordan laver man en sql til at summere holdet så man kun viser holdnavnet + point ??

Det må blive noget med:

SQL = "select sum(spillere.point) as totalpoint, hold.holdnavn from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) group by hold.holdnavn"

Kigger på det

Jeg har testet den sidste og får denne fejl.

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/dream/VisAlleHold.asp, line 5


Mine kolonner i tabellen hedder sidsterunde og totalt.

skal disse erstatte point og totalpoint ?

totalpoint er et alias eller en ny "kolonne" som du kan udskrive fra recordsetet.

Du skal rette spillere.point til den kolonne som indeholder point så det er måske totalt?

SQL = "select sum(spillere.totalt) as totalpoint, hold.holdnavn from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) group by hold.holdnavn"

totalpoint vil være holdets totalte antal point

point i sidste runde er: sidsterunde og total point er totalt

smider du ikke et svar også, så det ikke står åbent mere, så arbejder jeg bare vider med det

ok :)

ok, så hvis du vil regne sidste rundes vinder ud er det kolonnen sidsterunde der skal summeres er det for alle runder er det kolonnen totalt som skal bruges.

det vil ikke være en sidste runde vinder men kun en service således at man kan se hvad man har fået i sidste runde. det er kun totalt som skal regnes sammen og vises ud for hold navnet.

Så er jeg tilbage ved puteren for fuldt, og arbejder vider med det: Men får denne fejl:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/dream/VisAlleHold.asp, line 58

Den er klaret nu, og endnu engang tak for hjælpen