16. september 2005 - 12:16Der er
7 kommentarer og 1 løsning
Tilfældig record i access
Hej
Jeg har et script der vælger en tilfældig record i en access database. Jeg har prøvet at rette response.write fra en tekst til et link, men siden kan ikke vises. Nogen der kan hjælpe?
<% Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM links" rs.Open strSQL, Conn, 3, 1 rndMax = rs.RecordCount Randomize rndNumber = Int((RND * rndMax)) 'Find et random nummer rs.Move rndNumber 'Flyt til den valgte record Response.Write rs <a href="loadlink.asp?link=<%=links("link")%>"><%=links("text")%></a> 'udskriver her %> vh. Kim /www.svinget.com
Det funker - tak for hjælpen. Poster du et svar? softspot: din kode tager det samme link hver gang selvom man refresh'er browseren: <% Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM links" rs.Open strSQL, Conn, 3, 1 rndMax = rs.RecordCount ' Randomize ' rndNumber = Int((RND * rndMax)) 'Find et random nummer ' rs.Move rndNumber 'Flyt til den valgte record Randomize rndIdx = -int(1000*Rnd())+1 strSQL = "SELECT TOP 1 * FROM links ORDER BY Rnd(" & rndIdx & "*ID)"
Response.Write "<a href=""loadlink.asp?link="&rs("link")&""">"&rs("text")&"</a>"'udskriver her
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.