join union - slå ihop

28 svar · 1 731 visningar · startad av snowcat 23 juli 2010 · sida 2 av 2

Frågan, av snowcat 23 juli 2010

Hej undrar om någon skulle ha ork att hjälpa mig. Jag skriver om filmer som spelats in på olika slott runt om i Europa. Jag listar dem efter filmnamn men skulle vilja ha dem så att om t.ex. en film har spelats in på flera ställen, att filmnamnet endast står en gång, fast slottsnamnet och landets namn skall stå... gjorde en bild så att det är enklare att förstå. <http://slottsguiden.info/bilder/f

Läs frågan i sin helhet →

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 07:13#21

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....

onkelborgMedlem sedan juli 2003555 inlägg

27 juli 2010 08:24#22

Står rätt adresser i html-koden?

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 09:01#23

det är precis samma kod som ligger ute nu
Den här koden funkar (med klickbara filmnamn som leder till filmen)

<CENTER>
 <TABLE CLASS="vtext" width="500" border="0" CELLSPACING="0" cellpadding="0">

<% If RecSet.EOF = True Then %>
<TR><TD HEIGHT="30"></TD></TR>
	<tr><td class="fel"><nobr>Ingen film med den bokstaven i databasen</nobr></td></tr>
<% Else %>
<tr valign="top"><td height="33" colspan="3"><img src="bilder/divider500.jpg"></td></tr>

<tr class="yrkenlista"><td>Film</td> <td>Slott</td> <td></td></tr> 
	
<%	Do While Not RecSet.EOF 

if intRowColor = 0 Then
    	Response.Write "<TR class=""tabell1"">"
    	intRowColor = 1
    Else
    	Response.Write "<TR class=""tabell2"">"
    	intRowColor = 0
    End if
%>        
	<td valign="top"><a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%></nobr></td>
	<td valign="top"><NOBR><a href="slottdetalj.asp?id=<%=RecSet("slottsid")%>"><%=RecSet("slottsnamn")%></NOBR></A></td>
	<td valign="top"><%=RecSet("land")%></td></tr>

<%
'*** Loop samt DB-close *****
	RecSet.MoveNext
	Loop
	
	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing
	
	End if
'****************************
%>
</table>
</CENTER>

och den här funkar inte:

<CENTER>
 <TABLE CLASS="vtext" width="500" border="0" CELLSPACING="0" cellpadding="0">

<% If RecSet.EOF = True Then %>
	<TR><TD HEIGHT="30"></TD></TR>
	<tr><td class="fel"><nobr>Ingen film med den bokstaven i databasen</nobr></td></tr>
<% Else %>

	<tr valign="top"><td height="33" colspan="3"><img src="bilder/divider500.jpg"></td></tr>
	<tr class="yrkenlista"><td>Film</td> <td>Slott</td> <td>Land</td></tr> 
	
	<%	
	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 "<TR class=""tabell1"">"
				intRowColor = 1
			Else
				Response.Write "<TR class=""tabell2"">"
				intRowColor = 0
			End if
			%>    
			<td valign="top">
			<a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%> </nobr>
			</td>
			<%
		Else

			' this film is the same as last film, show same colour
			If intRowColor = 1 Then
				Response.Write "<TR class=""tabell1""><td valign=""top"">"
			Else
				Response.Write "<TR class=""tabell2""><td valign=""top"">"
			End if
			%>
			
			<a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%> </nobr></td>
<%
		End If
		lastfilmid=RecSet("filmid")

		' always print
		%>
		<td valign="top"><a href="slottdetalj.asp?id=<%=RecSet("slottsid")%>"><%=RecSet("slottsnamn")%></A></td>
		<td valign="top"><%=RecSet("land")%></td></tr>
		<%
		
		 response.write vbcrlf & "<!-- lastfilmid = " & lastfilmid & " -->" & vbcrlf 

'*** Loop samt DB-close *****
	RecSet.MoveNext
	Loop
	
	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing
	
	End if
'****************************
%>

</TABLE>
</CENTER>

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 09:28#24

så här ser det ut nu, ganska bra tycker jag
http://slottsguiden.info/bilder/filmer.jpg
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
http://www.imdb.com/title/
Gör man samma sak på de som jag redan har ute på nätet står det
http://www.imdb.com/title/tt0463872
(siffrorna är bara exempel)

onkelborgMedlem sedan juli 2003555 inlägg

27 juli 2010 09:52#25

Ge oss html-kod, dvs. ifrån "visa källa" i webbläsaren :)

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 11:11#26

Denna
http://slottsguiden.info/bilder/film88.jpg
har följande kod.

