Nu ser min kode sådan ud ig det virker fint, men der dukker altid nye problemer
op. Så hvordan laver jeg så den erstatter rs("vitsid") med den vits som ligger
i tabellen vitser som har det samme vitsid som den spytter ud, ´hvis i forstår
:D
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vits.mdb")
Conn.Open DSN
strSQL = "SELECT vitsid, Avg(stjerne) AS Gennemsnit FROM Stemme GROUP BY vitsid
ORDER BY Avg(stjerne) DESC"
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
Response.write "Ingen poster fundet"
Else
SQL = "Select * From vitser Where id=" & rs("vitsid")
Set rs = Conn.Execute(SQL)
strvits = rs("vits")
Do While Not rs.EOF
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" bordercolor="#111111" width="400">
<tr>
<td width="300"><center><font face="verdana" size="2"><% Response.Write ""
& strvits & "" %></font></center></td>
<td width="100"><center><font face="verdana" size="2"><%response.write ""
& rs("gennemsnit") & "" %></font></center></td>
</tr>
</table>
<%
rs.MoveNext
Loop
End if
Conn.Close
Set Conn = Nothing
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials