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
