Avatar billede djpis Nybegynder
18. juni 2003 - 16:19 Der er 6 kommentarer og
1 løsning

Top 10 virker ikke.

Hej,
mit ASP script vil ikke trække alle navne ud af min db. Den hiver kun 1 navn ud, hvor den gerne skulle have hevet alle 10 ud. Hvad kan det skyldes? Er min db conn. forkert?

Anyway på forhånd tak!

Her kommer kildekoden lige:

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>


<BODY BGCOLOR="#e6e6e6">
<DIV ID="overDiv" STYLE="position:absolute; visibility:hide;"></DIV>
<SCRIPT TYPE="" LANGUAGE="JavaScript">
<!--
    var width = "250";
    var border = "3";
    var offsetx = 2;
    var offsety = 2;
   
    var fcolor = "#e6e6e6";
    var backcolor = "#e6e6e6";
    var textcolor = "#000000";
    var capcolor = "#000000";
    var closecolor = "#000000";
   
// -->
</SCRIPT>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("pr0n.mdb")
strSQL = "select * from pr0nstars order by id desc "
set rs = Conn.execute(strSQL)
Response.ContentType = "image/jpeg" '(or "image/gif") '(or "image/jpg")
%>


<SCRIPT LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT>
<CENTER>
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>
</TD></TR>
</TABLE>
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="2">
<TR>
<TD>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="5" height="100%">
<TR>
<TD style="border: 1 solid #000000">

<FONT FACE="Verdana" FONT SIZE="2">
<A HREF="<%=RS("URL")%>" TARGET="_blank" onMouseOver="dcc('<img border=1 src=<%=RS("fileIMG")%>>',''); return true;" onMouseOut="nd(); return true;"><%=RS("fileName")%></A>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</CENTER>
<%
Conn.Close
Set Conn = Nothing%>
</BODY>
</HTML>
Avatar billede bromer Nybegynder
18. juni 2003 - 16:28 #1
Der kommer vel kun 1 ud fordi du kun hiver det ud en gang. Hvis du nu koerte en loekke og traek det ud ville det nok virke!
Avatar billede eagleeye Praktikant
18. juni 2003 - 17:38 #2
Du manger et loop efter denne:
set rs = Conn.execute(strSQL)


do while not rs.EOF

  'UDSKRIVE HER


loop
Avatar billede djpis Nybegynder
18. juni 2003 - 18:05 #3
Ja det tænkte jeg nok. Det er jeg så ikke lige så meget inde i, håber lidt på at nogle kan hjælpe mig. Se evt db'en på www.jennajameson.dk/top10/pr0n.mdb

På forhånd tak.
Avatar billede djpis Nybegynder
18. juni 2003 - 18:25 #4
Okay prøvede lige med loop'et, og det virker ikk helt endnu, hvad gør jeg forkert. eagleeye du får lige kildekoden:

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>


<BODY BGCOLOR="#e6e6e6">
<DIV ID="overDiv" STYLE="position:absolute; visibility:hide;"></DIV>
<SCRIPT TYPE="" LANGUAGE="JavaScript">
<!--
    var width = "250";
    var border = "3";
    var offsetx = 2;
    var offsety = 2;
   
    var fcolor = "#e6e6e6";
    var backcolor = "#e6e6e6";
    var textcolor = "#000000";
    var capcolor = "#000000";
    var closecolor = "#000000";
   
// -->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("pr0n.mdb")
strSQL = "select * from pr0nstars order by id desc "
set rs = Conn.execute(strSQL)
do while not rs.EOF

Response.ContentType = "image/jpeg" '(or "image/gif") '(or "image/jpg")


response.write"<CENTER>"
response.write"<TABLE WIDTH='600' BORDER='0' CELLSPACING='0' CELLPADDING='0'>"
response.write"<TR><TD>"
response.write"</TD></TR>"
response.write"</TABLE>"
response.write"<TABLE WIDTH='600' BORDER='0' CELLSPACING='0' CELLPADDING='2'>"
response.write"<TR>"
response.write"<TD>"
response.write"<TABLE WIDTH='100%' BORDER='0' CELLSPACING='0' CELLPADDING='5' height='100%'>"
response.write"<TR>"
response.write"<TD style='border: 1 solid #000000'>"

response.write"<FONT FACE='Verdana' FONT SIZE='2'>"
response.write"<A HREF=" & rs("URL") &" TARGET=_blank onMouseOver=dcc(<img border=1 src=" & rs("fileIMG") & ">,''); return true; onMouseOut=nd(); return true;>"&("fileName")&" "
response.write"</A>"
response.write"</FONT>"
response.write"</TD>"
response.write"</TR>"
response.write"</TABLE>"
response.write"</TD>"
response.write"</TR>"
response.write"</TABLE>"
response.write"</CENTER>"

  loop

Conn.Close
Set Conn = Nothing%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
18. juni 2003 - 18:29 #5
der mangler en rs.Movenext  lige før loop


response.write"</CENTER>"
    rs.Movenext 
  loop
Avatar billede djpis Nybegynder
18. juni 2003 - 18:31 #6
Takker det var vidst det så.. Sender lige point på vej til dig :)
//STN
Avatar billede eagleeye Praktikant
18. juni 2003 - 18:34 #7
Ok så svare jeg lige. :)
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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