--- title: "får inte detta att funka" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/164542-får-inte-detta-att-funka" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2007-09-15T20:03:04.000Z" updated: "2007-09-18T18:01:27.000Z" replies: 11 views: 492 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/164542-får-inte-detta-att-funka" --- # får inte detta att funka ## #1 — WebbisNet, 2007-09-15T20:03Z småbilder ska ligga jämte varandra, när man klickar på dem så ska en större bild öppnas nedanför, får inte denna kod att funka...med denna kod jag har nu visas en liten bild och en stor under och så bara repeteras det så ``` <% 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 Do until viewRS.eof 'If x mod 3=0 and x>1 Then .Write "" & vbCrLf .Write "" .Write "

" .Write "


" viewRS.MoveNext: Loop ``` Permalänk: https://www.webforum.nu/p/164542 ## #2 — Peter S, 2007-09-17T17:47Z 1. Du använder en tabell, men ingenstans skrivs \:ar ut 2. Variabeln x räknas inte upp Permalänk: https://www.webforum.nu/p/2029128 ## #3 — WebbisNet, 2007-09-17T17:50Z hur ska jag skriva det på bästa sätt, har testat olika sätt utan resultat Permalänk: https://www.webforum.nu/p/2029129 ## #4 — Peter S, 2007-09-17T18:05Z ``` x = 0 Do until viewRS.eof If x mod 3=0 and x <> 0 Then .Write "" & vbCrLf .Write "" x = x + 1 viewRS.MoveNext: Loop ``` Permalänk: https://www.webforum.nu/p/2029136 ## #5 — WebbisNet, 2007-09-17T19:50Z det blev inte så bra ``` <% 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 "
" .Write "" .Write "
" .Write "" .Write "
" & vbCrLf .Write "" & vbCrLf 'Do 'If x mod 3=0 and x>1 Then .Write "" & vbCrLf '.Write "" & vbCrLf '.Write "" & vbCrLf .Write "" x = x + 1 .write ""& replace(viewRS("kommentar"),vbCrLf,"
") &" " %>
<%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 "" end if%> <%.Write "" & vbCrLf viewRS.MoveNext: Loop 'x=x+1 'viewRS.MoveNext 'Loop Until viewRS.EOF .Write "" & vbCrLf .Write "
" & vbCrLf '.Write "" & vbCrLf '.Write "" & vbCrLf '.Write "" & vbCrLf '.Write " "& viewRS("rubrik") &"    "& left(replace(replace(viewRS("inlagd"),"-",""),":",":"),14) &"" '.Write "
" & vbCrLf Do until viewRS.eof If x mod 3=0 and x>1 Then .Write "
" .Write "" .Write "
" .Write "" .Write "
" & vbCrLf .Write "
" End if end with%> ``` Bilagor: - [test.jpg](https://www.webforum.nu/a/15934.jpg) Permalänk: https://www.webforum.nu/p/2029187 ## #6 — Peter S, 2007-09-17T19:53Z Det är inte den kod jag skrev. Hur skall det se ut? Permalänk: https://www.webforum.nu/p/2029189 ## #7 — WebbisNet, 2007-09-17T19:56Z är det 5 bilder i galleriet så ska de 5 ligga jämte varandra som miniatyrer, första bilden ska visas som en stor under och när man klickar på nån av de andra miniatyrerna så ska den stora bilden ändras till den man klickade på, är det 2 så ska 2 ligga jämte varann och så vidare Permalänk: https://www.webforum.nu/p/2029192 ## #8 — Peter S, 2007-09-17T20:00Z ``` count = viewRS.RecordCount .Write "" Do until viewRS.eof .Write "" .Write "" .Write "" viewRS.MoveNext: Loop .Write "" .Write "" .Write "" .Write "" ``` Permalänk: https://www.webforum.nu/p/2029194 ## #9 — WebbisNet, 2007-09-17T20:13Z > **Peter S skrev:** > > ``` > count = viewRS.RecordCount > .Write "" > Do until viewRS.eof > .Write "" > .Write "" > .Write "" > viewRS.MoveNext: Loop > .Write "" > .Write "" > .Write "" > .Write "" > ``` det ska vara i den här stilen bilden visar hur det är nu Bilagor: - [test1.jpg](https://www.webforum.nu/a/15935.jpg) Permalänk: https://www.webforum.nu/p/2029197 ## #10 — Peter S, 2007-09-18T16:06Z Hur ser den genererade HTML-koden ut efter att ovanstående ASP-kod körts? Permalänk: https://www.webforum.nu/p/2029452 ## #11 — WebbisNet, 2007-09-18T17:54Z > **Peter S skrev:** > > Hur ser den genererade HTML-koden ut efter att ovanstående ASP-kod körts? ```
 
Kategorier
Dana Scully    20070218 12:16
¤ Kommentera ¤
   20070217 18:55
¤ Kommentera ¤
Cybil Bennett från Silent Hill    20070217 18:54
¤ Kommentera ¤
   20070217 10:50
¤ Kommentera ¤
``` Permalänk: https://www.webforum.nu/p/2029506 ## #12 — Peter S, 2007-09-18T18:01Z Nej, det är någonting som inte stämmer. Har du flera loopar i ASP-koden? Det skall endast skrivas ut en bild med namnet "bigpic". Hur ser hela ASP-koden ut? Permalänk: https://www.webforum.nu/p/2029514 --- Tråden på webben: https://www.webforum.nu/amne/asp/164542-får-inte-detta-att-funka