Random tekst

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")

for i = 1 to 10

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM users\")

Set rs = Conn.Execute(\"SELECT * FROM users\")

If counter(\"Count\") > 0 Then
Randomize()
Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1

rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"Username\") & \"<br>\"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>

Response.Buffer = True

  Function Show()
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    Record.MoveFirst
    For i = 1 to RandNum - 1
      Record.MoveNext
    next
    Response.Write Record(\"Text\")
  end function

  \' *******************************************************
  \' * Vælg den connection type der passer dig bedst :-)  *
  \' *******************************************************

  \' *******************************************************
  \' * DSN, bruger dsn = testdb der peger på banner.mdb    *
  \' *******************************************************
  \' Set Rs = Server.CreateObject(\"ADODB.Connection\")
  \' Rs.Open \"DSN=testdb;uid=;pwd=\"

  \' *******************************************************
  \' * DSN Less, banner.mdb i samme katalog som banner.asp *
  \' *******************************************************
  Set Rs = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"demo.mdb\")
  Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

  Sql = \"Select count(*) as Found from dinBase\"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record(\"found\")

  Sql = \"Select * from dinTabel\"
  Set Record =  Rs.Execute(Sql)


  Response.Write \"<center>\"
  Show()
  Response.Write \"<br><br>\"

http://195.215.243.80/Random.asp

Der kan du se min :

Koden ser sådan ud :
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data.mdb\")

for i = 1 to 1

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM statement\")

Set rs = Conn.Execute(\"SELECT * FROM statement\")

If counter(\"Count\") > 0 Then
Randomize()
Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1

rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"tekst\") & \"<br>\"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>
Og databasen sådan : http://195.215.243.80/data.mdb

Mangler du hjælp så kom på icq : 92064248 men det burde nu være ret nemt.

No_doubt var først og hans svar virkede perfekt. Takker.