link virker ikke, for fejl på siden der linkes til

får du oz fejl på denne?

SQL = "select top 6 hold.holdnavn, hold.DeltagerNavn, spillere.sid 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 desc"

tester, men skal der ikke noget i rettning af * FROM match WHERE hid = " & Request("holdnavn") ind, har bare testet til hudløshed

som koden er nu finder den det sidste registrerede hold, den skal linke til holdet, og den sidste kode mm12010 virker igge du kan selv se på linket

prøv at hive dem ud med en ID istedet for denne:
http://www.hillerodgolf.dk/dream/VisHold.asp?hid=Helles helte

da din querystring ikke er gyldig eller hvordan jeg nu skal forklare det....
du har også en querystring som du kalder: gram´s
ugyldige tegn.....

kun et forslag :)

det var den eneste måde jeg kunne få linket at fungere på

i hvilken tabel har du dit spillernavn liggende?

linie 24:  response.write "<td>" & rs("spillernavn") & "</td>"

i tabellen spillere, og der står de i kolonnen spillernavn

prøv at rette din sql til:

SQL = "select top 6 hold.holdnavn, hold.DeltagerNavn, spillere.spillernavn, spillere.sidsterunde, spillere.totalt 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 desc"

Så har jeg sat de 3 felter ind som du bruger fra spillere, hvis det giver fejl i din sql, så er det der en fejl i et af feltnavnene..

siden vis hold ser således ud når jeg henter det sidste registrerede hold: http://www.hillerodgolf.dk/dream/VisHold.asp

problemet er når jeg skal linke til det viser den jo bare det sidste hold, og jeg har så prøvet som en gal at få denne ind på en eller anden måde.

* FROM hold WHERE hid = " & Request("holdnavn")

men kan ikke se hvor den skal ind, har ikke prøvet at lave relationer før og min asp viden er ikke så stor

ellebeak--> din kode virker på samme måde, men henter det sidste registrerede hold og ikke den som "hid" passer til

det er nok fordi at din hid indeholder ulovlige tegn.... der må være en anden måde at vi kan få fat i dem på...

SQL = "select top 6 hold.*, 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 desc"

og denne?

select top 6 hold er de sidste 6 spillere som er registreret og ikke den som skal vises med "hid" hvor man normal bruger denne på side 2 i når man linker, * FROM hold WHERE hid = " & Request("holdnavn"), og så vidt jeg kan se skal denne hid = " & Request("holdnavn") ind et sted, men kan ikke just se hvor

det er jo et tekstfelt som vi checker på, så du skal huske pingerne: '

* FROM hold WHERE hid = '" & Request("holdnavn") & "'"

og så skal den vel se sådan ud:

SQL = "select top 6 hold.*, spillere.* from spillere, hold where * FROM hold WHERE hid = '" & Request("holdnavn") & "'""

bare for at prøve :)

jeg var vist lidt for hurtig... sorry:

SQL = "select top 6 hold.*, spillere.* from spillere, hold WHERE hold.hid = '" & Request("holdnavn") & "' order by hold.hid desc"

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

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

/dream/VisHold.asp, line 5

SQL = "select hold.*, spillere.* from hold, spillere WHERE hold.hid = '" & Request("holdnavn") & "' order by hold.hid desc"

skal denne:  Request("holdnavn")

forresten ikke hedde:  Request.Querystring("hid")

samme fejl....

så går vi helt ned og forsøger at bygge den op derfra:

SQL = "select * from hold WHERE hold = '" & Request("holdnavn") & "' order by hid desc"

du skal nok lige udkommentere de steder hvor spillertabellen bliver hevet ind....

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

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

/dream/VisHold.asp, line 5

ny kode ser således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select * from hold WHERE hold = '" & Request("holdnavn") & "' order by hid desc"
Set rs = conn.Execute(SQL)
response.write "<table>"
tmpHold=""
do while not rs.EOF
  'response.write "<tr><td>"
  'if tmpDeltagerNavn<>rs("DeltagerNavn") then
    'tmpDeltagerNavn = rs("DeltagerNavn")
    'response.write tmpDeltagerNavn
  'else
    'response.write "&nbsp;"
  'end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "&nbsp;"
  end if
  response.write "</td>"
  'response.write "<td>" & rs("spillernavn") & "</td>"
  'response.write "<td>" & rs("sidsterunde") & "</td>"
  'response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
%>

holdet = request.querystring("holdnavn")

if holdet <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select * from hold WHERE hold = '" & holdet & "' order by hid desc"
Set rs = conn.Execute(SQL)
response.write "<table>"
tmpHold=""
do while not rs.EOF
  'response.write "<tr><td>"
  'if tmpDeltagerNavn<>rs("DeltagerNavn") then
    'tmpDeltagerNavn = rs("DeltagerNavn")
    'response.write tmpDeltagerNavn
  'else
    'response.write "&nbsp;"
  'end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "&nbsp;"
  end if
  response.write "</td>"
  'response.write "<td>" & rs("spillernavn") & "</td>"
  'response.write "<td>" & rs("sidsterunde") & "</td>"
  'response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
