Notifikationer

Markér alle som læst Log ud

xxx222 Nybegynder

16. januar 2004 - 20:19 Der er 26 kommentarer og
1 løsning

Hjælp udtræk

Jeg er netop igang med at lave en side som lister en hel bunke online spil på nettet.

Jeg har et gammelt system i ASP (oprindeligt brugt til ringetoner). Jeg skal dig ha lavet systemet om, så jeg kan få hele systemet opdelt i kategorier... f.eks.

- Brætspil
- Fodboldspil
m.v.

Dvs. at når brugeren trykker på "brætspil" i menuen, da begynder systemet at kigge min db igennem i tabellen "kategori" efter poster i kategorien Brætspil og lister derefter dem på siden.

Jeg tror ikke det kræver de store justeringer, men kan ikke selv klare det, derfor beder jeg jer om hjælp. Udover det ovenstående skal siderne med reultaterne af brugerens forespørgelser sættes op til kun at vise 20 poster pr. side og automatisk linke til de resterende sider...

Kan nogen hjælpe??

Jeg har vedlagt den nuværende kode, hvis det kan være en hjælp..
Siden kan desuden ses, som den har kørt med ringetoner på www.sendbeskeder.dk/play2day

På forhånd tak!

Synes godt om

xxx222 Nybegynder

16. januar 2004 - 20:21 #1

KODEN

-------------------------->

<%
str_alfa = request.querystring("alfa")
bo_start = true
do while len(str_alfa) > 0
if bo_start = true then
str_sql1 = " left(navn,1) = '" & left(str_alfa, 1) & "'"
bo_start = false
else
str_sql1 = str_sql1 & " or left(navn,1) = '" & left(str_alfa, 1) & "'"
end if
str_alfa = right(str_alfa, len(str_alfa) - 1)
loop

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")
str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND " & str_sql1 & "ORDER BY navn"
Set rs = Conn.Execute (str_sql2)
%>
<SCRIPT language=javascript>
function se(id,h,b) {
window.open("popup.asp?id="+id,"new",

"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width="+b+",height="+h)
}
</SCRIPT>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Play2day</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
<table border="0" width="802" cellspacing="0" cellpadding="0" height="12" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000">
<tr>
<td width="100%" height="12">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#2C7DBA" height="21">
<tr>
<td width="100%" height="21" style="border-bottom: 1 solid #000000" bgcolor="#DF613C">
Play2day.dk
- Danmarks mest populære spil side!</td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="100%" height="74">
<table border="0" width="124%" height="60" cellspacing="0" cellpadding="0">
<tr>
<td width="300" height="40"><a href="http://www.newsdirect.dk/default.asp"><img src="newsdirectlogo.gif" border="0" width="300" height="60"></a></td>
<td width="486%" height="40">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="31">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="100%" bgcolor="#DF613C" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="19">
Hjem 
l  Spil  l  Konkurrencer 
l     </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="1" valign="top">
<table border="0" width="804" cellspacing="0" cellpadding="0" height="184">
<tr>
<td width="149" rowspan="2" height="184" valign="top">

</td>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0" background="middle.gif">
<tr>
<td width="100%">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<td width="463" height="184" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="35">
<tr>
<td width="100%" height="14" bgcolor="#DF613C">
-
Spil -
</td>
</tr>
<tr>
<td width="100%" height="21">
 

<div align="center">
<center>
<table height="43" width="427" bgColor="#000000" cellspacing="1">
<tr>
<td vAlign="middle" width="236" bgColor="#DF613C" height="19">Navn
på spillet</td>
<td vAlign="middle" width="168" bgColor="#DF613C" height="19">Telefon:</td>
<td vAlign="middle" width="138" bgColor="#DF613C" height="19">Hits:</td>
</tr>
<%
while not rs.eof or rs.bof
%>
<tr>
<td vAlign="top" width="534" bgColor="#FFFFFF" height="16"><a href="java script:se("<% = rs("id") %>",400,480)"><% = rs("navn") %>
</a></td>
<td vAlign="top" width="316" bgColor="#FFFFFF" height="16"><% = rs("tilmobil") %>
</td>
<td vAlign="top" width="138" bgColor="#FFFFFF" height="16"><% = rs("setgange") %>
</td>
</tr>
<%
rs.MoveNext
wend
%>
</table>
</center>
</div>

 
 
 
 
 
 
 
 
 
 
 
 

</td>
</tr>
</table>
</td>
</center>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="middle.gif">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<center>
<td width="150" valign="top" rowspan="2" height="184">
<div align="right">
<table border="0" width="149" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="463" height="21"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>

