Avatar billede remo27 Nybegynder
31. januar 2007 - 21:05 Der er 7 kommentarer og
1 løsning

a href problem

jeg har denne lille asp fil som laver et delvist udtræk af en nyhed, så er det meningen af man skal klikke på et link så man ser hele nyheden, men det kan jeg ikke få til at virke, nogle som kan hjælpe mig.

nyhed.asp
==================================================================
<!-- #include file="databaseforbindelse.asp"-->

  <table border="0" width="100%" cellspacing="0" cellpadding="0">
<%Set Query = Conn.Execute(" SELECT TOP 1 * FROM nyhed order by dato desc")
  if  Query.EOF then %>
  <tr>
        <td width="100%" align="center">Ingen nyheder pt.</td>
        </tr>
        <%end if%>
        <% Do until Query.EOF %>   
  <tr>
        <td width="100%" align="center"><%=Query("dato")%><br><a href="senyhed.asp"><%=left(Query("tekst"),25)%>...&nbsp;Læs mere</a><hr size="1" noshade></td>
        </tr>
        <%Query.MoveNext%>
          <%loop%>
      <% conn.close
  Set Conn = Nothing %>
       
    </table>
=================================================================


senyhed.asp -> skal vise hele nyheden i en popup.

=================================================================
<html>
<head>
<title>SE NYHED</title>

<script language="javascript" type="text/javascript">

/*
Auto center window script- Eric King (http://redrival.com/eak/index.shtml)
*/

var win = null;
function NewWindow(mypage,myname,w,h,scroll){
LeftPosition = (screen.width) ? (screen.width-w)/2 : 0;
TopPosition = (screen.height) ? (screen.height-h)/2 : 0;
settings =
'height='+h+',width='+w+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',resizable'
win = window.open(mypage,myname,settings)
if(win.window.focus){win.window.focus();}
}

</script>

</head>

<body>



<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber1">
  <tr>
    <td width="100%" class="top" align="center" colspan="2">.:: KORNUMGÅRD NYHED ::.</td>
  </tr>
  <tr>
  <%      Set Query = Conn.Execute("SELECT * From nyhed")
  %>    
 

  <td width="100%" class="kant" colspan="2"><% =Replace(Query("tekst"),vbcrlf,"<br>" & " ")%>&nbsp;</td>
  </tr>


</table>

</center>
<br>

</body>
</html>
=================================================================
Avatar billede madeindk Nybegynder
31. januar 2007 - 21:13 #1
Har dine nyheder ikke et ID i databasen?
Avatar billede remo27 Nybegynder
31. januar 2007 - 21:15 #2
jo der en id, dato og tekst. i min nyheds tabel
Avatar billede madeindk Nybegynder
31. januar 2007 - 21:16 #3
Ok, så er det bare at gøre sådan her :-)

Nyhed.asp

<!-- #include file="databaseforbindelse.asp"-->

  <table border="0" width="100%" cellspacing="0" cellpadding="0">
<%Set Query = Conn.Execute(" SELECT TOP 1 * FROM nyhed order by dato desc")
  if  Query.EOF then %>
  <tr>
        <td width="100%" align="center">Ingen nyheder pt.</td>
        </tr>
        <%end if%>
        <% Do until Query.EOF %>   
  <tr>
        <td width="100%" align="center"><%=Query("dato")%><br><a href="senyhed.asp?=ID=<%= Query("id") %>"><%=left(Query("tekst"),25)%>...&nbsp;Læs mere</a><hr size="1" noshade></td>
        </tr>
        <%Query.MoveNext%>
          <%loop%>
      <% conn.close
  Set Conn = Nothing %>
       
    </table>

senyhed.asp:

<html>
<head>
<title>SE NYHED</title>

<script language="javascript" type="text/javascript">

/*
Auto center window script- Eric King (http://redrival.com/eak/index.shtml)
*/

var win = null;
function NewWindow(mypage,myname,w,h,scroll){
LeftPosition = (screen.width) ? (screen.width-w)/2 : 0;
TopPosition = (screen.height) ? (screen.height-h)/2 : 0;
settings =
'height='+h+',width='+w+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',resizable'
win = window.open(mypage,myname,settings)
if(win.window.focus){win.window.focus();}
}

</script>

</head>

<body>



<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber1">
  <tr>
    <td width="100%" class="top" align="center" colspan="2">.:: KORNUMGÅRD NYHED ::.</td>
  </tr>
  <tr>
  <%      Set Query = Conn.Execute("SELECT * From nyhed WHERE id=" & Request.QueryString("ID") & "")
  %>   
 

  <td width="100%" class="kant" colspan="2"><% =Replace(Query("tekst"),vbcrlf,"<br>" & " ")%>&nbsp;</td>
  </tr>


</table>

</center>
<br>

</body>
</html>
Avatar billede remo27 Nybegynder
31. januar 2007 - 21:25 #4
Får denne fejl i senyhed.asp

Fejltype:
Microsoft JET Database Engine (0x80040E14)
Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "id=".
/web/kornumgaard/senyhed.asp, line 36


og linie 36 ser således ud.

<%      Set Query = Conn.Execute("SELECT * From nyhed WHERE id=" & Request.QueryString("ID") & "") %>


jeg har tilføjet <!-- #include file="databaseforbindelse.asp" -->
i mit senyhed.asp
Avatar billede madeindk Nybegynder
31. januar 2007 - 21:30 #5
Argh, nyhed.asp skal se sådan her ud:

<!-- #include file="databaseforbindelse.asp"-->

  <table border="0" width="100%" cellspacing="0" cellpadding="0">
<%Set Query = Conn.Execute(" SELECT TOP 1 * FROM nyhed order by dato desc")
  if  Query.EOF then %>
  <tr>
        <td width="100%" align="center">Ingen nyheder pt.</td>
        </tr>
        <%end if%>
        <% Do until Query.EOF %>   
  <tr>
        <td width="100%" align="center"><%=Query("dato")%><br><a href="senyhed.asp?ID=<%= Query("id") %>"><%=left(Query("tekst"),25)%>...&nbsp;Læs mere</a><hr size="1" noshade></td>
        </tr>
        <%Query.MoveNext%>
          <%loop%>
      <% conn.close
  Set Conn = Nothing %>
       
    </table>

En lille tastefejl ;-)
Avatar billede remo27 Nybegynder
31. januar 2007 - 21:34 #6
YES YES YES, det spiller nu.
drop et svar og høst dine points. :O)

1000 tak for hjælpen.

/Remo
Avatar billede madeindk Nybegynder
31. januar 2007 - 21:37 #7
Okay, det var godt du fik det til at virke ;-)

Her er mit svar.
Avatar billede madeindk Nybegynder
31. januar 2007 - 21:41 #8
Tak for point :-)
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