Notifikationer

Markér alle som læst Log ud

svinget Praktikant

06. juli 2006 - 11:31 Der er 9 kommentarer og
1 løsning

tilfældigt spørgsmål med link til svaret (asp)

Hej

Med kanon hjælp fra Nielle er det lykkedes at få en kode der sætter en tilfældig thumbnail ind på mine sider, med link til full scale billeder.

Jeg har også brug for en kode der henter en tilfældig spørgsmål i en tabel, og viser dertsom et link. Når der trykkes på linket så skal svaret komme - Enten i samme vindue, eller i et pop up vindue.

Tabellen indeholder 2 kolonner question1 og answer1 - jeg er løbet tør for idéer - kan det lade sig gøre????

Her er koden fra der viser en tilfældig thumbnail:
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT pictures1 FROM hapkido_pictures"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int(Rnd * rndMax) 'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>

<a href="#" onClick="window.open('images/<% =rs("pictures1") %>','win1', 'height=310,width=410,top=' + (screen.availHeight/2 - 310/2) + ',left=' + (screen.availWidth/2 - 410/2))"><img border="0" src="images/tn_<% =rs("pictures1") %>" align="right"></a>

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

Synes godt om

madeindk Nybegynder

06. juli 2006 - 13:52 #1

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM hapkido_pictures"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int(Rnd * rndMax) 'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>

<a href="vis_svar.asp?ID=<%=rs("id")%>" title="Se svaret til dette spørgsmål"><%=rs("question1")%></a>

<%
rs.close
Set rs = nothing
%>

Og på siden 'vis_svar.asp' skal du jo så bare hente svaret til spørgsmålet fx.

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM hapkido_pictures WHERE id=" & request.querystring("id")
rs.Open strSQL, Conn, 3, 1

response.write(rs("answers1"))

rs.close
Set rs = nothing
%>

Synes godt om

svinget Praktikant

06. juli 2006 - 14:32 #2

Det lyder nemt :)

Det virker bare - er det muligt at få svaret åbnet i et pop up vindue?

Synes godt om

madeindk Nybegynder

06. juli 2006 - 15:20 #3

Du kan prøve med denne her - den burde kunne klare det :-)

<a href="#" onClick="window.open('vis_svar.asp?ID=<%=rs("id")%>" ','win1', 'height=310,width=410,top=' + (screen.availHeight/2 - 310/2) + ',left=' + (screen.availWidth/2 - 410/2))"><%=rs("question1")%></a>

Synes godt om

svinget Praktikant

06. juli 2006 - 17:16 #4

Jeg har prøvet, men der åbnes ikke et nyt vindue. Der sker ikke noget:

<br>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM hapkido_questions"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int(Rnd * rndMax) 'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>

<a href="#" onClick="window.open('show_answer.asp?ID=<%=rs("id")%>" ','win1', 'height=310,width=410,top=' + (screen.availHeight/2 - 310/2) + ',left=' + (screen.availWidth/2 - 410/2))"><%=rs("question1")%></a>

<%
rs.close
Set rs = nothing
%>

/kim

Synes godt om

madeindk Nybegynder

06. juli 2006 - 17:50 #5

<br>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM hapkido_questions"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int(Rnd * rndMax) 'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>

<a href="#" onClick="window.open('show_answer.asp?ID=<%=rs("id")%>','win1', 'height=310,width=410,top=' + (screen.availHeight/2 - 310/2) + ',left=' + (screen.availWidth/2 - 410/2))">Hej</a>

<%
rs.close
Set rs = nothing
%>

Synes godt om

madeindk Nybegynder

06. juli 2006 - 17:51 #6

Hov - der skal selvfølgelig stå...

<a href="#" onClick="window.open('show_answer.asp?ID=<%=rs("id")%>','win1', 'height=310,width=410,top=' + (screen.availHeight/2 - 310/2) + ',left=' + (screen.availWidth/2 - 410/2))"><%=rs("question1")%></a>

Synes godt om

svinget Praktikant

06. juli 2006 - 18:13 #7

Halløj hvor det virker :)

Tak for hjælpen - poster du et svar?

/Kim

Synes godt om

madeindk Nybegynder

06. juli 2006 - 18:18 #8

Det var godt vi fik det til at virke :-)

Her er mit svar...

Synes godt om

madeindk Nybegynder

06. juli 2006 - 19:45 #9

Skal du ikke acceptere mit svar? :-)

Synes godt om

svinget Praktikant

06. juli 2006 - 23:53 #10

yep - tak endnu engang :)

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