Jag igen om Spel sida..

if konsoll = "snes" then
Response.write "Super Nintendo"
end if
%>

<%
if Request.QueryString("konsoll") = "Snes" then Response.write "SuperNintendo"
elseif Request.QueryString("konsoll") = "dc" then
Response.write "Dreamcast"
end if
%>

gjort något som fungerar:

<%
spelis = spel("konsoll") 
Select Case spelis
  Case "SNES"
    kons = "Super Nintendo"
  Case "GBA"
    kons = "GameBoy Advanced"
  Case "DC"
    kons = "DreamCast"
  Case "GC"
    kons = "GameCube"
  Case "gb"
    kons = "GameBoy"
  Case "gbc"
    kons = "GameBoy Color"
  Case "Nes"
    kons = "Nintendo"
  Case "pc"
    kons = "PC"
End Select %>
<%
If Spel.EOF AND spel.BOF Then
Response.write "Tyvärr, ingen som har skrevit något om:"&kons
ELSE
%><% = kons %><br>
<%
Do Until Spel.EOF
%><% =Spel("Rubrik") %><br><% Spel.MoveNext
Loop
end if%>

MEN! jag måste ha:

<%
spelis = spel("konsoll") 
Select Case spelis
  Case "SNES"
    kons = "Super Nintendo"
  Case "GBA"
    kons = "GameBoy Advanced"
  Case "DC"
    kons = "DreamCast"
  Case "GC"
    kons = "GameCube"
  Case "gb"
    kons = "GameBoy"
  Case "gbc"
    kons = "GameBoy Color"
  Case "Nes"
    kons = "Nintendo"
  Case "pc"
    kons = "PC"
End Select %>

efter:

<%
If Spel.EOF AND spel.BOF Then
Response.write "Tyvärr, ingen som har skrevit något om:"&kons
ELSE
%><% = kons %><br>
<%
Do Until Spel.EOF
%><% =Spel("Rubrik") %><br><% Spel.MoveNext
Loop
end if%>

men då kan jag inte använda mej av:

Response.write "Tyvärr, ingen som har skrevit något om:"&kons

och det hade jag velat ha om någon fixar detta så blir jag glad!

Kan du visa lite kod så kanske jag kan fixa fram någon lösning.

<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")

SPELinfo = "SELECT * FROM Spel WHERE Konsoll='" & replace(Request.QueryString("Konsoll"),"'","''") & "'"
Spel.Open SPELinfo, Connect, adOpenStatic, adLockOptimistic
%>
<title>GameNotes</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#A0C967">
<%
If Spel.EOF AND spel.BOF Then
Response.write "Tyvärr, ingen som har skrevit något om:"&kons
ELSE
spelis = spel("konsoll") 
Select Case spelis
  Case "SNES"
    kons = "Super Nintendo"
  Case "GBA"
    kons = "GameBoy Advanced"
  Case "DC"
    kons = "DreamCast"
  Case "GC"
    kons = "GameCube"
  Case "gb"
    kons = "GameBoy"
  Case "gbc"
    kons = "GameBoy Color"
  Case "Nes"
    kons = "Nintendo"
  Case "PC"
    kons = "PC"
End Select
%><% = kons %><br>
<%
Do Until Spel.EOF
%><% =Spel("Rubrik") %><br><% Spel.MoveNext
Loop
end if%>

<% Connect.Close %></body></html>

MEN! då fungerar inte:

Response.write "Tyvärr, ingen som har skrevit något om:"&kons

Vart skapar du ditt recordset?

kontakta mig via mail så ska jag fixa fram en lösning.. skicka hela koden med html, asp-script och db..

Varför ska du ha databasen? det e ju rätt onödigt och jag e ju inte så sugen på att ge dej den... jag har typ medlems information på den... allt du behöver veta om min Databas står i koden. en datablad som heter Spel
med en rubrik som heter Konsoll...
hela koden står ovan på några inlägg över... om du vill testa skapa en databas med allt detta.

Ursäkta om detta meddleande låter elakt men det är det inte.. men jag ser inte vitsen med att skicka databasen.. en massa dö tid tycker jag

ok, kan du göra en liten html mall om hur du vill ha det då?

Har kommit på felet men jag vet inte hur man ska lösa det:
Förut så har den kollat efter ett inlägg med just typ SNES i om det fanns så tog den det inlägget för Konsoll. men den ska ju egentligen ta från länken:
speldb.asp?konsoll=snes

Kan någon berätta hur man fixar detta?

kolla med mitt första inlägg i denna tråden

FIXAT den som bryr sej så är det:

<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")

SPELinfo = "SELECT * FROM Spel WHERE Konsoll='" & replace(Request.QueryString("Konsoll"),"'","''") & "'"
Spel.Open SPELinfo, Connect, adOpenStatic, adLockOptimistic

spelis = replace(Request.QueryString("Konsoll"),"'","''")
Select Case spelis
  Case "snes"
    kons = "Super Nintendo"
  Case "gba"
    kons = "GameBoy Advanced"
  Case "DC"
    kons = "DreamCast"
  Case "GC"
    kons = "GameCube"
  Case "gb"
    kons = "GameBoy"
  Case "gbc"
    kons = "GameBoy Color"
  Case "Nes"
    kons = "Nintendo"
  Case "PC"
    kons = "PC"
End Select
%>
<title>GameNotes</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#A0C967">
<%
If Spel.EOF AND spel.BOF Then
Response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""100%"">"
Response.write "  <tr>"
Response.write "    <td>"
Response.write "      <div align=""center"">Tyvärr, ingen som har skrivit om:"& kons &", databasen är tom just för "& kons &"</div>"
Response.write "    </td>"
Response.write "  </tr>"
Response.write "</table>"
ELSE
%><% = kons %><br>
<%
Do Until Spel.EOF
%><% =Spel("Rubrik") %><br><% Spel.MoveNext
Loop
end if%>

<% Connect.Close %></body></html>

har lagt till lite extra saker =) ska börja rensa lite =)