</body>

</html>
<%
rs.Close
Set rs = Nothing

Conn.Close
Set Conn = Nothing
%>

Synes godt om

rbl Praktikant

17. januar 2004 - 00:18 #2

Du bliver nok nødt til at lave en ny tabel i databasen. Kald den f.eks. "Spil". Den skal have felterne Titel, type, url or evt. hits. Type skal være integer, hvor f.eks. sætter brætspil til at være type 1. Din sql-streng skal være:
"select * from spil where type=" & request.querystring("alfa") & " order by titel acs".

Så skal du selvfølgelig også ændre tabellen, så den passer til felterne.

Synes godt om

rbl Praktikant

17. januar 2004 - 00:19 #3

hov:
acs = asc

Synes godt om

deeflate Nybegynder

17. januar 2004 - 00:25 #4

Prøv dette:

<%
kategori = request.querystring("kategori")
side = request.querystring("side")

str_alfa = request.querystring("alfa")
bo_start = true
do while len(str_alfa) > 0
if bo_start = true then
str_sql1 = " left(navn,1) = '" & left(str_alfa, 1) & "'"
bo_start = false
else
str_sql1 = str_sql1 & " or left(navn,1) = '" & left(str_alfa, 1) & "'"
end if
str_alfa = right(str_alfa, len(str_alfa) - 1)
loop

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")

str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND " & str_sql1 & " AND kategori = '" & kategori & "' ORDER BY navn"

rs.Open str_sql2, conn, 1

%>
<SCRIPT language=javascript>
function se(id,h,b) {
window.open("popup.asp?id="+id,"new",

"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width="+b+",height="+h)
}
</SCRIPT>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Play2day</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
<table border="0" width="802" cellspacing="0" cellpadding="0" height="12" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000">
<tr>
<td width="100%" height="12">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#2C7DBA" height="21">
<tr>
<td width="100%" height="21" style="border-bottom: 1 solid #000000" bgcolor="#DF613C">
Play2day.dk
- Danmarks mest populære spil side!</td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="100%" height="74">
<table border="0" width="124%" height="60" cellspacing="0" cellpadding="0">
<tr>
<td width="300" height="40"><a href="http://www.newsdirect.dk/default.asp"><img src="newsdirectlogo.gif" border="0" width="300"

height="60"></a></td>
<td width="486%" height="40">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="31">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="100%" bgcolor="#DF613C" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="19">
Hjem 
l  Spil  l  Konkurrencer 
l     </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="1" valign="top">
<table border="0" width="804" cellspacing="0" cellpadding="0" height="184">
<tr>
<td width="149" rowspan="2" height="184" valign="top">

</td>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0" background="middle.gif">
<tr>
<td width="100%">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<td width="463" height="184" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="35">
<tr>
<td width="100%" height="14" bgcolor="#DF613C">
-
Spil -
</td>
</tr>
<tr>
<td width="100%" height="21">
 

<div align="center">
<center>
<table height="43" width="427" bgColor="#000000" cellspacing="1">
<tr>
<td vAlign="middle" width="236" bgColor="#DF613C" height="19">Navn
på spillet</td>
<td vAlign="middle" width="168" bgColor="#DF613C" height="19">Telefon:</td>
<td vAlign="middle" width="138" bgColor="#DF613C" height="19">Hits:</td>
</tr>
<%
' ***************paging top

If request.Querystring("side") <> "" Then
page = request.Querystring("side")
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount

'paging-halløj

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " "
Else
Response.Write "<a href='?alfa=a&kategori=" & kategori & "&side=" & intNum & "'>"
response.Write intNum & "</a> "
End if

Next
'End if

' *******************//paging top slut

Do While Not rs.EOF And intRecCount > 0
%>
<tr>
<td vAlign="top" width="534" bgColor="#FFFFFF" height="16"><a href="java script:se("<% = rs("id") %>",400,480)"><% = rs("navn") %>
</a></td>
<td vAlign="top" width="316" bgColor="#FFFFFF" height="16"><% = rs("tilmobil") %>
</td>
<td vAlign="top" width="138" bgColor="#FFFFFF" height="16"><% = rs("setgange") %>
</td>
</tr>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop

End if

%>
</table>
</center>
</div>

 
 
 
 
 
 
 
 
 
 
 
 

</td>
</tr>
</table>
</td>
</center>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="middle.gif">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<center>
<td width="150" valign="top" rowspan="2" height="184">
<div align="right">
<table border="0" width="149" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="463" height="21"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>

