---
title: "mer spel sidor koder =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12466-mer-spel-sidor-koder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2001-11-03T22:27:00.000Z"
updated: "2001-11-05T15:05:00.000Z"
replies: 12
views: 292
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/12466-mer-spel-sidor-koder"
---

# mer spel sidor koder =)

## #1 — voigtann1, 2001-11-03T22:27Z

Okey.. jobbiga Voigtan e tillbax efter 4 minuter.. nu vill han ha en kod som typ tvspel.nu har när man trycker på en bild så öppnas det i:
bilder.asp?bild=minbild.gif

jag behöver en snabb kod som är lätt att andra om eller hur jag ska gå till väga.. måste jag skapa en hel databas med alla bilder i eller?

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

## #2 — dahlgren, 2001-11-04T00:04Z

Spara alla sökvägar till bilderna i en databas.
på första sidan skriver du

```
<%
Do Until RecSet.EOF
%>
<a href=bild.asp?m=ledare&id="& RecSet("id") &"><img src='"& RecSet("thumb") &"' border=0></a>"
<%
RecSet.MoveNext
Loop
RecSet.Close
Connection.Close
%>
```

Eller nått liknande beroende på hur du vill att länken ska se ut.Du måste även ha med databas kopplingen.
bild.asp

```
<%
ID = request.querystring("ID")
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../databas.mdb"))
SQL="SELECT * from album WHERE ID = "& ID 
SET RS = my_conn.execute(SQL)
%>
<img src="<%=RS("bild")%>" border="0">
```

Hoppas du blir lite klokare av detta.

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

## #3 — voigtann1, 2001-11-04T08:23Z

jepps =) tackar!

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

## #4 — voigtann1, 2001-11-04T08:28Z

Okey.. här kommer en svår nöt:
Jag har en sida som heter spel.asp
där ska det typ vara spel.asp?ID=1
Då kommer det info om spelet. Jag vill att längst ner på sidan ska den ladda alla bilder just för det spelet.. hur gör jag?

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

## #5 — dahlgren, 2001-11-04T09:34Z

Du gör en till kolumn som heter spel och i den skriver du samma varde på alla saker som hör ihop med samma spel. 
Tex mario för mario

```
spel = request.querystring("spel")
SQL="SELECT * from album WHERE spel = "& spel
```

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

## #6 — voigtann1, 2001-11-04T11:20Z

gör inte den koden typ om jag har tryckt på bilden mario.jpg så att den öppna en ny sida där man kan typ ha en rubrik där det står Mario 64
och sen kommer bilden?

jag vill att alla bilder listas upp just för mario på spel.asp?ID=1

längst ner på sidan typ ska det vara mini bilder på dom stora bildena..

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

## #7 — dahlgren, 2001-11-04T12:05Z

när u använder spel.asp?id=1 s å finns det bara en rad som kan vara id 1 men om man gör som jag skrev så kan väljer den alla saker som har med spelet mario att göra.

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

## #8 — voigtann1, 2001-11-04T12:06Z

ska göra en test kod med din kod.. tackar på förhand om det fungerar :)

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

## #9 — solbulle, 2001-11-04T14:43Z

voigtann1: Lite OT

Jag är bra sugen på att se vad du har åstadkommit eftersom du är en så flitig faktasökare här på forumet.

Din länk i din signatur verkar inte fungera? Du har ingen annan adress som fungerar?

\*Nyfiken\*

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

## #10 — voigtann1, 2001-11-04T14:51Z

hehe.. voigtan.org e gammal typ.. har inte den ute på nätet ännu.. men om du vill så  kontakta mej på Icq: 6626598 så kan vi ju se om du vill se sidan =)

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

## #11 — cHeMiCaL-X, 2001-11-04T14:52Z

jag skulle gjärna vilja se sidan :)

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

## #12 — voigtann1, 2001-11-04T14:56Z

adda mej då :)

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

## #13 — voigtann1, 2001-11-05T15:05Z

\*host\* its me again :r
jag får bara errors:

