Søg
Avatar billede ponyboye Nybegynder
11. april 2004 - 16:14 Der er 16 kommentarer og
2 løsninger

Response.write tabel/div problem

jeg har denne kode over der udskrives link menu der passer på den side der er gået ind på. Mit problem er at linkne udskrives på siden og under hinanden og nu vil jeg gerne have flyttet den så den så vises på et bestemt i toppen og vise ved siden af hianden og gå til næste line når der er et vis antal link.

Jeg har prøvet at lave den om til en div og det vil være dejligt med en div da jeg så selv kan sætte den til hvor den skal vises. håber der er en der vil hjælpe mig med for nu har jeg snart brugt så lang tid på det at jeg har brugfor hjælp.



Response.write(tempTop)
            Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""167"" >" & vbCrLf)
            Response.write("<tr>" & vbCrLf & "<td colspan=""2""><img border=""0"" src=""pad.gif"" width=""1"" height=""5""></td>" & vbCrLf & "</tr>" & vbCrLf)
       
            Do While Not rst.EOF
           
                Response.write("<tr>" & vbCrLf & "<td valign=""top"" align=""right""></td>" & vbCrLf)
                Response.write("<td valign=""top"" align=""left"" width=""162""><li><a href=""default.asp?nc=" & NoCache() & "&id=" & rst("id") & """>" & rst("pagename") & "</a></li></td>")
                Response.write("</tr>" & vbCrLf)     
                Response.write("<tr>" & vbCrLf)
                Response.write("<td colspan=""2""><img border=""0"" src=""pad.gif"" width=""1"" height=""5""></td>")
                Response.write("</tr>" & vbCrLf)

                rst.MoveNext
       
            Loop
       
            Response.write("<tr>" & vbCrLf & "<td colspan=""2""><img border=""0"" src=""pad.gif"" width=""2"" height=""2""></td>" & vbCrLf & "</tr>" & vbCrLf & "</table>" & vbCrLf)
            Response.write(tempBot)
Avatar billede wilweb Nybegynder
11. april 2004 - 16:32 #1
hvad med denne her:

<%
Response.write(tempTop)
Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""167"" >" & vbCrLf)
Response.write("<tr>" & vbCrLf & "<td colspan=""4""><img border=""0"" src=""pad.gif"" width=""1"" height=""5""></td>" & vbCrLf & "</tr>" & vbCrLf)
Do While Not rst.EOF
           
Response.write("<tr>" & vbCrLf & "<td valign=""top"" align=""right""></td>" & vbCrLf)
Response.write("<td valign=""top"" align=""left"" width=""162""><li><a href=""default.asp?nc=" & NoCache() & "&id=" & rst("id") & """>" & rst("pagename") & "</a></li></td>")
Response.write("<td colspan=""2""><img border=""0"" src=""pad.gif"" width=""1"" height=""5""></td>")
Response.write("</tr>" & vbCrLf)
rst.MoveNext
Loop
Response.write("<tr>" & vbCrLf & "<td colspan=""4""><img border=""0"" src=""pad.gif"" width=""2"" height=""2""></td>" & vbCrLf & "</tr>" & vbCrLf & "</table>" & vbCrLf)
Response.write(tempBot)
%>
Avatar billede wilweb Nybegynder
11. april 2004 - 16:33 #2
den er ikke testet, så jeg er ikke sikker!
Avatar billede ponyboye Nybegynder
11. april 2004 - 16:41 #3
jo den virker fint, men det giver det samme resultat. Det jeg gerne vil have er at få den til at blive udskrevet et andet sted på siden. Hvis du går ind på www.danskehojtider.dk så er det menu til højer jeg gerne vil have flyttet op i toppen i det blå og få den til at udskrive det vandret.
Avatar billede wilweb Nybegynder
11. april 2004 - 16:51 #4
Du vil ikke bruge IFrame ?
Avatar billede ponyboye Nybegynder
11. april 2004 - 16:54 #5
nej en IFrame er ikke optimel for søgemaskinerne.
Avatar billede wilweb Nybegynder
11. april 2004 - 18:50 #6
er det noget al la dette her http://www.wilweb.dk/test/index.asp ?
Avatar billede ponyboye Nybegynder
11. april 2004 - 19:22 #7
ja netop lige sådanne.
Avatar billede tbm_iceman Nybegynder
11. april 2004 - 19:24 #8
gider ikke lave alt tabel koden for dig men det her kan du bruge ... giver dig et eks. så kan du selv lave det som du vil. Har brugt dette lille trick ofte.

<table width="500" border="0" cellspacing="0" cellpadding="1" style="font-family:Verdana;font-size:10px">
<tr>
    <%
    Dim i,d
   
    For i=1 to 255
       
        d = i mod 8
        if d=1 Then
            Response.Write "</tr><tr>"
        End If
    %>
        <td><%="<font color='#336600'>"&i&"</font>:<b>"&CHR(i)%></b></td>
    <%
    Next
    %>
  </tr>
</table>
Avatar billede ponyboye Nybegynder
11. april 2004 - 22:24 #9
det kan jeg ikke lige finde ud af at sammen sætte med den kode jeg har
Avatar billede wilweb Nybegynder
12. april 2004 - 01:53 #10
Her er mit forslag, måske kan du bruge det?

http://www.wilweb.dk/test/ponyboye.me

Det skal så passe ind i din kode, men det er sådanne jeg ville lave det!

åben med notepad
Avatar billede wilweb Nybegynder
12. april 2004 - 01:56 #11
dattabasen til menuen
http://www.wilweb.dk/test/menu.mdb
Avatar billede ponyboye Nybegynder
12. april 2004 - 10:10 #12
hvis du smutter ind på siden igen så har jeg fået den til at blibe udskrevet rigtigt. så nu skal jeg bare have indsat med hvor mange den skal udskrive før den laver et line skrift. Koden ser sådanne ud nu:

Response.write(tempTop)
            Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""300"" >" & vbCrLf)
           
       
            Do While Not rst.EOF
           
                Response.write("<td valign=""top"" align=""left""></td>" & vbCrLf)
                Response.write("<td valign=""top"" align=""left"" width=""300""><a href=""default.asp?nc=" & NoCache() & "&id=" & rst("id") & """>" & rst("pagename") & "</a></td>")
                Response.write("<td colspan=""2""></td>")
               

                rst.MoveNext
       
            Loop
       
            Response.write("<td colspan=""2""></td>" & vbCrLf & "</tr>" & vbCrLf & "</table>" & vbCrLf)
            Response.write(tempBot)

Det du har med send kunne ikke bruges da der er et cms system inde bag ved. men tak for tanken.
Avatar billede wilweb Nybegynder
12. april 2004 - 14:21 #13
Mener du der fx. skal komme fx. 5 links fra db og så skifter den linje og det gør den til der ikke er flere links i DB?
Avatar billede ponyboye Nybegynder
12. april 2004 - 15:42 #14
ja så udskriver fx 5 links pr linje til der ikke er flere
Avatar billede tbm_iceman Nybegynder
12. april 2004 - 16:37 #15
Så let her er det....

<%
Dim Counter, d
Const AntalColonner = 5

Response.write(tempTop)
    Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""300"" >" & vbCrLf)

    Do While Not RST.EOF
        Counter = Counter + 1
        Response.write("<td valign=""top"" align=""left""></td>" & vbCrLf)
        Response.write("<td valign=""top"" align=""left"" width=""300""><a href=""default.asp?nc=" & NoCache() & "&id=" & RST("id") & """>" & RST("pagename") & "</a></td>")
        Response.write("<td colspan=""2""></td>")

        d = Counter mod AntalColonner
        If d=1 Then
            Response.Write "</tr><tr>"
        End If

        RST.MoveNext
    Loop

    Response.write("<td colspan=""2""></td>" & vbCrLf & "</tr>" & vbCrLf & "</table>" & vbCrLf)
Response.write(tempBot)
%>
Avatar billede ponyboye Nybegynder
15. april 2004 - 01:36 #16
tbm_iceman >>>><<<< Det virker den kode du har givet mig, der er bare et lille problem. Når den opsætter link lader den et stå for sig selv i toppen og skriver vidre neden under..se her http://www.danskehojtider.dk/default.asp?nc=2499&id=103
Avatar billede tbm_iceman Nybegynder
17. april 2004 - 14:18 #17
Undskyld det korrekte er sådant her, der skal lige byttes om på det her.
<%
Dim Counter, d
Const AntalColonner = 5

Response.write(tempTop)
    Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""300"" >" & vbCrLf)

    Do While Not RST.EOF
        Counter = Counter + 1

        d = Counter mod AntalColonner
        If d=1 Then
            Response.Write "</tr><tr>"
        End If

        Response.write("<td valign=""top"" align=""left""></td>" & vbCrLf)
        Response.write("<td valign=""top"" align=""left"" width=""300""><a href=""default.asp?nc=" & NoCache() & "&id=" & RST("id") & """>" & RST("pagename") & "</a></td>")
        Response.write("<td colspan=""2""></td>")

        RST.MoveNext
    Loop

    Response.write("<td colspan=""2""></td>" & vbCrLf & "</tr>" & vbCrLf & "</table>" & vbCrLf)
Response.write(tempBot)
%>
Avatar billede ponyboye Nybegynder
18. april 2004 - 23:00 #18
det virker og jeg takker for den gode hjælp tbm_iceman
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:21 Firefox - Bøvl med idelig genbekræftelse af identitet Af andershl i Browsere
I går 15:14 Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
16/0822:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
16/0812:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
15/0811:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
White papers
Flere white papers »