<CENTER>
 <TABLE CLASS="vtext" width="500" border="0" CELLSPACING="0" cellpadding="0">

	<tr valign="top"><td height="33" colspan="3"><img src="bilder/divider500.jpg"></td></tr>
	<tr class="yrkenlista"><td>Film</td> <td>Slott</td> <td>Land</td></tr> 
	

<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Madame Bovary</A> (1991) </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=222">Versailles</A></td>
		<td valign="top">Frankrike</td></tr>
		

<!-- lastfilmid = tt0102368 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Mannen med järnmasken</A> (1998)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=216">Fontainebleau</A></td>
		<td valign="top">Frankrike</td></tr>

		
<!-- lastfilmid = tt0120744 -->
<TR class="tabell2"><td valign="top">
			
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Mannen med järnmasken</A> (1998)  </nobr></td>

		<td valign="top"><a href="slottdetalj.asp?id=98">Vaux le Vicomte</A></td>
		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0120744 -->

<TR class="tabell2"><td valign="top">
			
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Mannen med järnmasken</A> (1998) </nobr></td>

		<td valign="top"><a href="slottdetalj.asp?id=99">Pierrefonds</A></td>
		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0120744 -->
<TR class="tabell1">    

			<td valign="top">

			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Maria Stuart - drottning av Skottland</A> (1971)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=229">Alnwick</A></td>
		<td valign="top">England</td></tr>
		
<!-- lastfilmid = tt0067402 -->
<TR class="tabell1"><td valign="top">

			
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Maria Stuart - drottning av Skottland</A> (1971)  </nobr></td>

		<td valign="top"><a href="slottdetalj.asp?id=226">Chenonceau</A></td>
		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0067402 -->
<TR class="tabell1"><td valign="top">
			
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Maria Stuart - drottning av Skottland</A> (1971) </nobr></td>

		<td valign="top"><a href="slottdetalj.asp?id=230">Bamburgh</A></td>
		<td valign="top">England</td></tr>
		
<!-- lastfilmid = tt0067402 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Maria Theresia</A> (1951) </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=100">Schönbrunn</A></td>
		<td valign="top">Österrike</td></tr>
		
<!-- lastfilmid = tt0043786 -->
<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Maria Theresia</A> (1980) </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=100">Schönbrunn</A></td>
		<td valign="top">Österrike</td></tr>
		
<!-- lastfilmid = tt0791126 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Marie Antoinette</A> (1938)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=222">Versailles</A></td>
		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0030418 -->
<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Marie Antoinette</A> (2006)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=222">Versailles</A></td>
		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0422720 -->
<TR class="tabell1"><td valign="top">
			
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Marie Antoinette</A> (2006) </nobr></td>

		<td valign="top"><a href="slottdetalj.asp?id=98">Vaux le Vicomte</A></td>

		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0422720 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Marple: A Murder Is Announced</A> (2005) </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=279">Eilean Donan</A></td>

		<td valign="top">Skottland</td></tr>
		
<!-- lastfilmid = tt0442685 -->
<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Merlin</A> (2008) Tv-serie </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=99">Pierrefonds</A></td>

		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt1199099 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Mio min Mio</A> (1987)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=279">Eilean Donan</A></td>

		<td valign="top">Skottland</td></tr>
		
<!-- lastfilmid = tt0093543 -->
<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Mission Impossible III</A> (2006)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=351">Caserta</A></td>

		<td valign="top">Italien</td></tr>
		
<!-- lastfilmid = tt0317919 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Molière</A> (2007)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=222">Versailles</A></td>

		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0796335 -->
<TR class="tabell1">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Monty Pythons galna värld</A> (1975) </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=261">Bodiam borg</A></td>

		<td valign="top">England</td></tr>
		
<!-- lastfilmid = tt0071853 -->
<TR class="tabell2">    

			<td valign="top">
			<a href="http://www.imdb.com/title/" target="_blank"><nobr>Moonraker</A> (1979)  </nobr>
			</td>

		<td valign="top"><a href="slottdetalj.asp?id=98">Vaux le Vicomte</A></td>

		<td valign="top">Frankrike</td></tr>
		
<!-- lastfilmid = tt0079574 -->

</TABLE>
</CENTER>

onkelborgMedlem sedan juli 2003555 inlägg

