Gruppera sedan välja och få den att visa allt ifrån grupperingens namn

Är det något som detta du vill ha

dim rs,connect,author
set connect = server.createobject("adodb.connection")
connect.open "dsn"
set rs = connect.execute("select * from quotations order by author")

author = ""
while not rs.eof 
if author <> rs("author") then
   author = rs("author")
   response.write author "<br>"
end if
   response.write rs("quotation")
rs.movenext
wend
rs.close
connect.close

Om jag har missförstått helt och hållet så kan du väl tala om det för mig.

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

Hej och välkommen till webForum limpon!

Du menar något sånt här?

SELECT * FROM citat WHERE author = 'limpon'

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

Ville bara välkomna limpon till wF, välkommen!

Mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

Jag har nu.

Set RecSet = objConn.Execute("SELECT author FROM citat GROUP BY Author")
Set RecSet2 = objConn.Execute("SELECT * FROM citat ORDER BY citatID")

sedan.

Response.write "<A href=""citatvisa.asp?citatID=" & RecSet2("CitatID") & """><br>"

Response.write RecSet("author") & " </A>"

Hur ska jag då göra i citatvisa.asp
Då jag vill att alla citat som author:n har gjort ska visas där och ingen annan author

------------------
//Limpon

En lösning du skulle kunna ha på det är juh att köra två SQL-satser igen...
något i stil med:

citatid = Request.Querystring("citatID")
SQL = "SELECT author FROM citat WHERE citatid = " & citatid
Set RecSet = objConn.Execute(SQL)
author = RecSet("author")
Set RecSet2 = objConn.Execute("SELECT citat FORM citat WHERE author = '" & author & "'"

Något sådant borde väl fungera?? går juh att göra med nästlade SQL-satser också såklart, men det är jobbigarte... ;)

På ena sidan

Set RecSet = objConn.Execute("SELECT author FROM citat GROUP BY Author")
whlie not recset.eof
Response.write "<A href=""citatvisa.asp?Author=" & RecSet("Author") & """>" 

Response.write RecSet("author") & " </A>"
recset.movenext
wend

och på citatvisa.asp

set ObjConn = server.createObject("adodb.connection")
ObjConn.open "dsn"
set rs = "objConn.execute("select citat from citat where author = '" & request.querystring("author") & "'")

if not rs.eof then
   response.write rs("author") & "<br>"
while not rs.eof 
   response.write rs("citat") & "<br>"
   rs.movenext
wend
end if
rs.close
objConn.close

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

[Redigerat av LarsG den 30 sep 2001]

Hoppsan, jag missade visst litegrann där på slutet, men jag tror du förstår hur det ska vara... glömde bara avsluta satsen... ;)
Sorry...

/Kallepocket

Okej LarsG jag kör på din lösning =)
det funkar bra. Men inte tillräckligt för jag får fel =).

på line 10. där står det

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement

och på line 10 står det.
set rs = "objConn.execute("select citat from citat where author = '" & request.querystring("author") & "'")

Jag hoppas på att det är jag som är trött o inte fattar nått =) Men skulle vara snällt med ett svar =)

------------------
//Limpon

Jag var väl lite trötter där, det inledande citationstecknet skall inte vara med.

set rs = objConn.execute("select citat from citat where author = '" & request.querystring("author") & "'")

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

Okej nu funkar det där =)
Men fick ändå ett förbaskat fel.

No value given for one or more required parameters.

set rs = objConn.execute("select citat from citat where author = '" & request.querystring("author") & "'")

på den raden. =/
http://hemma.kramnet.com/jimmy.eriksson/test/new/asp/citatvisa.asp?Author=Vesa%20***kola
där är länken som inte vill funka

------------------
//Limpon

haha kom på mig själv nu =)
tack så mycket för hjälpen alla =)
dags o sova kanske tänker inte allt för klart nu =)

------------------
//Limpon