</body>

</html>
<%
rs.Close
Set rs = Nothing

Conn.Close
Set Conn = Nothing
%>

I din includede fil menu udskriver du så linksene således:

<a href="?alfa=a&kategori=spil&side=1">Spil</a>
<a href="?alfa=a&kategori=braetspil&side=1">Brætspil</a>
osv.

Når du får implementeret bogstavvalg (alfa), skal det naturligvis inkluderes i querystrin'ene.

Synes godt om

deeflate Nybegynder

17. januar 2004 - 00:26 #5

Det eneste dette kræver af ændring i din tabel ringetoner er at du tilføjer et felt ved navn kategori(type:tekst).

Synes godt om

deeflate Nybegynder

17. januar 2004 - 00:32 #6

Og så selvfølgelig at du udfylder det nye felt med de respektive kategorier ;)

Synes godt om

xxx222 Nybegynder

17. januar 2004 - 13:02 #7

deeflate--->

Mange tak for dit svar. Det virker perfekt nu!
Jeg har et lille spørgsmål mere, som jeg vil høre om du hurtigt lige kunne besvare. Jeg vil gerne gøre det muligt for brugere at sortere i tabellen ved at trykke på f.eks. "Titel på spil" øverst i tabellen. Da skulle tabellen selv liste alle spilene i alfabetisk rækkefølge, det samme gælder for felterne "telefon" og "hits". Jeg har set det på massere af sider, så det må snildt kunne laves..

Jeg har accepteret dit svar, men det kunne være super hvis du gad svare på ovenstående også, så jeg kan få systemet helt færdigt :)

På forhåbd mange tak!!

/ Pete

Synes godt om

deeflate Nybegynder

17. januar 2004 - 13:19 #8

Det kan nemlig meget snildt laves.
Grundprincippet er det samme som kategorivalg. Du tilføjer bare "order" til din querystring, og denne sætter du så igennem linket til sortering.

F.eks.
<a href="?alfa=a&kategori=<%=kategori%>&side=<%=side%>&order=navn">Sorter efter titel</a>

Så tilføjer du

order = request.querystring("order")

i toppen af dokumentet

Og din querystring ændrer du så til

str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND " & str_sql1 & " AND kategori = '" & kategori & "' ORDER BY " & order

Husk at gå alle links med querystrings igennem og tilføj order.

Synes godt om

deeflate Nybegynder

17. januar 2004 - 13:21 #9

Du bør nok også vælge en standard-sortering.

Indsæt

if order = "" Then
order = "navn"
end if

under

order = request.querystring("order")

Dette bør du også gøre ved kategori...
(det er gjort med side nede ved *****paging top)

Synes godt om

xxx222 Nybegynder

17. januar 2004 - 14:09 #10

nu har jeg gjort hvad du skriver, men browseren melder fejl ved linje 28 -> rs.Open str_sql2, conn, 1

Se selv på http://www.sendbeskeder.dk/play2day/spil2.asp?alfa=s&kategori=sport

Synes godt om

deeflate Nybegynder

17. januar 2004 - 14:33 #11

Jeg får ikke fejlmeddelelsen - kun en "siden kan ikke vises"

Prøv:

<%
kategori = request.querystring("kategori")
if kategori = "" Then
kategori = "spil"
end if

side = request.querystring("side")

order = request.querystring("order")
if order = "" Then
order = "navn"
end if

str_alfa = request.querystring("alfa")
if str_alfa = "" then
str_alfa = "a"
end if

bo_start = true
do while len(str_alfa) > 0
if bo_start = true then
str_sql1 = " left(navn,1) = '" & left(str_alfa, 1) & "'"
bo_start = false
else
str_sql1 = str_sql1 & " or left(navn,1) = '" & left(str_alfa, 1) & "'"
end if
str_alfa = right(str_alfa, len(str_alfa) - 1)
loop

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")

str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND " & str_sql1 & " AND kategori = '" & kategori & "' ORDER BY " & order

rs.Open str_sql2, conn, 1

%>

<SCRIPT language=javascript>
function se(id,h,b) {
window.open("popup.asp?id="+id,"new",

"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width="+b+",height="+h)
}
</SCRIPT>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Play2day</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
<table border="0" width="802" cellspacing="0" cellpadding="0" height="12" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000">
<tr>
<td width="100%" height="12">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#2C7DBA" height="21">
<tr>
<td width="100%" height="21" style="border-bottom: 1 solid #000000" bgcolor="#DF613C">
Play2day.dk
- Danmarks mest populære spil side!</td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="100%" height="74">
<table border="0" width="124%" height="60" cellspacing="0" cellpadding="0">
<tr>
<td width="300" height="40"><a href="http://www.newsdirect.dk/default.asp"><img src="newsdirectlogo.gif" border="0" width="300"