27 juli 2010 11:27#27

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?

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 11:31#28

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. :(

snowcatMedlem sedan feb. 2007220 inlägg

27 juli 2010 11:33#29

Den här koden ligger ute på nätet och funkar med klickbara länkar till rätt film på imdb

<!-- #INCLUDE FILE = "headerslott.asp" -->

<%
Dim bokstav
	bokstav = Request.QueryString("filmnamn")  
%>

<center><table width="480" border="0" cellpadding="3" cellspacing="0">
<tr><td height="25"></td></tr>
<tr class="rubrik"><td><img src="bilder/film3.jpg"> Filmer som spelats in på slott</font></td></tr>
<tr><td class="underrubrikcenter">Klicka på en bokstav för att sortera efter filmnamn. </TD></tr>
<tr><td height="10"></td></tr>

<CENTER>
<table width="500" class="bokstaver" border="0" cellpadding="3" cellspacing="0">
<tr>
<td><a href="filmer2.asp?bokstav=A">A</A> </td>
<td>	<a href="filmer2.asp?bokstav=B">B</A> </td>
<td>	<a href="filmer2.asp?bokstav=C">C</A> </td>
<td>	<a href="filmer2.asp?bokstav=D">D</A> </td>
<td>	<a href="filmer2.asp?bokstav=E">E</A> </td>
<td>	<a href="filmer2.asp?bokstav=F">F</A> </td>
<td>	<a href="filmer2.asp?bokstav=G">G</A> </td>
<td>	<a href="filmer2.asp?bokstav=H">H</A> </td>
<td>	<a href="filmer2.asp?bokstav=I">I</A> </td>
<td>	<a href="filmer2.asp?bokstav=J">J</A> </td>
<td>	<a href="filmer2.asp?bokstav=K">K</A> </td>
<td>	<a href="filmer2.asp?bokstav=L">L</A> </td>
<td>	<a href="filmer2.asp?bokstav=M">M</A> </td>
<td>	<a href="filmer2.asp?bokstav=N">N</A> </td>
<td>	<a href="filmer2.asp?bokstav=O">O</A> </td>
<td>	<a href="filmer2.asp?bokstav=P">P</A> </td>
<td>	<a href="filmer2.asp?bokstav=Q">Q</A> </td>
<td>	<a href="filmer2.asp?bokstav=r">R</A> </td>
<td>	<a href="filmer2.asp?bokstav=S">S</A> </td>
<td>	<a href="filmer2.asp?bokstav=T">T</A> </td>
<td>    <a href="filmer2.asp?bokstav=U">U</A> </td>
<td>	<a href="filmer2.asp?bokstav=V">V</A> </td>
<td>	<a href="filmer2.asp?bokstav=W">W</A> </td>
<td>	<a href="filmer2.asp?bokstav=X">X</A></td>
<td>	<a href="filmer2.asp?bokstav=Y">Y</A> </td>
<td>	<a href="filmer2.asp?bokstav=Z">Z</A> </td>
<td>	<a href="filmer2.asp?bokstav=Å">Å</A> </td>
<td>	<a href="filmer2.asp?bokstav=Ä">Ä</A> </td>
<td>	<a href="filmer2.asp?bokstav=Ö">Ö</A></td></tr>
</table>
</center>

<%
'************* 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")

'***************************************** 
%>
<CENTER>
 <TABLE CLASS="vtext" width="500" border="0" CELLSPACING="0" cellpadding="0">

<% If RecSet.EOF = True Then %>
<TR><TD HEIGHT="30"></TD></TR>
	<tr><td class="fel"><nobr>Ingen film med den bokstaven i databasen</nobr></td></tr>
<% Else %>
<tr valign="top"><td height="33" colspan="3"><img src="bilder/divider500.jpg"></td></tr>

<tr class="yrkenlista"><td>Film</td> <td>Slott</td> <td></td></tr> 
	
<%	Do While Not RecSet.EOF 

if intRowColor = 0 Then
    	Response.Write "<TR class=""tabell1"">"
    	intRowColor = 1
    Else
    	Response.Write "<TR class=""tabell2"">"
    	intRowColor = 0
    End if
%>        
	<td valign="top"><a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%></nobr></td>
	<td valign="top"><NOBR><a href="slottdetalj.asp?id=<%=RecSet("slottsid")%>"><%=RecSet("slottsnamn")%></NOBR></A></td>
	<td valign="top"><%=RecSet("land")%></td></tr>

<%
'*** Loop samt DB-close *****
	RecSet.MoveNext
	Loop
	
	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing
	
	End if
'****************************
%>
</table>
</CENTER>
<!-- #INCLUDE FILE = "footer.asp" -->

och den här koden har jag hemma på stationära:

<!-- #INCLUDE FILE = "headerslott.asp" -->

<%
Dim bokstav
	bokstav = Request.QueryString("filmnamn")  
%>

<center><table width="480" border="0" cellpadding="3" cellspacing="0">
<tr><td height="25"></td></tr>
<tr class="rubrik"><td><img src="bilder/film3.jpg"> Filmer som spelats in på slott</font></td></tr>
<tr><td class="underrubrikcenter">Klicka på en bokstav för att sortera efter filmnamn. </TD></tr>
<tr><td height="10"></td></tr>

<CENTER>
<table width="500" class="bokstaver" border="0" cellpadding="3" cellspacing="0">
<tr>
<td><a href="filmer2.asp?bokstav=A">A</A> </td>
<td>	<a href="filmer2.asp?bokstav=B">B</A> </td>
<td>	<a href="filmer2.asp?bokstav=C">C</A> </td>
<td>	<a href="filmer2.asp?bokstav=D">D</A> </td>
<td>	<a href="filmer2.asp?bokstav=E">E</A> </td>
<td>	<a href="filmer2.asp?bokstav=F">F</A> </td>
<td>	<a href="filmer2.asp?bokstav=G">G</A> </td>
<td>	<a href="filmer2.asp?bokstav=H">H</A> </td>
<td>	<a href="filmer2.asp?bokstav=I">I</A> </td>
<td>	<a href="filmer2.asp?bokstav=J">J</A> </td>
<td>	<a href="filmer2.asp?bokstav=K">K</A> </td>
<td>	<a href="filmer2.asp?bokstav=L">L</A> </td>
<td>	<a href="filmer2.asp?bokstav=M">M</A> </td>
<td>	<a href="filmer2.asp?bokstav=N">N</A> </td>
<td>	<a href="filmer2.asp?bokstav=O">O</A> </td>
<td>	<a href="filmer2.asp?bokstav=P">P</A> </td>
<td>	<a href="filmer2.asp?bokstav=Q">Q</A> </td>
<td>	<a href="filmer2.asp?bokstav=r">R</A> </td>
<td>	<a href="filmer2.asp?bokstav=S">S</A> </td>
<td>	<a href="filmer2.asp?bokstav=T">T</A> </td>
<td>    <a href="filmer2.asp?bokstav=U">U</A> </td>
<td>	<a href="filmer2.asp?bokstav=V">V</A> </td>
<td>	<a href="filmer2.asp?bokstav=W">W</A> </td>
<td>	<a href="filmer2.asp?bokstav=X">X</A></td>
<td>	<a href="filmer2.asp?bokstav=Y">Y</A> </td>
<td>	<a href="filmer2.asp?bokstav=Z">Z</A> </td>
<td>	<a href="filmer2.asp?bokstav=Å">Å</A> </td>
<td>	<a href="filmer2.asp?bokstav=Ä">Ä</A> </td>
<td>	<a href="filmer2.asp?bokstav=Ö">Ö</A></td></tr>
</table>
</center>

<%
'************* 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") 
'***************************************** 
%>

<CENTER>
 <TABLE CLASS="vtext" width="500" border="0" CELLSPACING="0" cellpadding="0">

<% If RecSet.EOF = True Then %>
	<TR><TD HEIGHT="30"></TD></TR>
	<tr><td class="fel"><nobr>Ingen film med den bokstaven i databasen</nobr></td></tr>

	<% Else %>

	<tr valign="top"><td height="33" colspan="3"><img src="bilder/divider500.jpg"></td></tr>
	<tr class="yrkenlista"><td>Film</td> <td>Slott</td> <td>Land</td></tr> 
	
<%	
		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 "<TR class=""tabell1"">"
				intRowColor = 1
		Else
				Response.Write "<TR class=""tabell2"">"
				intRowColor = 0
		End if
%>    

			<td valign="top">
			<a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%></A> </nobr>
			</td>
<%
		Else

			' this film is the same as last film, show same colour
			If intRowColor = 1 Then
				Response.Write "<TR class=""tabell1""><td valign=""top"">"
			Else
				Response.Write "<TR class=""tabell2""><td valign=""top"">"
			End if
			%>
			
			<a href="http://www.imdb.com/title/<%=RecSet("filmid")%>" target="_blank"><nobr><%=RecSet("filmnamn")%> </A></nobr></td>
<%
		End If
		lastfilmid=RecSet("filmid")

		' always print
		%>
		<td valign="top"><a href="slottdetalj.asp?id=<%=RecSet("slottsid")%>"><%=RecSet("slottsnamn")%></A></td>
		<td valign="top"><%=RecSet("land")%></td></tr>
		<%
		
		 

'*** Loop samt DB-close *****
	RecSet.MoveNext
	Loop
	
	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing
	
	End if
'****************************
%>

</TABLE>
</CENTER>
<!-- #INCLUDE FILE = "footer.asp" -->