---
title: "Patrik B, eller emission släng en titt om ni har tid.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6595-patrik-b-eller-emission-släng-en-titt-om-ni-har-tid"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erka"
published: "2000-09-09T20:27:00.000Z"
updated: "2000-09-14T20:57:00.000Z"
replies: 7
views: 264
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/6595-patrik-b-eller-emission-släng-en-titt-om-ni-har-tid"
---

# Patrik B, eller emission släng en titt om ni har tid..

## #1 — erka, 2000-09-09T20:27Z

Hej om någon har tid att läsa igenom detta och se vad som är korkat gjort vore det supersnällt...tacksamhets skulld....=)När ni har tid...Eller någon annan som är klippa på databaser å dylikt får gärna kika..tacksam för all hjälp

Jag har 4:a tabeller

```
FILM
film_langd - längd på film
film_res - pm, rescension
fiml_insp - inspelnings år
film_regiid - regissörs id
film_bild - bild
film_namn - namnet på filmen (primär nyckel)
film_filmid - räknare 
film_filmid - räknare
REGI
regi_fodd - årtal 
regi_hist - bakgrund
regi_bild - bild
regi_namn - namn på regisör
regi_regiid - räknare (primär nyckel)
SKADIS
skadis_skadisid - namnet (primär nyckel)
skadis_fodd - årtal
skadis_hist - bakgrund
skadis_bild - bild
SLINK
Slink_namn - Namnet på skådisen
Slink_id - räknare (primär nyckel)
Slink_filmid - vilket film 
Slink_filmnamn - vad skådisen heter i filmen
```

Det var tabellerna...Här kommer sidorna

```
INDEX.ASP
<%@ LANGUAGE=VBScript %>
<%
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/filmer.mdb")
Connect.Open DSNtemp
SQLStmt = "SELECT * FROM FILM ORDER BY FILM_NAMN"
Set RS = Connect.Execute(SQLStmt)
%>
<b>Filmer</b><br>
<% Do until RS.EOF %> 
<a href="film.asp?id=<%=RS("film_filmid")%>"><%=RS("film_namn")%></a><br>
<%RS.MoveNext
Loop
RS.Close
Connect.Close
%>

FILM.ASP
<%@ LANGUAGE=VBScript %>
<%
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/filmer.mdb")
Connect.Open DSNtemp
SQLStmt = "SELECT f.film_filmid, f.film_langd, f.film_namn, f.film_res, f.film_insp, f.film_regiid, f.film_bild, r.regi_regiid, r.regi_fodd, s.slink_namn, s.slink_filmnamn, s.slink_id, s.slink_filmid FROM FILM f, REGI r, SLINK s WHERE f.film_filmid = " & Request.Querystring("id") & " AND r.regi_namn = f.film_regiid AND s.slink_filmid=f.film_namn"
Set RS = Connect.Execute(SQLStmt)
%>
<b>Film</b><br>

<%=RS("film_namn")%><br>
Längd: <%=RS("film_langd")%><br>
<a href="regi.asp?id=<%=RS("regi_regiid")%>"><%=RS("film_regiid")%></a><br>
Inspelnings år: <%=RS("film_insp")%><br><br>
Rescension: <br><%=RS("film_res")%>

<br><br>Skådisar:<br>
<% Do Until RS.EOF %>
<%=RS("slink_filmnamn")%>:<a href="skadis.asp?id=<%=RS("slink_namn")%>"><%=RS("slink_namn")%></a><br>
<% 
RS.MoveNext
Loop
RS.Close
%>

REGI.ASP
<%@ LANGUAGE=VBScript %>

<%

Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/filmer.mdb")
Connect.Open DSNtemp
SQLStmt = "SELECT f.film_filmid, f.film_namn, f.film_regiid,  r.regi_namn, r.regi_hist, r.regi_regiid, r.regi_fodd FROM FILM f, REGI r WHERE r.regi_regiid = " & Request.Querystring("id") & " AND r.regi_namn = f.film_regiid"
Set RS = Connect.Execute(SQLStmt)
%>
<b>Regi</b><br>

<%=RS("regi_namn")%><br>
Född:<%=RS("regi_fodd")%><br>
Vem är :<%=RS("regi_hist")%><br>

<br>
Andra filmer regiserade av <%=RS("regi_namn")%>:<br>
<% Do Until RS.EOF %>
<a href="film.asp?id=<%=RS("film_filmid")%>"><%=RS("film_namn")%></a><br>
<% 
RS.MoveNext
Loop
RS.Close
%>

SKADIS.ASP
<%@ LANGUAGE=VBScript %>

<%

Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/filmer.mdb")
Connect.Open DSNtemp
SQLStmt = "SELECT s.skadis_skadisid, s.skadis_fodd, s.skadis_hist, s.skadis_bild, f.film_filmid, f.film_namn, sl.slink_namn, sl.slink_filmid, sl.slink_filmnamn FROM FILM f, SKADIS s, SLINK sl WHERE s.skadis_skadisid = '" & Request.Querystring("id") & "' AND sl.slink_namn = '" & Request.Querystring("id") & "' AND f.film_namn = sl.slink_filmid" 
Set RS = Connect.Execute(SQLStmt)
%>

<%=RS("skadis_skadisid")%><br>
<%=RS("skadis_fodd")%><br>
<%=RS("skadis_hist")%><br>

Filmer medverkande

<br>
<% Do Until RS.EOF %>
<a href="film.asp?id=<%=RS("film_filmid")%>"><%=RS("slink_filmid")%></a><br>
<% 
RS.MoveNext
Loop
RS.Close
%>
```

