Nån som vet hur man får denna kod att visa bilderna istället för att gå till eof
Dim oConn ,strSQL ,bilder ,i, j ,Count ,post ,antalBilder ,Found
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=serveradress;PORT=3306;DATABASE=användarnamn;USER=användarnamn;PASSWORD=lösenord;OPTION=3;"
strSQL = "SELECT userID, picture, username, visaBild FROM tblUsers "& _
"WHERE not picture='nopic.jpg' and visaBild=1"
Set rs = oConn.Execute(strSQL)
If rs.EOF Then
Response.Write "Det finns inga bilder..."
Else
Response.Write "<table width=""95%""><tr><td align=""left"">"
bilder = rs.GetRows()
antalBilder = UBound(bilder, 2) + 1
Count = 5
If Count > antalBilder Then
Count = antalBilder
End If
ReDim Shown(Count)
Randomize
For i = 1 To Count
Do
Found = False
post = Int(Rnd * antalBilder)
For j = 1 To i - 1
If Shown(j) = post Then
Found = True
Exit For
End If
Next
Loop While Found
Shown(i) = post
Response.Write "<a target=""_top"" href=""/view.asp?userID="&bilder(0, post)&"""><img border=""0"" height=""100"" width=""80"" src=""/upload/images/users/" & bilder(1, post) & """ alt=""" & bilder(2, post) & """></a> "
Next
Response.Write "</td></tr></table>"
End If
rs.Close
Set rs = Nothing
"Felet" beror ju iallafall på att det som söks inte hittas. Vad jag ser nu är det ineget fel på sql-satsen men är iofs riktigt trött så det är nog bäst att nån annan kollar på det :)
"Felet" beror ju iallafall på att det som söks inte hittas. Vad jag ser nu är det ineget fel på sql-satsen men är iofs riktigt trött så det är nog bäst att nån annan kollar på det :)
Egentligen ska inget vara fel eftersom den funkade med access, måste vara nåt speciellt som inte mysql förstår
