slumpmässigt skämt

10 svar · 275 visningar · startad av SprayMaphia 9 jan. 2004

SprayMaphiaMedlem sedan jan. 2004128 inlägg

Frågan9 jan. 2004 15:19#1

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

SebbeMedlem sedan jan. 20032 285 inlägg

9 jan. 2004 15:24#2

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

SprayMaphiaMedlem sedan jan. 2004128 inlägg

9 jan. 2004 15:26#3

ja det är klart jag har =P

SÅÅ noobig är jag inte =P

SprayMaphiaMedlem sedan jan. 2004128 inlägg

9 jan. 2004 15:31#4

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/skratt.asp, line 15

SebbeMedlem sedan jan. 20032 285 inlägg

9 jan. 2004 15:33#5

Hur ser hela din kod ut? Och vilken rad i den är rad 15? :)

SprayMaphiaMedlem sedan jan. 2004128 inlägg

9 jan. 2004 15:38#6

<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>-</title>
</head>

<body style="font-family: verdana; font-size: 10px" link="#000000" vlink="#000000" alink="#000000">
Ett gott skratt<br>
<%

det jag fick av dig

%>
</body>

</html>

SebbeMedlem sedan jan. 20032 285 inlägg

9 jan. 2004 15:41#7

Ajdå, hade visst missat ett C! ;)

<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>-</title>
</head>

<body style="font-family: verdana; font-size: 10px" link="#000000" vlink="#000000" alink="#000000">
Ett gott skratt<br>
<%
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
%>
</body>
</html>

SprayMaphiaMedlem sedan jan. 2004128 inlägg

9 jan. 2004 15:43#8

tack det funkade perfekt.. det var jag som gjorde fel...

mozillaMedlem sedan juli 20011 084 inlägg

9 jan. 2004 16:20#9

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.

SebbeMedlem sedan jan. 20032 285 inlägg

9 jan. 2004 16:22#10

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

mozillaMedlem sedan juli 20011 084 inlägg

9 jan. 2004 16:27#11

aha, ledsen läste inte igenom din kod, utan bara att du använde ID:et :r :OO :birp