else
response.write "Der er ingen querystring...."
end if

http://www.hillerodgolf.dk/dream/VisHold.asp?hid=Gram´s

denne er bedre: http://www.hillerodgolf.dk/dream/VisHold.asp?hid=GImports

querystring hedder: hid=GImports

så scriptet skal ændres til:

holdet = request.querystring("hid")

if holdet <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "select * from hold WHERE hold = '" & holdet & "' order by hid desc"
Set rs = conn.Execute(SQL)
response.write "<table>"
tmpHold=""
do while not rs.EOF
  'response.write "<tr><td>"
  'if tmpDeltagerNavn<>rs("DeltagerNavn") then
    'tmpDeltagerNavn = rs("DeltagerNavn")
    'response.write tmpDeltagerNavn
  'else
    'response.write "&nbsp;"
  'end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "&nbsp;"
  end if
  response.write "</td>"
  'response.write "<td>" & rs("spillernavn") & "</td>"
  'response.write "<td>" & rs("sidsterunde") & "</td>"
  'response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
else
response.write "Der er ingen querystring...."
end if

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

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

/dream/VisHold.asp, line 8

hvordan ser felterne ud i hold... hvaffor nogen er der og hvilken type er de?

hid/autonummerering | holdnavn/tekst | DeltagerNavn/tekst | spiller_1/tal | spiller_2/tal | ..... spiller_6/tal

beskrivelse:
kolonnenavn/type

DERFOR :)
Din sql skal se ud som følger:

SQL = "select * from hold WHERE holdnavn = '" & holdet & "' order by hid desc"

men derfor vil det stadig ikke virke, når du bruger holdene med de ugyldige tegn... det bedste er at tage dem via id'en....

http://www.hillerodgolf.dk/dream/VisHold.asp?hid=Neumann

så er det spillerne so ligger i en anden tabel

så langt så godt :)

SQL = "select hold.* from hold, spillere.* from spillere WHERE hold.holdnavn = '" & holdet & "' order by hold.hid desc"

får en fejl med den sidste

jeg bliver nødt til at se fejlen for at hjælpe dig :)

SQL = "select hold.*, spillere.* from hold, spillere WHERE (hold.holdnavn = '" & holdet & "') order by hold.hid desc"

Hvordan er din spillertabel bygget op og hvordan skal den relateres....

du får en masse &nbsp;

sid | spillernavn | klasse

hvordan skal de relateres med den holdtabellen, samt hvilke typer er det...

Prøv i alle de response.write "&nbsp;"

Så skriv forskellige værdier ind, så vi ved hvor den fejler...

response.write "Værdi 1"
response.write "Værdi 2"
and so on.... så vi får et output vi kan bruge....

har du mistet modet ;)

nejda men skulle lige ud og hente bil på værksted og børn i børnehaven

i hold tabellen relaterer spiller_1 hvor der ligger et tal,  til spillernavns sid, sid er spillerens id

som sagt :)

Kommentar: and_
27/04-2004 14:07:04 Prøv i alle de response.write "&nbsp;"

Så skriv forskellige værdier ind, så vi ved hvor den fejler...

response.write "Værdi 1"
response.write "Værdi 2"
and so on.... så vi får et output vi kan bruge....

kigger på det efter jeg har spist

nu er spillernavn og sidsterunde vist og den lister alle, ikke kun de seks spillere som er valgt til holdet

hvordan ser koden ud?

du har ikke udfyldt alle dine &nbsp; med værdier....
det er lidt svært at debugge, når vi ikke har noget at gå efter...

sådan, koden:

<%
holdet = request.querystring("hid")

if holdet <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")
SQL = "select hold.*, spillere.* from hold, spillere WHERE (hold.holdnavn = '" & holdet & "') order by hold.hid desc"
Set rs = conn.Execute(SQL)
response.write "<table>"
tmpHold=""
do while not rs.EOF
  response.write "<tr><td>"
  if tmpDeltagerNavn<>rs("DeltagerNavn") then
  tmpDeltagerNavn = rs("DeltagerNavn")
  response.write tmpDeltagerNavn
  else
  response.write "&nbsp;"
  end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "&nbsp;"
  end if
  response.write "</td>"
  response.write "<td>" & rs("spillernavn") & "</td>"
  response.write "<td>" & rs("sidsterunde") & "</td>"
  response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
else
response.write "Der er ingen querystring...."
end if
%>

hvad nu hvis vi lige prøver at udskrive vores sql:

<%
holdet = request.querystring("hid")