height="60"></a></td>
<td width="486%" height="40">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="31">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="100%" bgcolor="#DF613C" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="19">
Hjem 
l  Spil  l  Konkurrencer 
l     </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="1" valign="top">
<table border="0" width="804" cellspacing="0" cellpadding="0" height="184">
<tr>
<td width="149" rowspan="2" height="184" valign="top">

</td>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0" background="middle.gif">
<tr>
<td width="100%">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<td width="463" height="184" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="35">
<tr>
<td width="100%" height="14" bgcolor="#DF613C">
-
Spil -
</td>
</tr>
<tr>
<td width="100%" height="21">
 

<div align="center">
<center>
<table height="43" width="427" bgColor="#000000" cellspacing="1">
<tr>
<td vAlign="middle" width="236" bgColor="#DF613C" height="19">Navn
på spillet</td>
<td vAlign="middle" width="168" bgColor="#DF613C" height="19">Telefon:</td>
<td vAlign="middle" width="138" bgColor="#DF613C" height="19">Hits:</td>
</tr>
<%
' ***************paging top

If request.Querystring("side") <> "" Then
page = request.Querystring("side")
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount

'paging-halløj

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " "
Else
Response.Write "<a href='?alfa=a&kategori=" & kategori & "&side=" & intNum & "'>"
response.Write intNum & "</a> "
End if

Next
'End if

' *******************//paging top slut

Do While Not rs.EOF And intRecCount > 0
%>
<tr>
<td vAlign="top" width="534" bgColor="#FFFFFF" height="16"><a href="java script:se("<% = rs("id") %>",400,480)"><% = rs("navn") %>
</a></td>
<td vAlign="top" width="316" bgColor="#FFFFFF" height="16"><% = rs("tilmobil") %>
</td>
<td vAlign="top" width="138" bgColor="#FFFFFF" height="16"><% = rs("setgange") %>
</td>
</tr>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop

End if

%>
</table>
</center>
</div>

 
 
 
 
 
 
 
 
 
 
 
 

</td>
</tr>
</table>
</td>
</center>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="middle.gif">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</td>
<center>
<td width="150" valign="top" rowspan="2" height="184">
<div align="right">
<table border="0" width="149" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="463" height="21"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>

</body>

</html>
<%
rs.Close
Set rs = Nothing

Conn.Close
Set Conn = Nothing
%>

linksene:

<a href="?alfa=a&kategori=<%=kategori%>&side=<%=side%>&order=navn">Sorter efter titel</a>
<a href="?alfa=a&kategori=<%=kategori%>&side=<%=side%>&order=setgange">Sorter efter hits</a>

osv.

Synes godt om

xxx222 Nybegynder

17. januar 2004 - 14:50 #12

Den ligger oppe nu. Nu virker det, men den trækker ikke længere data ud af db'en, hvis jeg f.eks. skriver: http://www.sendbeskeder.dk/play2day/spil2.asp?alfa=s&kategori=sport

Da skulle den finde en post i db'en:
Navn: Soccer, kategori Sport

Kan man forresten på en nem måde fjerne det der med alfa?? Dette system behøver ikke liste ikke kunne fange sider i alfabetisk orden, f.eks. http://www.sendbeskeder.dk/play2day/spil2.asp?DETTE SKAL FJERNES-->""""alfa=s""""&kategori=sport

Jeg behøver kun at skulle fange siderne i kategori-orden. dvs. "?kategori=sport" (F.eks.)...

Ved ikke helt om du er med, har prøvet at forklare det :)

Du skal selvfølgelig nok få nogle flere point for denne ekstra besvarelse!

Synes godt om

xxx222 Nybegynder

17. januar 2004 - 14:52 #13

den skal altså når jeg beder om at se kategorien "sport", give mig alle poster fra A-Å i pågældende kategori, uden at jeg behøver skrive ?alfa=abcdefghijklmopqerstuvyzæøå0123456789

Synes godt om

deeflate Nybegynder

17. januar 2004 - 15:13 #14

Skift dette:

<%
kategori = request.querystring("kategori")
if kategori = "" Then
kategori = "spil"
end if

side = request.querystring("side")

