webForumDet fria alternativet
Logga in / Bli medlem

Jag igen om Spel sida..

ASP

12 svar · 291 visningar · startad av voigtann1

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
Frågan#1

Okey.. jag har kört med förkortningar på konsollerna men typ när man trycker på super nintendo (speldb.asp?konsoll=snes

Så vill jag att den ska skriva vid typ Toppen
Super Nintendo istället för Snes
etc etc..
Jag försökte göra:

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

men det visade sej att det var fel. :r
pinsamt men: hur gör jag :r

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

LarsGMedlem sedan dec. 200012 464 inlägg
#2
if konsoll = "snes" then
Response.write "Super Nintendo"
end if
%>

------------------
essentitia preter non sans multiplicandum

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#3
<%
if Request.QueryString("konsoll") = "Snes" then Response.write "SuperNintendo"
elseif Request.QueryString("konsoll") = "dc" then
Response.write "Dreamcast"
end if
%>

------------------
"Where monkeys and nutty proffesors live. That's where i live"

[Redigerat av cHeMiCaL-X den 03 nov 2001]

[Redigerat av cHeMiCaL-X den 03 nov 2001]

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#4

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!

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

[Redigerat av voigtann1 den 03 nov 2001]

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#5

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

------------------
"Where monkeys and nutty proffesors live. That's where i live"

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#6
<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

:)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#7

Vart skapar du ditt recordset?

------------------
"Where monkeys and nutty proffesors live. That's where i live"

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#8

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

------------------
"Where monkeys and nutty proffesors live. That's where i live"

[Redigerat av cHeMiCaL-X den 03 nov 2001]

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#9

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

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#10

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

------------------
"Where monkeys and nutty proffesors live. That's where i live"

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#11

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?

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

cHeMiCaL-XMedlem sedan okt. 2001208 inlägg
#12

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

------------------
"Where monkeys and nutty proffesors live. That's where i live"

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#13

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

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

271 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
136 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
135 ms — ändringar (db)