--- title: "join union - slå ihop" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/184165-join-union-slå-ihop/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "snowcat" published: "2010-07-23T10:27:05.000Z" updated: "2010-07-27T11:33:51.000Z" replies: 28 views: 1819 page: 2 pages: 2 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/184165-join-union-slå-ihop" --- # join union - slå ihop _Sida 2 av 2._ ## #21 — snowcat, 2010-07-27T07:13Z jag har ändrat nu så att samma filmnamn står varje gång med har samma färg, vilket blev bättre. Fast ännu kvarstår ju det stora problemet, att om man klickar på filmnamnet att man då kommer till en tom sida på IMDB... den skall ju leda till filmen.... Permalänk: https://www.webforum.nu/p/2243885 ## #22 — onkelborg, 2010-07-27T08:24Z Står rätt adresser i html-koden? Permalänk: https://www.webforum.nu/p/2243891 ## #23 — snowcat, 2010-07-27T09:01Z det är precis samma kod som ligger ute nu Den här koden funkar (med klickbara filmnamn som leder till filmen) ```
<% If RecSet.EOF = True Then %> <% Else %> <% Do While Not RecSet.EOF if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if %> <% '*** Loop samt DB-close ***** RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing End if '**************************** %>
Ingen film med den bokstaven i databasen
Film Slott
" target="_blank"><%=RecSet("filmnamn")%> "><%=RecSet("slottsnamn")%> <%=RecSet("land")%>
``` och den här funkar inte: ```
<% If RecSet.EOF = True Then %> <% Else %> <% Do While Not RecSet.EOF If lastfilmid<>RecSet("filmid") then ' new film, print new colour row and title of film if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if %> <% Else ' this film is the same as last film, show same colour If intRowColor = 1 Then Response.Write " <% End If lastfilmid=RecSet("filmid") ' always print %> <% response.write vbcrlf & "" & vbcrlf '*** Loop samt DB-close ***** RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing End if '**************************** %>
Ingen film med den bokstaven i databasen
Film Slott Land
" target="_blank"><%=RecSet("filmnamn")%>
" Else Response.Write "
" End if %> " target="_blank"><%=RecSet("filmnamn")%> "><%=RecSet("slottsnamn")%> <%=RecSet("land")%>
``` Permalänk: https://www.webforum.nu/p/2243895 ## #24 — snowcat, 2010-07-27T09:28Z så här ser det ut nu, ganska bra tycker jag Nu återstår det att hitta varför man inte kommer till rätt film på IMDB. När man håller muspekaren över ett filmnamn står det nere i statusbaren Gör man samma sak på de som jag redan har ute på nätet står det (siffrorna är bara exempel) Permalänk: https://www.webforum.nu/p/2243901 ## #25 — onkelborg, 2010-07-27T09:52Z Ge oss html-kod, dvs. ifrån "visa källa" i webbläsaren :) Permalänk: https://www.webforum.nu/p/2243903 ## #26 — snowcat, 2010-07-27T11:11Z Denna har följande kod. ```
Film Slott Land
Madame Bovary (1991) Versailles Frankrike
Mannen med järnmasken (1998) Fontainebleau Frankrike
Mannen med järnmasken (1998) Vaux le Vicomte Frankrike
Mannen med järnmasken (1998) Pierrefonds Frankrike
Maria Stuart - drottning av Skottland (1971) Alnwick England
Maria Stuart - drottning av Skottland (1971) Chenonceau Frankrike
Maria Stuart - drottning av Skottland (1971) Bamburgh England
Maria Theresia (1951) Schönbrunn Österrike
Maria Theresia (1980) Schönbrunn Österrike
Marie Antoinette (1938) Versailles Frankrike
Marie Antoinette (2006) Versailles Frankrike
Marie Antoinette (2006) Vaux le Vicomte Frankrike
Marple: A Murder Is Announced (2005) Eilean Donan Skottland
Merlin (2008) Tv-serie Pierrefonds Frankrike
Mio min Mio (1987) Eilean Donan Skottland
Mission Impossible III (2006) Caserta Italien
Molière (2007) Versailles Frankrike
Monty Pythons galna värld (1975) Bodiam borg England
Moonraker (1979) Vaux le Vicomte Frankrike
``` Permalänk: https://www.webforum.nu/p/2243905 ## #27 — onkelborg, 2010-07-27T11:27Z Hm, det här verkar helt konstigt. Är du 100% på att det är den asp-koden du visar här ovanför som ger det här resultatet? Permalänk: https://www.webforum.nu/p/2243906 ## #28 — snowcat, 2010-07-27T11:31Z på heder och samvete, jag har förståss tagit bort sidomenyn och sånt tjafs men det gör väl inget? Ingen av den koden är ju annorlunda mot den som ligger ute och funkar? Jag blir stollig på det här snart, fattar inte ett smack. :( Permalänk: https://www.webforum.nu/p/2243907 ## #29 — snowcat, 2010-07-27T11:33Z Den här koden ligger ute på nätet och funkar med klickbara länkar till rätt film på imdb ``` <% Dim bokstav bokstav = Request.QueryString("filmnamn") %>
Filmer som spelats in på slott
Klicka på en bokstav för att sortera efter filmnamn.
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Å Ä Ö
<% '************* Databaskoppling *********** Set Connect = server.createobject("ADODB.connection") Connect.Open Session("Connection_String") Set RecSet = Connect.Execute("SELECT * FROM filmer WHERE filmer.filmnamn LIKE '" & Request.QueryString("bokstav") & "%' order by filmer.filmnamn, filmer.filmid asc") '***************************************** %>
<% If RecSet.EOF = True Then %> <% Else %> <% Do While Not RecSet.EOF if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if %> <% '*** Loop samt DB-close ***** RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing End if '**************************** %>
Ingen film med den bokstaven i databasen
Film Slott
" target="_blank"><%=RecSet("filmnamn")%> "><%=RecSet("slottsnamn")%> <%=RecSet("land")%>
``` och den här koden har jag hemma på stationära: ``` <% Dim bokstav bokstav = Request.QueryString("filmnamn") %>
Filmer som spelats in på slott
Klicka på en bokstav för att sortera efter filmnamn.
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Å Ä Ö
<% '************* Databaskoppling *********** Set Connect = server.createobject("ADODB.connection") Connect.Open Session("Connection_String") Set RecSet = Connect.Execute("SELECT * FROM filmer WHERE filmer.filmnamn LIKE '" & Replace(Request.QueryString("bokstav"),"'","''") & "%' order by filmer.filmnamn, filmer.filmid asc") '***************************************** %>
<% If RecSet.EOF = True Then %> <% Else %> <% Do While Not RecSet.EOF If lastfilmid<>RecSet("filmid") then ' new film, print new colour row and title of film if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if %> <% Else ' this film is the same as last film, show same colour If intRowColor = 1 Then Response.Write " <% End If lastfilmid=RecSet("filmid") ' always print %> <% '*** Loop samt DB-close ***** RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing End if '**************************** %>
Ingen film med den bokstaven i databasen
Film Slott Land
" target="_blank"><%=RecSet("filmnamn")%>
" Else Response.Write "
" End if %> " target="_blank"><%=RecSet("filmnamn")%> "><%=RecSet("slottsnamn")%> <%=RecSet("land")%>
``` Permalänk: https://www.webforum.nu/p/2243908 --- Tråden på webben: https://www.webforum.nu/amne/asp/184165-join-union-slå-ihop/page2 Föregående sida: https://www.webforum.nu/amne/asp/184165-join-union-slå-ihop.md