09. januar 2005 - 14:26Der er
6 kommentarer og 1 løsning
Vis tråde med samme værdi i kolonnen Identifikation
Jeg har en side, hvor jeg viser en bestemt tråd:
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/afstemning.mdb") Conn.Open DSN strSQL = "Select * From overskrifter where ID =" & Request.querystring("ID") Set rs = Conn.Execute(strSQL) Do Response.write rs("Titel") rs.MoveNext Loop While Not rs.EOF Conn.Close Set Conn = Nothing %>
I denne tråd findes en kolonne som hedder Identifikation med fx værdien "1". Nu vil jeg på samme side vise alle andre tråde som har samme værdi i kolonnen Identifikation. Nedenunder ovenstående script har jeg indført følgende:
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/afstemning.mdb") Conn.Open DSN strSQL = "Select * From overskrifter where Identifikation" Set rs = Conn.Execute(strSQL) Do Response.write rs("Titel") rs.MoveNext Loop While Not rs.EOF Conn.Close Set Conn = Nothing %>
- Men så viser den bare alle tråde som har en eller anden værdi i kolonnen Identifikation og ikke kun dem med værdien "1".
Mit spørgsmål er så: Hvordan kan jeg lave det så den kun viser de tråde som har samme værdi i Identifikation som den der bliver vist i øverste script?
Jeg kan ikke anvende de to ovenstående eksempler fordi:
1. Identifikation=1 kan kun anvendes hvis jeg på forhånd kender nummeret... 2. Request.querystring("ID") kan ikke anvendes fordi klikker jeg ind på en tråd, vil den vise identifikations nummeret for trådens ID, dvs. ikke det samme som den oprindelige (dvs. værdien 1 i dette eksempel) Det vil kun virke til den oprindelige tråd....What to do????
Jamen når du laver en "select * from overskrifter" har du jo feltet der..
strSQL = "Select * From overskrifter where Identifikation" Set rs = Conn.Execute(strSQL) Do Response.write rs("Titel")
'her: response.write rs("identifikation")
'dvs du kan åbne et nyt recordset udfra den værdi du får: strSQL = "Select * From overskrifter where Identifikation="&rs("identifikation") Set rs2 = Conn.Execute(strSQL)
'.... vis det andet recordset med de tilhørende poster
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.