Allgemein

Re: sort

AureliusII — Wed, 03 Dec 2003 18:41:12 GMT

ich mich auch!!!

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

Daniel Erni — Tue, 02 Dec 2003 21:23:23 GMT

Freut mich dass du dich freut dass es geht [;)] Habe ja auch nur 8 Posts gebraucht, bis endlich geklappt hat [8)] - unfassbar [xx(]

Ich schäme mich.

Gruss,
Daniel [;)]

Re: sort

AureliusII — Tue, 02 Dec 2003 21:14:14 GMT

und nochmal.. ich bin so glücklich grad.. danke nochmal..

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

AureliusII — Tue, 02 Dec 2003 21:12:31 GMT

WOW... hehe es geht danke.. glücklich sein... juhu...

[^]mfg aurelius

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

AureliusII — Tue, 02 Dec 2003 21:07:25 GMT

ok.. mal sehn... [8)]

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

Daniel Erni — Tue, 02 Dec 2003 21:03:20 GMT

Dieses Skript sollte zuerst eine Buchstaben-Navigation erzeugen, dann die Datensätze mit dem vorher gewählten Anfangsbuchstaben ausgeben. Vielleicht klappts jetzt endlich...[:I][:o)][8)]

<%
sortbuchstabe = request("sortbuchstabe")
DSN_base="DBQ="&Server.Mappath("db/testABC.mdb")&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;Password=erni6285"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
before = ""
' Navigation generieren
rs.open "SELECT * FROM news ORDER BY nheadline ASC", conn, 3, 3
do while not rs.eof
  anfang = LEFT(rs("nheadline"),1)
  IF NOT anfang = before THEN
    response.write "<a href=""testABC.asp?sortbuchstabe=" & anfang & """>" & anfang & "</a> |"
    before = anfang
  END IF
  rs.movenext
loop
rs.close
' Datensätze mit aktuellem Anfangsbuchstaben anzeigen
rs.open "SELECT * FROM news WHERE LEFT(nheadline,1) = '" & sortbuchstabe & "'", conn, 3, 3
do while not rs.eof
  response.write rs("nheadline") & "<br>"
  rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

Re: sort

AureliusII — Tue, 02 Dec 2003 20:54:08 GMT

so und wie geht das jetzt, dass wenn ich auf den letter draufklick, dass er mir alle recordsets anzeigt, wo der 1. letter dem wert vom querystring("buchstabe") entspricht??

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

Daniel Erni — Tue, 02 Dec 2003 20:47:32 GMT

Die vorherige Lösung war scheisse, ich habs selber gemerkt (durch Testen)... So gehts aber:[:)]

before = ""
rs.open "SELECT * FROM news ORDER BY nheadline ASC", conn, 3, 3
do while not rs.eof
  anfang = LEFT(rs("nheadline"),1)
  IF NOT anfang = before THEN
    response.write "<a href=""date.asp?sortbuchstabe=""" & anfang & """>" & anfang & "</a><br>"
    before = anfang
  END IF
  rs.movenext
loop
rs.close

Gruss,
Daniel

Re: sort

AureliusII — Tue, 02 Dec 2003 20:44:23 GMT

on error go to 0
---------^
Microsoft JET Database Engine- Fehler '80040e14'

Syntaxfehler (fehlender Operator) in Abfrageausdruck 'DISCTINCT(LEFT(nheadline,1) AS 'L')'.

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

AureliusII — Tue, 02 Dec 2003 20:42:04 GMT

asooooo...[:0]

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

Daniel Erni — Tue, 02 Dec 2003 20:40:58 GMT

Neeeiiinnn!!![;)]

So habe ichs gemeint:

rs.open "SELECT DISCTINCT(LEFT(nheadline,1) AS testvariable) FROM news ORDER BY testvariable ASC", conn, 3, 3
do while not rs.eof
  response.write "<a href=""date.asp?sortbuchstabe=""" & rs("testvariable") & """>" & rs("testvariable") & "</a><br>"
  rs.movenext
loop

Wenns nicht geht, bitte Fehlermeldung posten!

Gruss,
Daniel

Re: sort

AureliusII — Tue, 02 Dec 2003 20:36:54 GMT

irgendwie is ma des zu hoch..

<%
dim rs
	set rs = Server.CreateObject("ADODB.Recordset")
dim conn
	set conn = Server.CreateObject("adodb.connection")
	conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/database.mdb")
	
rs.open "SELECT DISCTINCT(" & LEFT(rs("nheadline"),1) & " AS " & Request.QueryString("letter") & ") FROM news ORDER BY nheadline ASC", conn, 3, 3
do while not rs.eof
  response.write "<a href=""date.asp?sortbuchstabe=""" & rs("nheadline") & """>" & rs("nheadline") & "</a><br>"
  rs.movenext
loop
rs.close
%>

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

AureliusII — Tue, 02 Dec 2003 20:33:32 GMT

hmm... das wäre möglich..

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..

Re: sort

Daniel Erni — Tue, 02 Dec 2003 20:31:18 GMT

Ersetze "<feld>" durch den Namen deines Feldes, z.B. "Text".
"<feldX>" ersetzt du durch einen beliebigen Ausdruck. Das ist ein sogenanntes Alias, das du glaub ich einfach brauchst...[:I] Wähle einfach etwas, z.B. "TextFuerRS". Damit greifst du einfach danach auf diesen Wert (eben den ersten Buchstaben) zu.

Etwas kompliziert, ich weiss... Vielleicht gehts ja auch gar nicht... [:I]

Gruss,
Daniel

PS: Sieht noch cool aus, deine Seite! [:p]

Re: sort

AureliusII — Tue, 02 Dec 2003 20:26:45 GMT

haaa??? was soll ich wo einsetzten???? feldx?
feld?? wo ghört der QueryString rein???

www.4motions.org
-----------------------
jeder fehler ist einer zu viel, also sollte man immer probieren es besser zu machen..