```
<head>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\voigtan\spel\db\gn.mdb"
Set Spel = Server.CreateObject("ADODB.Recordset")

SPEL_info = "SELECT * FROM Spel WHERE id=" & Request.QueryString("id")
Spel.Open SPEL_info, Connect ,3 ,3

%>
<title>GameNotes - <% =Spel("Spel") %></title>
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#0072BC">
<tr>
    <td width="127" background="meny/_top.jpg" height="8"></td>
    <td width="*" rowspan="3"><p class="gntop" ALIGN=RIGHT><% =Spel("Spel") %></p>
<font class="text5">Skriven av: <% =Spel("Författare") %>, <% =Spel("Datum") %></font>
    <br>
      
    <table width="100%" border="0" class="text1">
      <tr> 
        <td width="*%"> 
          <% =Spel("Resention1") %>
        </td>
        <td width="1px" bgcolor="#003680"></td>
		 <td width="45%"> 
		          <% =Spel("Resention2") %>
       </td>
        <td width="125"> 
          <table width="125" border="0" align="right" class="gntop">
            <tr><%
spelis = spel("konsoll") 
Select Case spelis
  Case "SNES"
    konso = "Super Nintendo"
  Case "GBA"
    konso = "GameBoy Advanced"
  Case "DC"
    konso = "DreamCast"
  Case "GC"
    konso = "GameCube"
  Case "GB"
    konso = "GameBoy"
  Case "GBC"
    konso = "GameBoy Color"
  Case "NES"
    konso = "Nintendo"
  Case "pc"
    konso = "PC"
  Case "PS"
    konso = "Playstation"
  Case "PS2"
    konso = "Playstation 2"
  Case "n64"
    konso = "Nintendo 64"
  Case "SMD"
    konso = "Sega Mega Drive"
  Case "XOBX"
    konso = "Xbox"
End Select
%><font class="info"><b>Fullständig speltitel:</b><br>
  <%= spel("spel") %><br>
<B>Konsoll:</b><br>
   <%= konso %><br>
<B>Antal spelare:</b><br>
  <%= spel("antalspelare") %><br>
<B>Genre:</b><br>
  <%= spel("genre") %><br>
<B>Utvecklare:</b><br>
  <%= spel("utvecklare") %><br>
<%
Dim ljud, grafik, kontroll, hallbarhet, spelgladje, Summa 

ljud = spel("ljud")
grafik = spel("grafik")
kontroll = spel("kontroll")
hallbarhet = spel("Hållbarhet")
spelgladje = spel("Spelglädje")

Summa = ljud+grafik+kontroll+hallbarhet+spelgladje
%> </font><br>
		 </tr> 
	        <tr> 
              <td class="meny">
Ljud: <% =Ljud %><br>
Grafik: <% =grafik %><br>
Kontroll: <% =Kontroll %><br>
Hållbarhet: <% =Hallbarhet %><br>
Spelgl&auml;dje: <% =Spelgladje %><hr size="1">
Totalt Betyg: <% =summa %>/50
        </td>
      </tr>
    </table>
        </td>
      </tr>
    </table>
<%
Set kom = Server.CreateObject("ADODB.Recordset")
gnSQL = "Select * From kommentarer where spelid ='"& Request.QueryString("id") &"'"
kom.Open gnSQL, Connect, 3, 3

Dim antalettor
antalettor = kom.recordcount
%><font class="text1">
<hr color="#003680" size="1">
<b>Kommentarer(<%= antalettor %> ) &#0124; <a href="#" onClick="MM_openBrWindow('add_com.asp?id=<%=spel("ID")%>','addkomentar','width=500,height=300')">L&auml;gg 
till komentar</a> </b>
<hr color="#003680">
<%kom.close
SPEL_info2 = "Select * From kommentarer WHERE spelid = '"& Request.QueryString("id") &"'"
kom.Open SPEL_info2, Connect
Do Until kom.EOF
%>
<b><%=kom("Författare")%>, <%=kom("datum")%><br></b>
<%=kom("IDkommentar")%>
<hr color="#003680" size="1">
<%
kom.movenext
loop
spel.close

%></font>
</body></html>
```

kan någon fixar det???? kvittar vad jag gör jag får bara errors typ.. om jag fixar en sak.. då feplar sej koden tack vara att den skulle vara så typ etc etc.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12466-mer-spel-sidor-koder