Har ett problem som jag tänkte att jag skulle få lite hjälp med. Förmodligen har du en parameter i QueryString, då skapas ju inte recordsetet Bild. If Not BIld.EOF Then <- här har du plötsligt stavat Bild med stort I Var någonstans talar du om att Bild skall vara lika med ett recordset? Du har inte skicka med komplett kod. Felkoden motsavar inget av den kod du angivit. Object required: 'Bild'
Det gäller ett vykortscript. Får följand felkod "Object required: 'Bild'
Koden finns här nedanför och jag har skrivit in vad felet är någonstan.
Men är det inte så att ett objekt efterfrågas från tabellen bild. och att den inte hittar filen?
Det finns en <!--#Include file="settings.asp"--> där man ska sätta in sökvägen till scriptet. Har prövat med den fysiska sökvägen men det fungerar inte Vad finns det mer för sökvägar man kan skriva.
har prövat den här
url ="g:\home\xxx.net\users\xxx.nu\Vykort\"
<%If Request.QueryString("id") = "" Then
Set RS=Conn.Execute("SELECT Count(*) AS antal FROM bild")
antal = RS("antal")
RS.Close
Set RS = Nothing
Randomize
slump = Int(RND*antal) - 1
Set Bild = Conn.Execute("SELECT * FROM bild")
If Bild.EOF Then%>
<font size="2" face="verdana">Inga vykort inlagd</font>
<%Else
Do While slump >= 0
Bild.MoveNext
slump = slump - 1
Loop
Id = Bild("id")
End If
Else
Id = Request.QueryString("id")
End If
'''''' här är raden där felkoden ''''''If Not BIld.EOF Then''''''''''''''raden med fel på
Set Vykort=Conn.Execute("Select * From bild Where id=" & Id)%>
mvh ThomasSv: Object required: 'Bild'
Sv: Object required: 'Bild'
Sv: Object required: 'Bild'
Sv: Object required: 'Bild'
Du kan skriva om den kod du angivit till följande:
<code>
<%
If Request.QueryString("id") = "" Then
Set RS = Conn.Execute("SELECT Count(*) AS antal FROM bild")
antal = RS("antal")
RS.Close
Randomize
slump = Int(RND*antal) - 1
RS.Open "SELECT * FROM bild", Conn
If RS.EOF Then
Response.Write "<font size=""2"" face=""verdana"">Inga vykort inlagd</font>"
Else
RS.Move slump
Id = RS("id")
End If
RS.Close
Set RS = Nothing
Else
Id = Request.QueryString("id")
End If
</code>