Tilfædlig data

nedenstående genererer et tilfældigt tal mellem 1 og 12
Du kan evt. indsætte en SQL inden der hiver antal poster ud i din DB og bruge den.



<%
randomize
randompost = int((12*rnd)+1)
%>

dit ouput vil så se sådan ud og skifter hvergang du reloader din browser:

<%= ramdompost %>

Det kan du så indsætte som kald til din db på følgende måde:
<a href="side1.asp?id="<%= ramdompost %>">Link til post <%= ramdompost %>"> her</a>

Mit problem er så bare at den springer meget i de postede autoId's... Så det ville desværre ikke virke... Er der ikke en enkel SQL-string som henter alle poster ud fra et tilfældigt autoId?

Hvilken database bruger du?
man kan lave en sql sætning som tager en tilfældig post. Men selve sql sætningen vil afhænge af databasen.

-Jeg bruger Access...

Jeg bruger denne på en SQl-server - måske kan du bruge den:

select top 1 *
from tabel
order by newid()

Men den vælger bare den nyeste, ikke?

Access har ikke indbygget en function som MySQL og MSSQL har så man må lave det sådan her. Du skal lige rette sql sætnignen sådan det passer med dit.:


<%
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM tabelnavn ORDER BY rnd(-(autoID)*" & R & ")"
%>

-Nu ser min kode således ud:
____________________________

<html>
<meta http-equiv="Content-Language" content="da">

<body bgcolor="#008080" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">

<p><font face="Verdana" size="1">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("datbas/what.mdb")
 
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM tips ORDER BY rnd(-(ID)*" & R & ")"
%>
<i><%=rs("tip")%><br>
Dette er et tip!</i></font></p>

</body>
</html>
____________________________

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/tip.asp, line 16
____________________________

(Linje 16 er '<i><%=rs("tip")%><br>'!)

-Hvad gør jeg galt?

Har du en kolonne som hedder tip i din tabel?

Ja...

Hov ser lige noget, umddelbart har du ikke en Set rs=Conn.Execute og en Conn.Open så prøv at rette dette:

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("datbas/what.mdb")
 
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM tips ORDER BY rnd(-(ID)*" & R & ")"
%>
<i><%=rs("tip")%><br>
Dette er et tip!</i></font></p>


Til dette:

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("datbas/what.mdb")
conn.Open strDSN

randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM tips ORDER BY rnd(-(ID)*" & R & ")"
set rs=conn.execute(SQL)
%>
<i><%=rs("tip")%><br>
Dette er et tip!</i></font></p>

Hurraaa... Det virker... (Taktaktaktak...:-) Har længe haft problemet... (Er ikke just særlig stærk i ASP, men kan simpelthen ikke lade det være!)

W13 : )