---
title: "slumpmässigt skämt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94387-slumpmässigt-skämt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SprayMaphia"
published: "2004-01-09T15:19:22.000Z"
updated: "2004-01-09T16:27:47.000Z"
replies: 10
views: 281
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/94387-slumpmässigt-skämt"
---
# slumpmässigt skämt
## #1 — SprayMaphia, 2004-01-09T15:19Z
jag har en access databas som heter jokes.mdb
tabellen med skämt heter joke
nu vill jag veta hur man kan göra ett script som slumpmässigt väljer ut ett av id'na och kör Response.Write på (så att joke - som kolumnen heter med skämt - blir utskrivet)
tack på förhand
Permalänk: https://www.webforum.nu/p/94387
## #2 — Sebbe, 2004-01-09T15:24Z
Nåja, jag har ju inget bättre att göra. ;)
```
Set objConn = Server.reateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("jokes.mdb")
intAntal = objConn.Execute("SELECT COUNT(*) FROM joke")(0)
Randomize
blnOK = False
Do Until blnOK
intSlump = Int(intAntal * Rnd()) + 1
strSQL = "SELECT joke FROM joke WHERE id = " & intSlump
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then blnOK = True
Loop
Response.Write(objRS(0))
Set objRS = Nothing
objConn.Close : Set objConn = Nothing
```
Du måste dok ha en räknare som heter ID i din tabell. :)
**/red** Välkommen till wF! :D
Permalänk: https://www.webforum.nu/p/1246223
## #3 — SprayMaphia, 2004-01-09T15:26Z
ja det är klart jag har =P
SÅÅ noobig är jag inte =P
Permalänk: https://www.webforum.nu/p/1246227
## #4 — SprayMaphia, 2004-01-09T15:31Z
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/skratt.asp, line 15
Permalänk: https://www.webforum.nu/p/1246229
## #5 — Sebbe, 2004-01-09T15:33Z
Hur ser hela din kod ut? Och vilken rad i den är rad 15? :)
Permalänk: https://www.webforum.nu/p/1246232
## #6 — SprayMaphia, 2004-01-09T15:38Z
> \
>
> \
> \
> \
> \
> \
> \-\
> \
>
> \
> Ett gott skratt\
> \<%
>
> det jag fick av dig
>
> %\>
> \
>
> \
Permalänk: https://www.webforum.nu/p/1246235
## #7 — Sebbe, 2004-01-09T15:41Z
Ajdå, hade visst missat ett C! ;)
```
-
Ett gott skratt
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("jokes.mdb")
intAntal = objConn.Execute("SELECT COUNT(*) FROM joke")(0)
Randomize
blnOK = False
Do Until blnOK
intSlump = Int(intAntal * Rnd(3)) + 1
strSQL = "SELECT joke FROM joke WHERE id = " & intSlump
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then blnOK = True
Loop
Response.Write(objRS(0))
Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1246236
## #8 — SprayMaphia, 2004-01-09T15:43Z
tack det funkade perfekt.. det var jag som gjorde fel...
Permalänk: https://www.webforum.nu/p/1246237
## #9 — mozilla, 2004-01-09T16:20Z
Tänk bara på att om du någon gång slänger ett skämt mitt i(dvs inte senaste id:et) Så kommer den ibland försöka hämta den posten som inte finns med et id:et som inte finns.
Permalänk: https://www.webforum.nu/p/1246263
## #10 — Sebbe, 2004-01-09T16:22Z
> **mozilla skrev:**
>
> Tänk bara på att om du någon gång slänger ett skämt mitt i(dvs inte senaste id:et) Så kommer den ibland försöka hämta den posten som inte finns med et id:et som inte finns.
Om jag har förstått dig rätt så är det just det jag använder loopen till:
```
Do Until blnOK
intSlump = Int(intAntal * Rnd(3)) + 1
strSQL = "SELECT joke FROM joke WHERE id = " & intSlump
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then blnOK = True
Loop
```
Permalänk: https://www.webforum.nu/p/1246267
## #11 — mozilla, 2004-01-09T16:27Z
aha, ledsen läste inte igenom din kod, utan bara att du använde ID:et :r :OO :birp
Permalänk: https://www.webforum.nu/p/1246271
---
Tråden på webben: https://www.webforum.nu/amne/asp/94387-slumpmässigt-skämt