order = request.querystring("order")
if order = "" Then
order = "navn"
end if

str_alfa = request.querystring("alfa")
if str_alfa = "" then
str_alfa = "a"
end if

bo_start = true
do while len(str_alfa) > 0
if bo_start = true then
str_sql1 = " left(navn,1) = '" & left(str_alfa, 1) & "'"
bo_start = false
else
str_sql1 = str_sql1 & " or left(navn,1) = '" & left(str_alfa, 1) & "'"
end if
str_alfa = right(str_alfa, len(str_alfa) - 1)
loop

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")

str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND " & str_sql1 & " AND kategori = '" & kategori & "' ORDER BY " & order

rs.Open str_sql2, conn, 1

%>

ud med dette:

<%
kategori = request.querystring("kategori")
if kategori = "" Then
kategori = "spil"
end if

side = request.querystring("side")

order = request.querystring("order")
if order = "" Then
order = "navn"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")

str_sql2 = "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = '" & kategori & "' ORDER BY " & order

rs.Open str_sql2, conn, 1

%>

Og udskriv dine links i menu.asp uden alfa:

<a href="?kategori=spil">Spil</a>
<a href="?kategori=braetspil">Brætspil</a>
<a href="?kategori=sport">Sport</a>

osv.

<a href="?kategori=<%=kategori%>&side=<%=side%>&order=navn">Sorter efter titel</a>
<a href="?kategori=<%=kategori%>&side=<%=side%>&order=setgange">Sorter efter hits</a>

osv.

Synes godt om

deeflate Nybegynder

17. januar 2004 - 15:32 #15

Lagde lige mærke til at den ikke vil tage sidetallet med i querystring'en.

Ryk

If request.Querystring("side") <> "" Then
page = request.Querystring("side")
else
page = 1
end if

fra *******paging top

op i toppen af dokumentet lige under

side = request.querystring("side")

Og ændr dine links med side i querystring'en fra:

<a href="?kategori=<%=kategori%>&side=<%=side%>&order=navn">Sorter efter titel</a>

til:

<a href="?kategori=<%=kategori%>&side=<%=page%>&order=navn">Sorter efter titel</a>

Synes godt om

xxx222 Nybegynder

17. januar 2004 - 15:37 #16

det er helt perfekt.. takker mange gange!!

Synes godt om

deeflate Nybegynder

17. januar 2004 - 15:42 #17

Værsågod :)

Synes godt om

xxx222 Nybegynder

18. januar 2004 - 15:21 #18

Til deeflate-->

Hej igen,
Hvis du stadig Abonnér på dette spørgsmål, kan du så svare mig på følgende??
Jeg har nu lavet en menu med en masse kategorier, som include. Kan jeg på en nem måde få systemet til at optælle antal emner i hver kategori og skrive tallet i parentes ud for hver enme i menuen??

Min menu ser således ud i koden:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Spil</title>
</head>

<body topmargin="0" leftmargin="0">

<table border="0" width="149" cellspacing="1" cellpadding="0" height="113">
<tr>
<td width="100%" bgcolor="#DF613C" height="20">
Online<style type="text/css">

</style>
Spil</td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=adventure&side=1">Adventure</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Bilspil&side=1">Bilspil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Blandet&side=1">Blandet</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Cartoon Network&side=1">Cartoon
Network</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=DR&side=1">DR</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Flyvespil&side=1">Flyvespil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Børnespil&side=1">Børnespil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Kampspil&side=1">Kampspil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Klassiske&side=1">Klassiske</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Lego&side=1">Lego</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Flipperspil&side=1">Flipperspil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Platform&side=1">Platform</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Puzzlespil&side=1">Puzzlespil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Quiz&side=1">Quiz</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Skydespil&side=1">Skydespil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=South Park&side=1">South
Park</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Sport&side=1">Sport</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Strategi&side=1">Strategi</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Tegne&side=1">Tegnespil</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=TV2&side=1">TV2</a></td>
</tr>
</table>

</body>

</html>

Jeg skriver til dig på denne måde, fordi du har kigget på disse koder før. Hvis du svare laver jeg et spørgsmål med 200 point til dig bagefter. Håber bare dette måske er en nem måde at fange dig på ;)

/pete

Synes godt om

deeflate Nybegynder

18. januar 2004 - 15:36 #19

Jeg vil meget gerne hjælpe, men det bliver lidt senere.
Har lige fået kaffegæster :)

Synes godt om

xxx222 Nybegynder

18. januar 2004 - 15:45 #20