Mycket kod,men det fungerar bra, vad är nackdelen med att löst det (utan arays som du skrev om patrik?)...Är det korkad layout på databasen, skådis namnet finns ju med på 2 ställen likaså filmnamnet..

MYCKET TACKSAM FÖR MINST KOLL!

Permalänk: https://www.webforum.nu/p/6595

## #2 — erka, 2000-09-09T20:31Z

Problemet blir ju om det inte finns någon räknas upp i tabellen SLINK i tabellen SKADIS, då hittar han det ju inte..ska man lägga in en if sats måntro ???

Permalänk: https://www.webforum.nu/p/246488

## #3 — erka, 2000-09-09T20:33Z

månjja fjåågoj nu i böjan kanske. Är det korkat att ha med så långa select sattser som jag har...tar det mycket mycket mer tid att ladda sidorn då ?

Permalänk: https://www.webforum.nu/p/246489

## #4 — erka, 2000-09-12T11:58Z

ingen som har tid att kolla vad som är kasst med denna tabell och lösning ?

Permalänk: https://www.webforum.nu/p/246490

## #5 — emission, 2000-09-12T14:47Z

Inget större fel, men i de tre undre skripten gör du en sökning som plockar ut t.ex. filmnamnet i varje rad, trots att det bara används/listas överst, en gång. 
Det är alltid svårt att analysera vad som är bäst, men rent generellt innebär detta mer jobb för databasen än om du skulle söka ut "engångsinformationen" separat, och "listinformationen" därefter. En annan variant är att man skickar med namnet etc. direkt i querystringen, så slipper du sökningen. Inte lika tjusigt, men snällt och fint.

Permalänk: https://www.webforum.nu/p/246491

## #6 — erka, 2000-09-13T15:34Z

tack så mycket för hjälpen ! exakt vad menar du, förstod inte riktigt..är ny på sånna här select sattser..

Permalänk: https://www.webforum.nu/p/246492

## #7 — emission, 2000-09-13T16:26Z

Vilken del ska jag förklara?

Permalänk: https://www.webforum.nu/p/246493

## #8 — erka, 2000-09-14T20:57Z

de tre undre skripten gör du en sökning som plockar ut t.ex. filmnamnet i varje rad, trots att det bara används/listas överst, en gång. 

Tack på förhand....

Permalänk: https://www.webforum.nu/p/246494

---

Tråden på webben: https://www.webforum.nu/amne/asp/6595-patrik-b-eller-emission-släng-en-titt-om-ni-har-tid