11 svar · 254 visningar · startad av limpon
Hur går man till väga då som?.
Det är så att jag har en citat databas.
Där en massa folk klämt ur sig klyftiga kommentarer.
Men ifall jag vill visa dom då.
Så kommer ju deras namn upp flera ggr.
Jag kör med "GROUP BY author" nu.
Och det funkar precis som jag vill.
Men jag undrar bara hur man nu gör ifall man vill visa alla citat på en och samma sida som just det namnet man valt.
Hoppas ni förstår nått =)
Ä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.
Hej och välkommen till webForum limpon!
Du menar något sånt här?
SELECT * FROM citat WHERE author = 'limpon'
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
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
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 =)
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") & "'")
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
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 =)