du har ikke opdateret, linien skal se sådan ud: Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"
strSQL = \"Select * from myb\" if Session(\"visID\") <> \"\" then strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\" end if rs.Open strSQL, Conn, 3, 1 rndMax = CInt(rs.RecordCount) if rndMax > 0 then Randomize rndNumber = Int((RND * rndMax)) \'Find et random nummer rs.Move rndNumber \'Flyt til den valgte record
if Session(\"visID\") = \"\" then Session(\"visID\") = rs(\"ID\") else Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\") end if else Response.Write \"Ikke flere record at vise, reload og begynd forfra\" Session(\"visID\") = \"\" end if rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %>
strSQL = \"Select * from myb\" if Session(\"visID\") <> \"\" then strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\" end if rs.Open strSQL, Conn, 3, 1 rndMax = CInt(rs.RecordCount) if rndMax > 0 then Randomize rndNumber = Int((RND * rndMax)) \'Find et random nummer rs.Move rndNumber \'Flyt til den valgte record
if Session(\"visID\") = \"\" then Session(\"visID\") = rs(\"ID\") else Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\") end if else Response.Write \"Ikke flere record at vise, reload og begynd forfra\" Session(\"visID\") = \"\" end if rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %>
</body> </html>
Der var flere steder med den samme fejl... nu er det vist i orden...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.