"& right(replace(viewRS("inlagd"),"-",""),15) &"" .Write "
" & vbCrLf%> <%if viewRS("kommentar") <> "" Then%> <%=replace(viewRS("kommentar"),vbCrLf,"
")%> <%End If%> ``` Permalänk: https://www.webforum.nu/p/2178214 ## #12 — voigtann1, 2009-04-08T18:36Z Första koden, du har ju kommenterat ut all kod. Sen din Do-sats, hur ser den egentilgen ut? du ge bara en liten del av koden. Permalänk: https://www.webforum.nu/p/2178215 ## #13 — WebbisNet, 2009-04-08T18:41Z > **[voigtann1 skrev:](https://www.webforum.nu/p/1463595)** > > Första koden, du har ju kommenterat ut all kod. > Sen din Do-sats, hur ser den egentilgen ut? du ge bara en liten del av koden. Första koden, om jag inte kommenderar bort den så ser man bara felmeddelande på sidan, måste kommentera bort för at ens kunna visa resten av innehållet :-) Del 2, lite mer av koden ``` <%Set viewRS=objConn.Execute("SELECT * FROM tblUsers t INNER JOIN tblUsers_Galleri g ON t.userID = g.agare WHERE agare ="& varUID &" and kategori='"& request.form("galleriKategori") &"' ORDER BY g.bildID DESC") with response If not viewRS.EOF Then .Write "
| " & vbCrLf
.Write "" & vbCrLf
.Write " | " & vbCrLf
.Write "" & vbCrLf
.Write " "& viewRS("rubrik") &" "& right(replace(viewRS("inlagd"),"-",""),15) &"" .Write " " & vbCrLf%> <%if viewRS("kommentar") <> "" Then%> <%=replace(viewRS("kommentar"),vbCrLf," ")%> <%End If%> <%if clng(request("userID")) = clng(session("userID")) then%> "">¤ Radera ¤ <%end if%> <%if clng(request("userID")) = clng(session("userID")) then%> <%set rs=objConn.Execute("SELECT tblUsers_Galleri_kommentar.bildID, tblUsers_Galleri_kommentar.agare, -Sum(tblUsers_Galleri_kommentar.nytt) AS SumNytt FROM tblUsers_Galleri_kommentar WHERE agare=1 and nytt=1 GROUP BY bildID,agare")%> );"> ¤ Visa kommentarer Visad <%=viewRS("clicks")%> gånger &catID=<%=viewRS("kategori")%>">Ändra kategori <%Else%> <%'If UserID = 1 then%> <%'End If%> <%if request.querystring("kat") <> "" then%> , <%=viewRS("bildID")%>,<%=viewRS("agare")%>,'<%=viewRS("username")%>','<%=viewRS("rubrik")%>','<%=viewRS("bild")%>');"> ¤ Kommentera ¤ <%else%> Kategori saknas <%end if end if%> <%if viewRS("privat") = 1 then response.write " | " & vbCrLf
x=x+1
viewRS.MoveNext
Loop Until viewRS.EOF
.Write "
" End if end with%> ``` Permalänk: https://www.webforum.nu/p/2178217 ## #14 — voigtann1, 2009-04-08T18:46Z 1\. Vad får du för felmeddelande då? 1\.1 - Vad innehåller variablerna? 2\. Hur många träffar får du i ditt recordset viewRS? (viewRS.RecordCount) ? - Är du säker(brukar vara så att du inte har gjort fel, bara glömt att det skall fungera som det gör). Permalänk: https://www.webforum.nu/p/2178218 ## #15 — WebbisNet, 2009-04-08T18:55Z > **[voigtann1 skrev:](https://www.webforum.nu/p/1463598)** > > 1\. Vad får du för felmeddelande då? > 1\.1 - Vad innehåller variablerna? > 2\. Hur många träffar får du i ditt recordset viewRS? (viewRS.RecordCount) ? - Är du säker(brukar vara så att du inte har gjort fel, bara glömt att det skall fungera som det gör). fråga 1 Microsoft VBScript runtime error '800a000d' Type mismatch /Gallery/Default.asp, line 175 Fråga 2 fungerade, fick bara hjärnsläpp :-) Permalänk: https://www.webforum.nu/p/2178220 ## #16 — voigtann1, 2009-04-08T19:07Z Och vad innehåller dina variabler (vilken rad är 175)? Och vad är dom för typer? För om man tar din kod rakt upp och ner så får man inga fel. vad är: intCount, intVIP, vipCheck För typer jag gissar att det är vipCheck som är problemet för dig, eftersom det verkar vara ett objekt (Recordset). och inte en sträng. Permalänk: https://www.webforum.nu/p/2178222 ## #17 — WebbisNet, 2009-04-08T19:29Z > **[voigtann1 skrev:](https://www.webforum.nu/p/1463602)** > > Och vad innehåller dina variabler (vilken rad är 175)? > Och vad är dom för typer? > > För om man tar din kod rakt upp och ner så får man inga fel. > > > vad är: > intCount, intVIP, vipCheck > För typer jag gissar att det är vipCheck som är problemet för dig, eftersom det verkar vara ett objekt (Recordset). och inte en sträng. Det stämmer att båda är RecordSet så det går ju inte jämföra så som du säger......frågan är hur man gör då sen säger den att det inte finns kategorier när man själv kollar sitt bildgalleri men går man in på en annan medlems galleri så ser man kategorierna ``` <%Set viewRS1=objConn.Execute("SELECT * FROM tblUsers_galleri g INNER JOIN tblUsers_Galleri_kategori k ON g.agare = k.agare WHERE g.agare ="& varUID &" group by k.katID") if viewRS1.eof then response.write "Ingen kategori finns" Else%>