jobforum - jobbeskrivelse skal komme frem under overskrift?

Jeg er ved at lave et jobforum, men er lidt utilfreds med måden teksten er opstillet på.

Jeg skriver joboverskriften ud som links i en lang column, men vil gerne have at beskrivelsen af jobbet skal komme frem under overskriften, når der klikkes på tilhørende link. Beskrivelsen skal så forsvinde, når man klikker på en ny overskrift.

Altså opstillet lidt som ekspertens egen side (ved søgeresultater - med/uden udrag).

Jeg har haft en del bøvl med at placere koden rigtigt. Her er jeg gået i stå:


  <%
'Åben en forbindelse til databasen
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open Server.Mappath("..\db.mdb")

'Find alle overskrifter på alle siderne
sql="select ID, Overskrift from job"
set rsOverskrift=server.createobject("adodb.recordset")
rsOverskrift.open sql, conn

'Indlæs overskrift fra querystring
job=request.querystring("overskrift")

'Opbyg en SQL sætning, der henter info omkring siden og den bruger der sidst har rettet den
sql="SELECT job.ID, job.Overskrift, job.Tekst, job.email, job.Tlf, job.mobtlf,job.Dato, Bruger.username " &_
            "FROM Bruger INNER JOIN job ON Bruger.ID = job.brugernr " &_
            "where Overskrift='" & job & "'"

'Udfør SQL sætningen
Set rsjob = Server.CreateObject("ADODB.Recordset")
rsjob.Open SQL, Conn

%>

bla.bla

<%
'List alle overskrifterne som links
do while not rsOverskrift.eof
response.write "<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?Overskrift=" & rsOverskrift("overskrift") & "' class='two'>" & rsOverskrift("overskrift") & "</a><br>"

  'Vis beskrivelsen
  Response.Write "<b><font size='1'>" &_
                  "</b>" &"oprettet " & rsjob("Dato") &"<br><br>"&"</font>"  &_
                  Replace(rsjob("Tekst"), vbCrLf, "<br>") &_
                  "<br><br>"
                 
  rsOverskrift.movenext
  loop

%>