Komenterar spel

Du har en databas med spelen och din text och allt det.

Sen har du en annan databas där kommentarerna lagras. Där lagrar du även ID:t till spelet som kommentaren gäller.

Martin: Du menar väl olika tabeller hoppas jag?
Tar liiite mindre plats då.

Mjo

vi har en databas för spel
och en databas för komentarer

Spel.asp?id=1

Då kan man ju bara ha en komentar ju.. om man ska köra med ID elller hur?
Det e just det jag sitter fast vid.. då måste man ju skapa en databas för för varje spels komentar och på så sätt kommer databasen att blir stor i storlek. Jag fattar inte hur man ska fixar det.

Nej. Har du en egen tabell/databas med kommentarerna och lagrar ID:t på spelet som kommentaren tillhör så kan du ju lagra hur många kommentarer som hellst.

Så här kan tabellerna se ut till exempel:

Spel
- ID
- info
- tillverkare
- pris

Kommentarer
- ID
- kommentar
- spelID <-- här lagrar du ID:t på spelet
[/pre]

hur då? nu låter jag dum.. jag kan inte så många koder för ASP kan några stycken men typ inte alla.. skulle bli glad om du kúnde göra ett exempel lr ngt så att jag har något att gå efter tackar i förhand.

Börja med att bara använda 1 databas.
I den har du en tabell med spelen och texten...

Uppbyggnad speltabellen:
spelid - räknare
spel - text
kommentarer - PM

Uppbyggnad kommentartabellen:
kommentarid - räknare
kommentar - PM
kommentartill - tal

När du vill presentera kommentarer för ett spel med tex spelid 1.

SQL = "Select * From kommentarer WHERE  kommentartill = " & Request.QueryString("spelid") & ""
rs.open SQL,Connect

Detta är principen jag brukar använda...

R: argh, martin han före

Okey... nu har jag skapat min databas
själva spel sidans kod är:

<head>
<%
Const adLockOptimistic = 3
Const adOpenStatic = 3
Const adBookmarkFirst = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\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, adOpenStatic, adLockOptimistic
%>
<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="10%"> 
          <table width="120" border="0" align="right" class="gntop">
            <tr> 
              <td class="meny"> 
                <div align="right">Ljud:</div>
              </td>
              <td class="meny"> <b> 
                <% =Spel("Ljud") %>
                </b> </td>
            </tr>
            <tr> 
              <td class="meny"> 
                <div align="right">Grafik:</div>
              </td>
              <td class="meny"> <b> 
                <% =Spel("grafik") %>
                </b> </td>
            </tr>
            <tr> 
              <td> 
                <div align="right">Kontroll:</div>
              </td>
              <td> <b> 
                <% =Spel("Kontroll") %>
                </b> </td>
            </tr>
            <tr> 
              <td class="meny"> 
                <div align="right">Livsl&auml;ngd:</div>
              </td>
              <td class="meny"> <b> 
                <% =Spel("Livslängd") %>
                </b> </td>
            </tr>
            <tr> 
              <td class="meny"> 
                <div align="right">Spelgl&auml;dje:</div>
              </td>
              <td class="meny"> <b> 
                <% =Spel("Spelglädje") %>
                </b> </td>
            </tr>
            <tr> 
              <td class="meny"> 
                <div align="right">Tid:</div>
              </td>
              <td class="meny"> <b> 
                <% =Spel("Tid") %>
                </b> </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
      
    <br>
      <br>
</body></html>

Längst ner så ska det står:
Läs alla kommentarer (0)Skriv en egen kommentar

och sen kommer kommentarer om det finns några...

det är här jag behöver hjälp med koder och annat skojs..
tackar i förhand.

Vid kommentar så ska det vara:
Namn på person som skrevit det och när dom har skrevit det... typ..

Om detta låter som rena grekiskan hur jag vill ha den kolla typ på www.tvspel.nu ungefär så vill jag ha det att man kan skriva in på så sätt..

Det där ska jag nog kunna hjälpa dig med. Kan ta en stund att göra.

tack!

jag måste gå nu igen

kan du göra en sida själv där man får posta egna kommentarer?

Här kommer bara det lilla jag gjort. Det är inte snygg kod alls och inte optimerad. Kan hjälpa dej senare om du vill...

<head>
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\applications\test\db.mdb" 
Set Spel = Server.CreateObject("ADODB.Recordset")

SPEL_info = "Select * From spel WHERE id = " & Request.QueryString("id") & ""
Spel.Open SPEL_info, Connect
%>
<title>GameNotes - <% =Spel("Spel") %></title>

</head>
<body bgcolor="#0072BC">

<% =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="10%"> 
<table width="120" border="0" align="right" class="gntop">
<tr> 
<td class="meny"> 
<div align="right">Ljud:</div>
</td>
<td class="meny"> <b> 
<% =Spel("Ljud") %>
</b> </td>
</tr>
<tr> 
<td class="meny"> 
<div align="right">Grafik:</div>
</td>
<td class="meny"> <b> 
<% =Spel("grafik") %>
</b> </td>
</tr>
<tr> 
<td> 
<div align="right">Kontroll:</div>
</td>
<td> <b> 
<% =Spel("Kontroll") %>
</b> </td>
</tr>
<tr> 
<td class="meny"> 
<div align="right">Livslängd:</div>
</td>
<td class="meny"> <b> 
<% =Spel("Livslängd") %>
</b> </td>
</tr>
<tr> 
<td class="meny"> 
<div align="right">Spelglädje:</div>
</td>
<td class="meny"> <b> 
<% =Spel("Spelglädje") %>
</b> </td>
</tr>
<tr> 
<td class="meny"> 
<div align="right">Tid:</div>
</td>
<td class="meny"> <b> 
<% =Spel("Tid") %>
</b> </td>
</tr>
</table>
</td>
</tr>
</table><br><br>
<b>Kommentarer</b>:
<hr>
<%
spel.close

SPEL_info = "Select * From kommentarer WHERE kommentartill = " & Request.QueryString("id") & ""
Spel.Open SPEL_info, Connect
do while not spel.eof
%>
<b><%=spel("författare")%>, <%=spel("datum")%><br></b>
<%=spel("kommentar")%>
<hr>
<%
spel.movenext
loop
%>

<br>
<br>
</body></html>

Du får skapa en tabell som heter kommentarer där du lägger in de fälten som används i det kommentarstycket.
När du ska posta en ny kommentar, ska "kommentartill" fältet ha samma värde som det spels Id du vill ha kommentaren till...

någon annan kanske kan fortsätta ...
hinner inte

jag får inte igång din kod.. den verkar vara bra... snälla! behöver verkligen hjälp.

får fel på rad 88:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07'

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.

/spel/kom.asp, rad 88

SPEL_info = "Select * From kommentarer WHERE spelid = "& Request.QueryString("id") &""
spel.Open SPEL_info, Connect

Om det är något som inte fungerar, beskriv vad.

Om du får något felmeddelande, visa det.

Att bara säga att du inte får igång det är för vagt.

det har jag ju gjort!!! hatar när ni inte läser pojkar:
ERROR MESSAGE HERE:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07'

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.

/spel/kom.asp, rad 88

END OF ERROR MESSAGE

SER DU?????