Er bare helt i orden! Holder øje med tråden :)
God "kaffepause" ;)

Synes godt om

deeflate Nybegynder

18. januar 2004 - 18:15 #21

Hmmm... mit indlæg forsvandt.
Der er vist bøvl med eksperten igen.
den kommer lige en gang til:

Så er gæsterne gået :)
Prøv dette her:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Spil</title>
</head>

<body topmargin="0" leftmargin="0">

<%
Set rsAntal = Server.CreateObject("ADODB.RecordSet")
%>

<table border="0" width="149" cellspacing="1" cellpadding="0" height="113">
<tr>
<td width="100%" bgcolor="#DF613C" height="20">
Online<style type="text/css">

</style>
Spil</td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=adventure&side=1">Adventure

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Adventure'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Bilspil&side=1">Bilspil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Bilspil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Blandet&side=1">Blandet

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Blandet'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Cartoon Network&side=1">Cartoon Network

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Cartoon Network'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=DR&side=1">DR

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'DR'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Flyvespil&side=1">Flyvespil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Flyvespil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Børnespil&side=1">Børnespil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Børnespil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>

<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Kampspil&side=1">Kampspil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Kampspil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>

<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Klassiske&side=1">Klassiske

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Klassiske'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>

<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Lego&side=1">Lego

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Lego'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Flipperspil&side=1">Flipperspil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Flipperspil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Platform&side=1">Platform

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Platform'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Puzzlespil&side=1">Puzzlespil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Puzzlespil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Quiz&side=1">Quiz

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Quiz'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Skydespil&side=1">Skydespil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Skydespil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=South Park&side=1">South
Park

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'South Park'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Sport&side=1">Sport

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Sport'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Strategi&side=1">Strategi

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Strategi'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=Tegne&side=1">Tegnespil

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Tegnespil'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

</a></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"> <a href="spil2.asp?kategori=TV2&side=1">TV2

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'TV2'", conn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close

set rsAntal = nothing
%>

</a></td>
</tr>

</table>

</body>

</html>

Synes godt om

xxx222 Nybegynder

18. januar 2004 - 19:09 #22

Tak! Det fungerer faktisk fint.. næsten!
Jeg kan nemt få det til at virke på alt andet end forsiden www.sendbeskeder.dk/play2day

da skriver den følgende:
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/play2day/menu.asp, line 36

------
Er det fordi at koden i menu.asp er sat til at benytte adgangen til db'en på de sider menuen er includet på? Jeg har nemlig lavet en anden adgang i defalu.asp, da jeg der trækker en top 10 liste ud...

Synes godt om

deeflate Nybegynder

18. januar 2004 - 19:42 #23

Ja, koden i menu anvender Conn fra den fil, hvor den er included.
Du kan bare lave en anden forbindelse i menu, men husk at kalde den noget andet, så den ikke konflikter med hoved-filen, og husk at lukke igen :)

Synes godt om

xxx222 Nybegynder

18. januar 2004 - 19:53 #24

Fisk! :)

Er ikke helt med.. hvordan laver jeg en anden forbindelse??
Kan godt lukke, men det andet forstår jeg sq ikke helt..sorry :)

Synes godt om

deeflate Nybegynder

18. januar 2004 - 20:02 #25

Bare kald den noget andet.
F.eks.

Set myConn = Server.CreateObject("ADODB.Connection")
Set rsAntal = Server.CreateObject("ADODB.RecordSet")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("ringetoner.mdb")

sær det ind i menu.asp i stedet for

Set rsAntal = Server.CreateObject("ADODB.RecordSet")

Og så skal du åbne rsAntal med myConn i stedet.
Altså

<%
rsAntal.Open "SELECT * FROM ringetoner WHERE godkendt='Ja' AND kategori = 'Blandet'", myConn, 1
response.Write " (" & rsAntal.RecordCount & ")"
rsAntal.Close
%>

Synes godt om

xxx222 Nybegynder

18. januar 2004 - 22:58 #26

Virker selvfølgelig helt super!
Tusind tak for din hjælp endnu engang :)

Som lovet har jeg smidt 200 point i dette spørgsmål til dig:
http://www.eksperten.dk/spm/453607

Tusind tak!
/ Peter

Synes godt om

xxx222 Nybegynder

19. januar 2004 - 15:02 #27

deeflate--->

Hvis du har mod på det og selvfølgelig tid, så har jeg sq allerede problemer igen ;)
http://www.eksperten.dk/spm/453845

//Mange hilsner
Peter//

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS