Avatar billede plato Juniormester
24. april 2003 - 19:22 Der er 7 kommentarer og
1 løsning

ASP fejl?

Hejsa NG..

Er der nogen der kan se en fejl i denne her kode. Det er koden Antalkommentarer den er gal med.
Koden giver ikke fejl som sådan, men den tæller ikke, og derfor står der 0 konstant.


<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT TOP 5  * FROM anmeld  ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 5
placering = 1

do while (not rs.EOF)



Response.Write (" <td width='88' height='115' valign='center' align='center'><div id='boxanmeld'><br><a href='review.asp?id=" & rs("Id") & "'><img src='../pics/" & rs("pic") & "' height='70' width='55' border='0'></a><br>" & rs("titel"))

AntalKommentar=0
if isNumeric(ID) then
Set rs2=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & id)
AntalKommentar=rs2(0).Value
                                                   
Response.Write "(<font color='#FF9C00'>" & AntalKommentar & "</font>)"
end if

Response.Write ("</div></td>")



  placering = placering + 1
  rs.MoveNext
loop

%>
Avatar billede eagleeye Praktikant
24. april 2003 - 19:25 #1
Du har en if sætning:

if isNumeric(ID) then

Hvor kommer den ID fra ?? Skulle de være fra databasen? rs("id")
Avatar billede plato Juniormester
24. april 2003 - 19:28 #2
Jeg har brugt kommentar koden fra et andet eks jeg havde:


<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/data.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect



strSQL = "SELECT TOP 6  * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 6
placering = 1


Do While not rs.eof
    id = rs("id")
    overskrift = rs("overskrift")
    tekst = rs("tekst")
    navn = rs("navn")
    kilde = rs("kilde")
    link = rs("link")
    pic = rs("pic")


 




%>



<center><div id="boxnews">
<table border="0" width="435" cellspacing="0" cellpadding="0">
 
  <tr>
    <td width="398" colspan="2" class="headline" height="17" valign="middle">&nbsp;&nbsp;<img src="gfx/nyhed_orange.gif">&nbsp;&nbsp;<%=overskrift%></td>
  </tr>
  <tr>
    <td width="337" class="text">
      <table width="100%" height="100%" cellpadding="2">
        <tr>
          <td class="font"><%=tekst%></td>
        </tr>
      </table>
    </td>
    <td width="100" valign="top" class="tom">
      <table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr>
          <td width="100" height="100" class="pic" align="center" valign="bottom"><img border="0" src="../pics/<%=pic%>" width="65" height="80"><br><img src="gfx/nyhedbar.gif"></td>
        </tr>
        <tr>
          <td width="100%" class="info" valign="middle">
            &nbsp;&nbsp;<img src="gfx/news_gron.gif"> <a href="newscom.asp?id=<%=id%>">Diskuter</a>
                                                    <%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
                                                    AntalKommentarer=rs1(0).Value
                                                   
                                                    Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
                                                      end if
                                                    %><br>
        &nbsp;&nbsp;<img src="gfx/news_gron.gif"> <a href="http://www.<%=kilde%>" target="_new">Kilde</a><br>
            &nbsp;&nbsp;<img src="gfx/news_gron.gif"> <a href="<%=link%>" target="_new">Læs mere</a><br><br>
            &nbsp;&nbsp;<font color="#FF9C00">Af:</font> <%=navn%>       
          </td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
</div>
<br>


<%
placering = placering + 1
  rs.MoveNext
loop

%>
Avatar billede eagleeye Praktikant
24. april 2003 - 19:36 #3
Ok og det er hele koden du har vist til sidst? eller er hele koden i spørgsmålet?
Avatar billede plato Juniormester
24. april 2003 - 19:37 #4
Hele koden er i spm.
Jeg postede nr. to kode for du kunne se hvor jeg har AntalKommentarer koden fra.. Jeg troede jeg bare kunne klippe og klistere :)
Avatar billede eagleeye Praktikant
24. april 2003 - 19:40 #5
Ja det kan du også. Ok, så skal du enten fjerne den if sætning eller ligger noget ind i ID:

AntalKommentar=0
ID = rs("id")      '<---- Ligger et id i ID
if isNumeric(ID) then
Avatar billede plato Juniormester
24. april 2003 - 19:45 #6
Du er en guttermand ;-) Tak!

Smider du lige et svar?
Avatar billede eagleeye Praktikant
24. april 2003 - 19:46 #7
Ja ok ;)
Avatar billede plato Juniormester
24. april 2003 - 19:47 #8
Btw... Hvis du mangler et fritidsjob...Skal du bare sige til ;-)
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
Kurser inden for grundlæggende programmering

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