if holdet <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")
SQL = "select hold.*, spillere.* from hold, spillere WHERE (hold.holdnavn = '" & holdet & "') order by hold.hid desc"
Set rs = conn.Execute(SQL)
response.write sql & "<br>"
tmpHold=""
response.write "<table>"
do while not rs.EOF
  response.write "<tr><td>"
  if tmpDeltagerNavn<>rs("DeltagerNavn") then
  tmpDeltagerNavn = rs("DeltagerNavn")
  response.write tmpDeltagerNavn
  else
  response.write "Værdi 1"
  end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "Værdi 2"
  end if
  response.write "</td>"
  response.write "<td>" & rs("spillernavn") & "</td>"
  response.write "<td>" & rs("sidsterunde") & "</td>"
  response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
else
response.write "Der er ingen querystring...."
end if
%>

og sidst men ikke mindst...
et styk ny sql:

SQL = "select top 6 hold.*, spillere.* from hold, spillere WHERE (hold.holdnavn = '" & holdet & "') order by hold.hid desc"

http://www.hillerodgolf.dk/dream/VisHold.asp?hid=Neumann

jeg skal nok smide nogle flere points i, da jeg nu fattar nada af hvad der foregår

hvis du har msn så skriv lige på sebastian_uno_trets #snabelfætter# hotmail #punktering# com

vi skal da nok løse det ;)

Har ikke så meget tid i aften, vi har gæster, så jeg snyder mig bare til lidt fritid ved pc'ern

ahhhh, men hvis du halyst kan du da sendemig scripts'ene så skal jeg se på hvad jeg kan koge sammen....

de skal sendes til: anders #snabela# tatdata #dot# dk

Prøv at lave din SQL om til:


SQL = "select top 6 hold.holdnavn, hold.DeltagerNavn, 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.holdnavn = '" & holdet & "' order by hold.hid desc"

order by hold.hid desc  kan vel i princippet udelades hvis der ikke kan findes to hold med samme navn.

umiddelbart skal ikke hold.hid med da den kun skal vise et hold, så skulle det være noget med order by spillernavn desc i stedet så det står alfabetisk, tester det når jeg kommer hjem fra arbejde.

eagleeye-->har lige testet din, og den viser intet siden er blank, ej heller en fejl viser den

prøv at koble kriterierne til 1 ad gangen...

SQL = "select top 6 hold.*, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1) and hold.holdnavn = '" & holdet & "' order by hold.hid desc" osv derudaf...

den skriver kun: <table></table>

den finder jo ihvertfald ikke noget der passer sammen...

kan du ikke tage et dumb af de 2 tabeller (læg dem ind i word, excel, billedefil) og sende dem til mig....

Det hjælper lidt hvis jeg med egne øjne kan se hvad der foregår...

er det databasen du mener ?

ja.... det er bl.a. så jeg kan se relationer osv.... scriptet ville jeg da heller ikke sige nej til...

jo mere information, jo bedre hjælp kan man give :)

database sendt.... hvilket script vil du have ?

dem der er relevante i denne relation :)

min outlook blokerede for filen.... du skal lige zippe den :)

sendt

jeg har fundet din fejl:
vishold.asp skal se sådan ud:

<%
'du har glemt at definere variablen holdet ;)
holdet = request.querystring("hid")

'Erklærer dataforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb")
SQL = "select top 6 hold.*, spillere.* from spillere, hold where "
sql = sql & "(spillere.sid = hold.spiller_1 or spillere.sid=hold.spiller_2 "
sql = sql & "or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 "
sql = sql & "or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) "
sql = sql & "and hold.holdnavn = '" & holdet & "' "
sql = sql & "order by hold.hid desc"

Set rs = conn.Execute(SQL)

response.write "<table>"
tmpHold=""
do while not rs.EOF
  response.write "<tr><td>"
  if tmpDeltagerNavn<>rs("DeltagerNavn") then
    tmpDeltagerNavn = rs("DeltagerNavn")
    response.write tmpDeltagerNavn
  else
    response.write "&nbsp;"
  end if
  response.write "<tr><td>"
  if tmpHold<>rs("holdnavn") then
    tmpHold = rs("holdnavn")
    response.write tmpHold
  else
    response.write "&nbsp;"
  end if
  response.write "</td>"
  response.write "<td>" & rs("spillernavn") & "</td>"
  response.write "<td>" & rs("sidsterunde") & "</td>"
  response.write "<td>" & rs("totalt") & "</td>"
  response.write "</tr>"
  rs.Movenext
loop
response.write "</table>"
%>

smukt

smider du ikke lige et svar også

jeg svarer :)

Kun glad for at hjælpe :)
det er herligt med en besværlig nød en gang imellem :)

smuk SQL sætning :)

smed lige 40 oveni for smukt arbejde

eagleeye roser mig... *snøft*... mit script-forbilede (foruden olebole ;) ) giver ros til mig...

Nå, seriøs igen :)
det skal jo være overskueligt at kigge på :)

hmmm se evt kommentar:  28/04-2004 23:17:15

tak tak :)

heheh en lang.... halleluja for scrollbars