Ja, det hjalp lidt, men nu vises der ingen poster. Jeg kan desværre ikke close connection det nægtes. jeg vedlægger lige lidt kode til gennemsyn: <% ' Holdet dim teamnavn dim teamid 'Creating the Recordset Object Set rs = Server.CreateObject("ADODB.RecordSet")
'Creating your SQL Resuest as a string strSQL = "SELECT * FROM coaches ORDER BY coachtype DESC" teamSQL = "SELECT * FROM teams"
'Open your recordset rs.Open teamSQL, strDSN, 1 Do While Not rs.EOF if rs("teamid") = CInt(request.querystring("team")) then teamnavn = rs("Teamname") teamid = rs("teamid") end if rs.MoveNext Loop rs.Close set rs = nothing Response.Write "<div align=center>" Response.Write "<center>" Response.Write "<table border=0 width='100%'>" Response.Write "<tr>" Response.Write "<td colspan=5 align=center width=730><b><font face=Verdana font-size: 10; color=#0000FF>TRÆNERE FOR " & teamnavn & "</font></b></td>" Response.Write "</tr>" Response.Write "<tr>" Response.Write "<td width=205> </td>" Response.Write "<td width=35> </td>" Response.Write "<td width=223> </td>" Response.Write "<td width=140> </td>" Response.Write "<td width=103> </td>" Response.Write "</tr>" Response.Write "<tr>" Response.Write "<td width=205> </td>" Response.Write "<td colspan=2 style=border-bottom: 1 solid #0000FF width=264><font color=#0000FF><b>Trænertype</b></font></td>" Response.Write "<td align=center style=border-bottom: 1 solid #0000FF width=140><font color=#0000FF><b>Navn</b></font></td>" Response.Write "<td width=103> </td>" Response.Write "</tr>" 'Open your recordset strSQL = "SELECT * FROM coaches ORDER BY coachtype DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN, 1
'Looping through your recordset Do While Not rs.EOF if rs("teamid") = teamid then 'Displaying Contents from Your database Response.Write "<tr>" Response.Write "<td align=right width=205><a class='comlinkblue' href='editcoaches.asp?coachid=" & rs("Coachid") & "&team=" & request.querystring("team") & "'>Rediger</a> | <a class='comlinkblue' href='deletecoach.asp?coachid=" & rs("Coachid") & "&team=" & teamnavn & "'>Slet</a> </td>" Response.Write "<td width=258 colspan=2><font color=red>" & rs("coachtype") & "</font></td>" Response.Write "<td width=243 align=left colspan=2><font color=red>" & rs("coachname") & "</font></td>" Response.Write "</tr>" end if 'Move to next Record rs.MoveNext
' Looping through our Recordset Loop
'Finished - Time to close the Recordset and the Connection to the Database rs.Close Set rs = Nothing Response.Write "</table>" Response.Write "</center>" Response.Write "<p align=center>[ <a class='comlinkblue' href='newcoach.asp?team=" & teamnavn & "'>Tilføj ny træner</a> ] | [ <a class='comlinkblue' href=coachservice.asp>Tilbage</a> ]</p>" set strDSN = Nothing %>
Fejlen var i conn og det var medion der fik mig på sporet, grunden til at du alligevel fik point var at jeg nogle steder havde brugt: DBQ=" & Server.Mappath("oldfiles/db/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" og det ændrede sig så....
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.