Søg
Avatar billede superole Nybegynder
10. december 2000 - 11:15 Der er 10 kommentarer og
1 løsning

Vis kun et bogstav fra database

Jeg har en database, hvor indholdet er delt ind i kategorier efter alfabetet, på min default side har jeg hele alfabetet stående, og det jeg er i tvil om, er hvordan jeg laver en side der hedder oversigt.asp hvor jeg f.eks hvis jeg trykker på \"A\" for en liste over alle de poster der i databasen ligger under kategorien \"A\"
Jeg er nybegynder inden for ASP, så jeg har ikke noget ide om hvordan det skal laves, men jeg står og skal bruge det snart, til et arrangement i vores spejderforening, så jeg har ikke tid til at lære det inden.

Jeg vil gerne have en komplet fil, så jeg kun skal rette til med hvad databasen, tabellen og felt navn hedder mm.

Når den udskriver listen, skal hver enkelt post linke til en side der hedder det.asp?id= (og så det id de har i databasen)

Jeg vil også gerne have oplyst hvordan jeg jeg skal lave linket til hver enkelt bogstav fra min forside (jeg tænker på, hvordan jeg f.eks. skal linke til \"A\" f.eks. ved at skrive oversigt.asp?kategori=A eller lign.)

Jeg har også en kategori der hedder \"#\" Hvad jeg har hørt, skal den laves på en bestem måde, hvis det er tilfældet skal det også indgå i filen

Der er 500 point på højkant!!
Avatar billede tdaugaard Nybegynder
10. december 2000 - 11:17 #1
Send mig din database og jeg går i gang med det samme!

e@tdaugaard.dk
Avatar billede meyer Nybegynder
10. december 2000 - 11:20 #2
Prøv den her :-)

Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open Session(\"db\")

  strSQL = \"SELECT * FROM Kategori \"
  Set rs = myConn.Execute(strSQL)
bogstav = \"\"
oldbogstav = \"\"

while not RS.EOF

Kat = RS(\"Kategori\")
Bogstav = Left(Kat, 1)

if bogstav <> oldbogstav then

Response.write \"<p align=left><small><font face=Arial color=#89192b><strong>\" & bogstav & \"....................</strong></font></small><br>\"

sql2 = \"SELECT * FROM Kategori Where LEFT(kategori,1) = \'\" & bogstav & \"\' ORDER BY Kategori\"
Set rs1 = MyConn.Execute (sql2)
do while not rs1.eof
Kat1 = replace(rs1(\"kategori\"),\" \",\"_\")
    Response.write \"<font face=Arial color=#000000><a href=liste.asp?ID=\" & rs1(\"ID\") & \"&KAT=\" & KAt1 & \" target=main><small>\" & rs1(\"kategori\") & \"</small></a><br>\"


    rs1.MoveNext
loop
    End If
   
    oldbogstav = bogstav
    RS.MoveNext

WEND
RS.close
RS1.close
MyConn.close
Set RS = nothing
Set RS1 = nothing
Set MyConn = nothing
%>

meyer
Avatar billede tdaugaard Nybegynder
10. december 2000 - 11:24 #3
meyer:> det er lidt nemmere hvis du laver dit left() i SQL kaldet..
Jeg mener at Access tillader Left() i SQL kald.

lcase() for at undgå store/små bogstaver fejl..
strSQL = \"SELECT * FROM Kategori WHERE lcase(left(kat, 1))=\'\" & lcase(bogstav) & \"\';\"
Avatar billede ldanielsen Nybegynder
10. december 2000 - 11:25 #4
Prøv en sql ser hedder noget med \"SELECT Kategori FROM Tabellen WHERE Kategori LIKE \'A%\'\"

Virker i SQL Server
Avatar billede tdaugaard Nybegynder
10. december 2000 - 11:28 #5
meyer:> glem lige min kommentare .. jeg så ikke dit sql2 ..
Avatar billede ldanielsen Nybegynder
10. december 2000 - 11:30 #6
Virker også i Access

Så linket kunne være:
<a href=\"liste.asp?bogstav=A\">A</a>

og i liste.asp:
Set Rec = Con.Execute(\"SELECT Kategori FROM Tabellen WHERE Kategori LIKE \'\"&Request.Querystring(\"bogstav\")&\"%\'\")

Hilsen Lars
Avatar billede superole Nybegynder
10. december 2000 - 11:56 #7
Så er databasen på vej.....
Avatar billede tdaugaard Nybegynder
10. december 2000 - 11:57 #8
Du kunne ikke bruge meyers?
Avatar billede superole Nybegynder
10. december 2000 - 12:16 #9
Jeg kunne ikke helt få den til at mærke ret, samt jeg syntes koden er lidt uoverskulig
Avatar billede tdaugaard Nybegynder
10. december 2000 - 12:18 #10
Det har du ret i .. (uoverskuelig ..)
Avatar billede tdaugaard Nybegynder
10. december 2000 - 16:50 #11
Lige et svar nu vi er så langt ved \"vejs\" ende ...
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »