møg fejl..

Prøv med:

holdid = Request.Querystring("id")

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = Conn.Execute(SQL)

Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"

Do While Not rs.EOF
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write rs("holdnr")
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write rs("dag")
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write rs("tider")
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write rs("instruktør")
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write rs("holdantal")
    Response.write "</td><td bgcolor='#FFF5D7'>"
    Response.write "</td><td bgcolor='#FFF5D7'>"
 
    strNavn = rs("holdnr")

    ' lav et link til person.asp med Id-værdien i URL
    strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

    Response.Write strLink

    Response.write "</td><td bgcolor='#FFF5D7'>"
    strNavn = rs("holdnr")

    ' lav et link til person.asp med Id-værdien i URL
    strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

    Response.Write strLink
    Response.write "</td></tr>"

    rs.MoveNext
Loop

Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

så laver den ikke fejlen men det kommer heller ikke noget frem.. ?

Forskellen:

- Do While Not rs.EOF...Loop:
Denne checker FØRST om rs er EOF, FØR den looper

- Do...Loop While Not rs.EOF
Denne kode kører igennem FØRST, og checker om der er flere poster BAGEFTER

:-)

Hej! Ja og nu virker det ikke - formentlig fordi din database enten er tom eller at den ikke kan finde noget ud fra dine kriterier...
Prøv det her:

<%
holdid = Request.Querystring("id")
SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = Conn.Execute(SQL)
if NOT rs.EOF then
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do until rs.EOF 
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "</td><td bgcolor='#FFF5D7'>" 
  strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
 

Response.write "</td><td bgcolor='#FFF5D7'>"
strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
  Response.write "</td></tr>"


rs.MoveNext
Loop
Response.Write "</table>"
end if
Conn.Close
Set Conn = Nothing
%>

\Dan

l_otto> Det er fordi der ikke er nogen poster, der opfylder ALLE dine kriterier.

jamen det er der altså jeg har oprettet to hold

I skal klikke der hvor der står "holdoversigt" 102 el 103

så holdene er der..
http://www.slsk.dk/tilmelding/default.asp

Vi kan bare ikke bruge det til ret meget, ude at vide eksagt hvad der er i dine to tabeller: hold og holdnavn.

ok det der kæder dem sammen er holdnavn og tabellen hold har et felt der hedder holdnavn og tabellen hold har et felt der hedder holdnavn.

Ja, det kan vi kodt konkludere ud fra SQL-sætningen - men det er dataene vi skal kende.

Er det en Access-database du bruger? Hvis det er, så foreslår jeg at du downloader den og så prøver den der SQL-sætning direkte i Access (i stedet fro at gå igennem ASP).

Et andet eksempel på fejlen:

sql = "select * from biler where maerke = 'opel' and model = 2006"

Hvis der ER en opel, men f.eks. er fra 1999 og ikke 2006, vil du få et tomt recordsset tilbage.

Hvis du bruger "Do...Loop While Not rs.EOF"-koden, vil den melde fejl.

det er mysql


http://www.slsk.dk/tilmelding/holdliste.asp


strSQL = "Select * From hold "
Set rs = Conn.Execute(strSQL)

%>

<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do




 
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"

  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
 

Response.write "</td><td bgcolor='#FFF5D7'>"
strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

Så har du vel adgang til en phpmyadmin hvor at du kan afprøve den?

Lad være med at fokusere så meget på at der må være en fejl i din ASP-kode. Det er meget mere sandsynligt at fejlen faktisk er i dine data i databasen. Specielt hvis - som du siger - at koden har virket tidligere.

Nu har du vist os hvad der er i tabellen hol - men vi ved jo stadigvæk igge hvad der er i tabellen holdnavn.

ok men hvad kan fejlene være i dataen jeg har tastet det samme som igår ?

der er kun et felt også kaldet holdnavn og der står pt. peter som holdnavn og når jeg opretter et hold vælger jeg så hvilket holdnavn hold 102 skal være under og her vælger jeg så holdnavn peter der er sådan det hænger sammen

Det bliver jo et rent gætteri når vi ikke selv kan se data...

Men det mest sandsynlige er at der mangler noget data i holdnavn-tabellen, eller at der står noget som er lidt anderledes end at det skal være.

http://www.slsk.dk/tilmelding/holdnavn.asp


strSQL = "Select * From holdnavn "
Set rs = Conn.Execute(strSQL)

%>

<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>holdnavn</td>  <tr>"
Do




 
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnavn")

  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = Conn.Execute(SQL)

i mine øjneser det ud som om du har en fejl i sin SQL sætning :)

du starter med " og slutter med " og så får du ik sidste del med... husk på alt SQL'en skal læse skal være med i ""... ergo prøv at smække & " på til sidst så tror jeg den er der... måske?

Carsten

Der er ikke nogen fejl i SQL-sætningen, og hvis der havde været det så havde fejl-beskeden nu også set anderledes ud.

her er koden nu og stadig er den sur? æv jeg forstår det ikke begge tabelle har feltet holdnavn og begge felter indeholder det samme "peter"

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = Conn.Execute(SQL)


%>
<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do




 
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"

  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
 

Response.write "</td><td bgcolor='#FFF5D7'>"
strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

prøv at se her her har eagle lige lavet den for mig i går så den virkede..

http://www.eksperten.dk/spm/710509

Prøv dette kode:

<%
SQL = "SELECT id, holdnavn FROM holdnavn"
Set rs = Conn.Execute(SQL)
%>

<tabel border = "1">
<%
Do While Not Rs.EOF
    Response.Write "<tr><td>" & rs("id") & "</td><td>" & rs("holdnavn") & "</td></tr>"
    rs.MoveNext
Loop
%>
</tabel>

<%
SQL = "SELECT holdnavn FROM hold"
Set rs = Conn.Execute(SQL)
%>

<tabel border = "1">
<%
Do While Not Rs.EOF
    Response.Write "<tr><td>" & rs("holdnavn") & "</td></tr>"
    rs.MoveNext
Loop
%>
</tabel>

http://www.slsk.dk/tilmelding/holdliste.asp

Hov, sådan:

<%
SQL = "SELECT id, holdnavn FROM holdnavn"
Set rs = Conn.Execute(SQL)
%>

<table border = "1">
<%
Do While Not Rs.EOF
    Response.Write "<tr><td>" & rs("id") & "</td><td>" & rs("holdnavn") & "</td></tr>"
    rs.MoveNext
Loop
%>
</table>

<%
SQL = "SELECT holdnavn FROM hold"
Set rs = Conn.Execute(SQL)
%>

<table border = "1">
<%
Do While Not Rs.EOF
    Response.Write "<tr><td>" & rs("holdnavn") & "</td></tr>"
    rs.MoveNext
Loop
%>
</table>

done

Det ser jo meget fornuftigt ud :^)

Hvordan så med den side hvor du har problemet på?

http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=15

holdid = Request.Querystring("id")

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = Conn.Execute(SQL)

%>
<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do
 

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tilmeldte")
  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
 

Response.write "</td><td bgcolor='#FFF5D7'>"
strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

Virker uden fejl: http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=1

id 15 findes ikke i databasen.

Det giver denne sql:

select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = 15

- og så du kan se så er der jo ikke noget holdid = 15 i holdnavn.

id udskrives fra hold, men bruges i holdnavn - det er jo nok derfor

Derimod ser:

http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=1

- meget mere fornuftig ud :^)

Enig med erikjacobsen

Du skal nok ændre:

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid

- til:

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where hold.id = " & holdid

forfanden det virker :-) alle der har været med 100000 tak I svare bare så jeg kan dele nogle point ud :-) jubiiiii

Ingen point til mig, tak.

Jeg tror at nielle skal have størstedelen af pointsne.. :-)
Ingen points til mig, tak.

Jeg ved ikke hvorfor at det har virket for dig tidliger - sandsynligvis pga. rent held :^)

ja jeg ved det heller ikke men I er da for seje, tak for kampen 12 point to Denmark.

ps. jeg holder med Finland :-)

Man kunne overveje at lave lidt navne-magi, dvs. kalde id-feltet i hold-tabellen for `hold_id` og i holdnavn-tabellen for `holdnavn_id`. Så kan man måske nemmere se om man rammer det rigtige felt. Bare et forslag ... ;)

Hmm.. nu er det kun http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=15 der virker..

tak ja helt smart er det nok ikke

Alle andre id'er giver denne fejl:

error '80020009'

Exception occurred.

/tilmelding/holdnavnliste.asp, line 29

Hvordan ser din kode ud lige nu, og hvad står der i linje 29?

men alt virker ?

Siden at du får en fejl, så er det jo ikke alt der virker :^)

Hvordan ser din kode ud lige nu, og hvad står der i linje 29?

Så der skal altså være en fejlmeddelelse..? :-)

<table><tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr> <font face="Arial" size=2>error '80020009'</font>
<p>
<font face="Arial" size=2>Exception occurred.
</font>
<p>
<font face="Arial" size=2>/tilmelding/holdnavnliste.asp</font><font face="Arial" size=2>, line 29</font>

http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=16

holdid = Request.Querystring("id")

SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where hold.id = " & holdid
Set rs = Conn.Execute(SQL)

%>
<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do
  strSQL = "select count(*) as antalTilmeldte from tilmelding where holdnr = " & rs("holdnr")
Set rsCount = Conn.Execute(strSQL)

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rsCount("antalTilmeldte")
  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  strNavn = rs("holdnr")
  if rsCount("antalTilmeldte") >= rs("holdantal") then
    strLink = "Der kan ikke tilmeldes flere til dette hold"
  else
    strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"
  end if

  Response.Write strLink
 

Response.write "</td><td bgcolor='#FFF5D7'>"
strNavn = rs("holdnr")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

  Response.Write strLink
  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

Virker ikke: http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=4

OK, det er ikke alle id'er der melder fejl.. :-)

ok der er kun to hold lige nu id 15 og id 16

l_otto> Hvorfor bruger du stadigvæk "Do...Loop While Not rs.EOF"...?
Du skal bruge "Do While Not rs.EOF...Loop".

Sådan:

if rs.bof or rs.eof then
  response.write "Der er ingen poster"
else
  Do While Not rs.EOF
    kode-her
  Loop
end if

ok jeg retter det tak :-)

holdid = Request.Querystring("id")

SQL = "SELECT hold.*, holdnavn.holdnavn FROM hold INNER JOIN holdnavn ON hold.holdnavn = holdnavn.holdnavn WHERE hold.id = " & holdid
Set rs = Conn.Execute(SQL)

Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Holdnummer</td><td bgcolor='#FFCD32'><b>Dag</td><td  bgcolor='#FFCD32'><b>Tider</td><td  bgcolor='#FFCD32'><b>Instruktør</td><td  bgcolor='#FFCD32'><b>antal</td><td  bgcolor='#FFCD32'><b>tilmelte</td><td  bgcolor='#FFCD32'><b>tilmeld dig holdet</td><td  bgcolor='#FFCD32'><b>se tilmeldte til holdet</td><td>  <tr>"
Do While Not rs.EOF
    strSQL = "SELECT count(*) AS antalTilmeldte FROM tilmelding WHERE holdnr = " & rs("holdnr")
    Set rsCount = Conn.Execute(strSQL)

    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rs("holdnr")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rs("dag")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rs("tider")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rs("instruktør")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rs("holdantal")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    Response.Write rsCount("antalTilmeldte")
    Response.Write "</td><td bgcolor='#FFF5D7'>"
 
    strNavn = rs("holdnr")
    If rsCount("antalTilmeldte") >= rs("holdantal") Then
        strLink = "Der kan ikke tilmeldes flere til dette hold"
    Else
        strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"
    End If

    Response.Write strLink
    Response.Write "</td><td bgcolor='#FFF5D7'>"
    strNavn = rs("holdnr")

    ' lav et link til person.asp med Id-værdien i URL
    strLink = "<b><a href='tilmeldingsliste.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"

    Response.Write strLink
    Response.Write "</td></tr>"

    rs.MoveNext
Loop

Response.Write "</table>"

Conn.Close
Set Conn = Nothing
%>

nielle> Uden IF-sætningen udskrives der vel ikke en brugervenlig fejlmeddelese..?

Korrekt

Jeg siger ikke at der absolut skal stå "Der er ingen poster".. :-)

Den eneste grund til at det ikke er med i min kode er at jeg var igang med at beautifisere koden mens I andre postede løs :^)

måske:

if rs.bof or rs.eof then
  response.write "<tr><td colspan='8'>Der er ingen poster</td></tr>"

Hahahaha! beautifisere! Cool.. :-)

Eller bare:

If rs.eof Then
  response.write "<tr><td colspan='8'>Der er ingen poster</td></tr>"

Ja, da det enten er bof OG eof, eller hverken bof ELLER eof.. :-)

når man tilmelder sig får man en mail: men jeg kan ikke få den til at skrive holdnr tider dag instruktøt den skriver kun holdnavn? i mailen man får

hvordan probber jeg dem ind?
id = Request.Form("id")
SQL = "select * from hold where id = " & id
set rs = Conn.Execute(SQL)
holdnavn = rs("holdnavn")
holdnummer = rs("holdnr")

strSQL = "Insert into tilmelding (efternavn, adresse, postnr, fby, telefon, email, fornavn, dato, holdnr) values('" & Request.Form("efternavn") & "','" & Request.Form("adresse") & "','" & Request.Form("postnr") & "','" & Request.Form("fby") & "','" & Request.Form("telefon") & "','" & Request.Form("email") & "','" & Request.Form("fornavn") & "','" & Request.Form("dato") & "','" & holdnummer & "'  )"
conn.execute(strSQL)

'Opdater antal tilmeldte i hold tabellen

SQL = "update hold set tilmeldte = tilmeldte + 1 where id = " & id
Conn.Execute(SQL)


'Kode som sender mailen her:

if Request.Form("adresse") <> "" then
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  ' Her sættes afsender navn og e-mail adresse
  Mailer.FromName  = "Afsenders navn"
  Mailer.FromAddress= "webmaster@slsk.dk"

  ' Afsenders mailserver RETTES TIL
  Mailer.RemoteHost = "mail.slsk.dk"

  ' Her sættes modtager navn og e-mail adresse
  Mailer.AddRecipient "" & Request.Form("efternavn"), Request.Form("email")

  ' Her sættes overskriften på mailen
  Mailer.Subject    = "Du er tilmeldt hold " & holdnr

  ' Her sættes selve teksten til mailen
  Mailer.BodyText  = "Hej med dig" & VbCrLf & "du er tilmeldt hold " & holdnavn

  ' Send e-mail og skriv status
  if Mailer.SendMail then
    Response.Write "Mailen er afsendt..."
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if

  ' Fjern objekt igen
  Set Mailer = Nothing
end if


response.write "Du er tilmeldt holdet " & holdnavn & " og du modtager en email hvis du har angivet en email adresse."

response.End 'stopper koden her
end if


'Viser formen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={MySQL};SERVER=mysql.slsk.dk;" &_
"DATABASE=slsk;UID=slsk;PWD=XQfj8646;"
Conn.Open DSN


strSQL = "Select * From hold Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

%>

Holdnavn: <%=rs("holdnavn")%>
<BR><BR>
Instruktør:<%=rs("instruktør")%>
<BR><BR>
Holdnummer:<%=rs("holdnr")%>
<BR><BR>
Tider:<%=rs("tider")%>
<BR><BR>
Dag:<%=rs("dag")%>
<BR><BR>
Holdantal:<%=rs("holdantal")%>
<BR><BR>
Tilmeldte: <%=rs("tilmeldte")%><BR><BR>


<BR><BR><BR><hr>

<B>Tilmeldingsblanket</B>
<BR><BR><BR>


<form action="tilmelding.asp" method="post">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

efternavn: <input type="text"  name="efternavn" size="17"><BR>
<BR><BR>
adresse: <input type="text"  name="adresse" size="17"><BR>
<BR><BR>
postnr: <input type="text"  name="postnr" size="17"><BR>
<BR><BR>
by: <input type="text"  name="fby" size="17"><BR>
<BR><BR>
telefon: <input type="text"  name="telefon" size="17"><BR>
<BR><BR>
email:  <input type="text"  name="email" size="17"><BR>
<BR><BR>
fornavn: <input type="text"  name="fornavn" size="17"><BR>
<BR><BR>
fødelsesdato:  <input type="text"  name="dato" size="17"><BR>
<BR><BR>

<input type="submit" value="tilmeld" name="send" class="knap" >
</form>
</BODY>

Egentlig burde det vel være bbof (Before BOF) og aeof (After EOF).. :-)

Du skal jo bruge de rigtige variablenavne:

Mailer.Subject = "Du er tilmeldt hold " & holdnr

- til:

Mailer.Subject = "Du er tilmeldt hold " & holdnummer

- osv.

tak ja jeg er lidt træt .. se lige de finner

De andre oplysninger - f.eks. tider - henter du ud af databasen, men du har bare ikke lavet noget kode som inkludere dem i din mail-tekst.

(PS: go nat for i dag)

nemlig tak og god nat

nu har jeg lidt problemer igen med en tilmeldingsliste..

når jeg klikker på holdnr skal den vise alle dem der har tilmeldt sig hodlnr: 102 f.eks  men den laver samme fejl som første problem, jeg kan bare ikke helt finde ud af hvor jeg skal rettet i koden..

strSQL = "Select * From tilmelding Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

%>
<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td><td>  <tr>"
Do
 

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("email")
  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  Response.write "</td></tr>"


rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing

Du har nu adskillige gange fået at vide at du ikke skal løbe et resultsæt igennem på den måde - i dette spørgsmål, og i hvert fald i et andet. Hvorfor bliver du ved?

Men dit problem er vel at det ikke er id-feltet i tilmelding, der indeholder holdnummeret.

ja det er mit problem, jeg skal nok rettet det andet jeg beutificere det senere ligesom design osv bliver pænere...

men ja hvordan får jeg den til at forstå at id og feltet holdnr skal høre sammen ?

Hvorfor ikke gøre det rigtigt med det samme, det der med "do while" ?  Jeg kunne forestille mig, at de dygtige mennesker, der har brugt tid på at fortælle dig det, kunne blive træt af at hjælpe, når det tilsyneladende ingen forskel gør.

Men til det andet: du må kigge på hvad du har puttet i tabellen tilmelding. Og hvis du vil have os til at hjælpe, så lad os kigge med.

her kan du se hvor mange der er tilmeldt holdnr 102 http://www.slsk.dk/tilmelding/tilmeldingsliste.asp

og det er det den skal vise når man klikker på linket for at se tilmeldte

Så skal du vel bare kalde din side med

    etellerandet.asp?hold=102

og

    strSQL = "Select * From tilmelding Where `se holdnr` = " & Request.Querystring("hold")

hvis feltet altså hedder `se holdnr`

tak  nu er den der... vil du have lidt point.? :-)

og er det så den rigtige måde at løbe det igennem:

<%
Response.write "<table>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td> <td  bgcolor='#FFCD32'><b>se holdnr</td><td> <tr>"
Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("email")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

Nej tak, ingen point.
Og det med din "do while" ser jo ligefrem smukt ud nu ;)

ja det bliver rettet til over det hele nu :-)

loop kan jeg ikke få til at virke på denne side:

<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td> <td  bgcolor='#FFCD32'><b>se holdnr</td><td> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet til dette holdnavn!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "</td></tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

fejl:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/tilmelding/tilmeldingsliste.asp, line 0

der er ikke oprettet nogle poster så den skal skrive ingen hold :-)

Må vi se fra sql-sætningen og frem ?

sorry.. jeg var lige så glad for det virker herre godt på alle de andre sider :-)



strSQL = "Select * From tilmelding Where `holdnr` = " & Request.Querystring("id")

Set rs = Conn.Execute(strSQL)

%>

<FONT SIZE="2" COLOR=""><B>Oversigt over tilmeldinger til holdnr :</FONT> <% Response.write rs("holdnr")%><BR><BR>


<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td> <td  bgcolor='#FFCD32'><b>se holdnr</td><td> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet til dette holdnavn!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "</td></tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>

Fejl opstår her:

<FONT SIZE="2" COLOR=""><B>Oversigt over tilmeldinger til holdnr :</FONT> <% Response.write rs("holdnr")%><BR><BR>

Du bruger rs("holdnr") uden først at checke om der er poster..! :-)

hvad skal jeg gøre så ?

<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td> <td  bgcolor='#FFCD32'><b>se holdnr</td><td> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet til dette holdnavn!</b><br><br>"
else
%>
<FONT SIZE="2" COLOR=""><B>Oversigt over tilmeldinger til holdnr :</FONT> <% Response.write rs("holdnr")%><BR><BR>
<%
  Do While Not rs.EOF
    ...
%>

eller:

<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>Efternavn</td><td bgcolor='#FFCD32'><b>adresse</td><td  bgcolor='#FFCD32'><b>postnr</td><td  bgcolor='#FFCD32'><b>by</td><td  bgcolor='#FFCD32'><b>telefon</td><td  bgcolor='#FFCD32'><b>email</td><td  bgcolor='#FFCD32'><b>fornavn</td><td  bgcolor='#FFCD32'><b>se fødselsdato</td> <td  bgcolor='#FFCD32'><b>se holdnr</td><td> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet til dette holdnavn!</b><br><br>"
else
response.write "<FONT SIZE='2' COLOR=''><B>Oversigt over tilmeldinger til holdnr :</FONT> " & rs("holdnr") & "<BR><BR>"

  Do While Not rs.EOF
    ...

ok men "<FONT SIZE='2' COLOR=''><B>Oversigt over tilmeldinger til holdnr :</FONT> " & rs("holdnr") & "<BR><BR>"
skal så øverst over tabelen.. hvordan får jeg den der op ?

"<FONT SIZE='2' COLOR=''><B>Oversigt over tilmeldinger til holdnr :</FONT> " & Request.Querystring("id") & "<BR><BR>"

ok der var den Tak ... nogle der vil have point..?

Nej tak fra mig.

Heller ikke her.

jeg har lige en fræk en til .-)

der er et max af tilmeldte på et hold f.es 5 når tilmeldinger er nået dertil skal den skrive at der ikke er flere der kan tilmelde sig jeg har prøvet med :


if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet til dette holdnavn!</b><br><br>"
else
  Do While Not rs.EOF
  strSQL = "select count(*) as antalTilmeldte from tilmelding where holdnr = " & rs("holdnr")
Set rsCount = Conn.Execute(strSQL)

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dag")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("tider")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("instruktør")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdantal")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rsCount("antalTilmeldte")
  Response.write "</td><td bgcolor='#FFF5D7'>"
 
  strNavn = rs("holdnr")
  if rsCount("antalTilmeldte") >= rs("holdantal") then
    strLink = "Der kan ikke tilmeldes flere til dette hold"
  else
    strLink = "<b><a href='tilmelding.asp?id=" & rs("Id") & "' target='_top'>" & strNavn & "</a>"
  end if

  Response.Write strLink

men som I kan se her kan man sagtens tilmelde flere på holdet .

http://www.slsk.dk/tilmelding/holdnavnliste.asp?id=109

hvorfor virker den ikke ?

Hvad er felttypen for holdantal ?

Og så iøvrigt bør du altid kun aflæse felter een gang. Dvs prop en

  antaltilmeldte=rsCount("antalTilmeldte")

lige efter din execute, og så brug efterfølgende: antaltilmeldte.
Husk også at rydde op i alle dine recordsets efter brug

Det samme gælder holdantal fra rs - det er ikke sikkert det er problemet, men bare for en ordens skyld.

felttype = varchart

Du skal ikke opbevare et tal i et varchar (eller char) felt. Det skal være et int-felt - så vil sammenligningen sikkert virke.

tak...

jamen så må point tilbage til mig igen :-)

l_otto> Nu har du falktisk givet dem til mig (20/05-2006 23:26:29), men hvis du gerne vil have dem tilbage så skal jeg da gerne oprette et retur-spørgsmål med dem?

he he he har jeg ja jeg kunne heller ikke se hvor jeg kunne svare he...

ved du noget om cdonts?

når jeg sender mine tilmeldinger kommer de til at se sådan ud når jeg modtager dem hvorfor?

333
X-Mailer: Chili!Soft Mail Control
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary=CS_MAIL_Part_Boundary_10301998

This is a multi-part message in MIME format.

--CS_MAIL_Part_Boundary_10301998
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

K=E6re sdf

Du er tilmeldt dig:

Holdnavn: Puslinge
Holdnummer: 333
Tilmeldtes navn: dsd
Ugedag: Tirsdag
Starttid: 15.30
Sluttid: 17.15
Instrukt=F8r:  J=F8rgen Hansen
Pris:  350.- + kr. 100 pr vosken

Tak for din tilmelding, du vil modtage et girokort snarest. Holdene start=
er i uge 35, vi gl=E6der os til at se dig/jer

Med venlig hilsen slsk.dk.=
--CS_MAIL_Part_Boundary_10301998

Hmm, nej det er ikke lige et af de områder jeg har mest kendskab til. Desværre. :^|

jeg skal lige høre hvor hvordan jeg slettet en fra tabel "venteliste" ind i formen det skal være det id jeg henter ind..

<%
SQLserveradr="localhost" 
SQLdatabase="_dk"
SQLlogin="_dk"
SQLpassword=""
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr

strSQL = "Select * From venteliste Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
%>
<BR>

<B>Tilmeldingsblanket</B>
<BR>

<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
  err = '';
 

  if (theForm.adresse.value == '') {
    err += "Adressen mangler\r";
  }
  if (theForm.postnr.value == '') {
    err += "Postnr mangler\r";
  }
  if (theForm.fby.value == '') {
    err += "By mangler\r";
  }
  if (theForm.telefon.value == '') {
    err += "Telefon mangler\r";
  }
  if (theForm.fornavn.value == '') {
    err += "Svømmers mangler\r";
  }
  if (theForm.dato.value == '') {
    err += "Fødelsdato mangler\r";
  }
  if (theForm.email.value == '') {
    err += "E-mail mangler\r";
  } else {
    ema = theForm.email.value;
    pos1 = ema.indexOf('@',0);
    pos2 = ema.indexOf('.',pos1);
    str = ema.substring(ema.length-1,ema.length+1);
    if (pos1 < 0 || pos2 < 0 || str == '.') {
    theForm.email.style.color = '#FFFFFF';
    theForm.email.style.backgroundColor = '#FF0000';
    err += "E-mail ikke gyldig\r";
  }
}
if (err != ''){
  alert('Følgende felter mangler at blive udfyldt:\r' + err);
  return (false);
} else {
  return (true);
}
} 
</script>
<BR><B>
<form action="tilmelding.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

<TABLE width="370">
<TR>
    <TD>1. Forældres navn: </TD>
    <TD><input type="text" name="efternavn" value="<%=rs("efternavn")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>1. Forældres Fødselsdato </TD>
    <TD><input type="text" name="forfos1" value="<%=rs("forfos1")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres navn :</TD>
    <TD><input type="text" name="for2" value="<%=rs("for2")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres fødselsdato :</TD>
    <TD><input type="text" name="forfos2" value="<%=rs("forfos2")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Svømmerens navn:</TD>
    <TD><input type="text" name="fornavn" value="<%=rs("fornavn")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Fødselsdato:</TD>
    <TD> <input type="text" name="dato" value="<%=rs("dato")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
    <TD>Adresse:</TD>
    <TD><input type="text" name="adresse" value="<%=rs("adresse")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Postnr:</TD>
    <TD><input type="text" name="postnr" value="<%=rs("postnr")%>" class="Formindhold" size="4"></TD>
</TR>
<TR>
    <TD>By:</TD>
    <TD><input type="text" name="fby" value="<%=rs("fby")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Telefon:</TD>
    <TD><input type="text" name="telefon" value="<%=rs("telefon")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Email:</TD>
    <TD><input type="text" name="email" value="<%=rs("email")%>" class="Formindhold" size="30"></TD>
</TR>

</TABLE>

<BR><BR><center>
<input type="submit" value="Flyt til tilmeldte" name="send" class="knap">
</form>
</td>

> jeg skal lige høre hvor hvordan jeg slettet en fra tabel "venteliste" ind i formen det skal være det id jeg henter ind..

Kan du ikke lige prøve at formulere den en gang til? For mig er det i hvertfald temmeligt sort snak ;^)

jo man er på venteliste og nu skal man på holdet fordi en har meldt fra.. godt så tager jeg han fra ventelisten og sender en tilmelding.. og i samme huk skal han så slettes fra ventelisten... det ville være smart hvis man kunne sætte noget delete id from venteliste når man trykker på knappen

Din form submitter til scriptet "tilmelding.asp" så det er *der* at personen skal slettes fra ventelisten. Jeg ved ikke om det ovenstende kode er for tilmelding.asp eller om det er noget andet?

Den stump kode der skal udføres i tilmelding.asp ser sådan her ud:

strSQL = "DELETE FROM venteliste WHERE id = " & Request.Form("id")
DataConn.Execute(strSQL)

ok men hvor i koden skal jeg sætte den ind ?

Nu har jeg jo ikke set koden for "tilmelding.asp" så det er lidt svært at svare på det spørgsmål.

Men det skal sættes ind i scriptet sån' nogenlunde lige efter at du har udført den INSERT INTO sætning som indsætter personen i hold-tabellen.