kan dette laves til 3 kolonner

Er det sådan her du mener? Jeg er egentlig ret overbevist om jeg har misforstået.

<%
While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
       
    Buffer.Add ("<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf & _
           
    vbTab & "<TR>" & vbCrLf & _
    vbTab & vbTab & "<TD width=""50%""><A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
    vbTab & vbTab & "<TD width=""50%"">Nummer 2 kolonne?</TD>" & vbCrLf & _
    vbTab & vbTab & "<TD><IMG src=""x.gif"" width=""1"" height=""2"" alt=""""></TD>" & vbCrLf & _
    vbTab & "</TR>" & vbCrLf & _
    "</TABLE>" & vbCrLf)


  rsResults.MoveNext

Wend
%>

nå ... det var mig, som ikke var så tydelig

jeg skal bruge indholdet af cellerne i kolonnerne ... altså:

<A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A>

Denne linje skal fordeles i hver celle i de 3 kolonner indtil der rsResult er tomt.

Ok - det kan vi godt lave. Men hva med sTitle?

øh - hvad mener du?

både sURL og sTitel sættes i starten:

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")

Ok, jeg kigger på det :-) Tror sgu også jeg tåger lidt pt.

det kender jeg godt :)

mange tak for hjælpen ...

Prøv det her :-)

<%
strBuffer = "<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">"

strCounter = 0

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
       
    If strCounter = 0 Then
      strBuffer = strBuffer & "<tr>"
    End If
   
    strCounter = strCounter + 1
   
    strBuffer = strBuffer & "<td style=""width:33%;""><A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A></td>"
   
    If strCounter = 3 Then
      strBuffer = strBuffer & "</tr>")
      strCounter = 0
    End If

  rsResults.MoveNext

Wend

strBuffer = strBuffer & "</table>")

Buffer.Add = strBuffer
%>

næ virker ikke lige ... jeg er også lidt i tvivl - det er et andet format ...

Hele blokken ser således ud:





Dim rsResults
Set rsResults = dicSynkron("rsResults")
if not rsResults.BOF then
    rsResults.MoveFirst
end if
strBuffer = "<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">"

strCounter = 0

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
       
    If strCounter = 0 Then
      strBuffer = strBuffer & "<tr>"
    End If
   
    strCounter = strCounter + 1
   
    strBuffer = strBuffer & "<td width=""33%""><A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A></td>"
   
    If strCounter = 3 Then
      strBuffer = strBuffer & "</tr>")
      strCounter = 0
    End If

  rsResults.MoveNext

Wend

strBuffer = strBuffer & "</table>")

Buffer.Add = strBuffer

den oprindelige ser således ud:




Dim rsResults
Set rsResults = dicSynkron("rsResults")
if not rsResults.BOF then
    rsResults.MoveFirst
end if

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
           
    Buffer.Add ("<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD width=""33%""><A HREF=""" & sURL & """ target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
            vbTab & vbTab & "<TD width=""33%""><A HREF=""" & sURL & """ target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
            vbTab & vbTab & "<TD width=""34%""><A HREF=""" & sURL & """ target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD><IMG src=""x.gif"" width=""1"" height=""2"" alt=""""></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            "</TABLE>" & vbCrLf)


  rsResults.MoveNext
 
Wend

sorry ... den oprindelige ser således ud ...



Dim rsResults
Set rsResults = dicSynkron("rsResults")
if not rsResults.BOF then
    rsResults.MoveFirst
end if

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
           
    Buffer.Add ("<TABLE WIDTH=""100%"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD width=""100%""><A HREF=""" & sURL & """ target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD><IMG src=""x.gif"" width=""1"" height=""2"" alt=""""></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            "</TABLE>" & vbCrLf)


  rsResults.MoveNext
 
Wend

Melder den ikke om fejl ?

Prøv med det her.

<%
strBuffer = "<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">"

strCounter = 0

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
       
    If strCounter = 0 Then
      strBuffer = strBuffer & "<tr>"
    End If
   
    strCounter = strCounter + 1
   
    strBuffer = strBuffer & "<td style=""width:33%;""><A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A></td>"
   
    If strCounter = 3 Then
      strBuffer = strBuffer & "</tr>"
      strCounter = 0
    End If

    rsResults.MoveNext

Wend

strBuffer = strBuffer & "</table>"

Buffer.Add = strBuffer
%>

jeg får en fejl med denne ... men jeg kan ikke se, hvor det er, at den fejler ...?

kan man ikke skrive det ind i det format, som den har nu ... altså:



Dim rsResults
Set rsResults = dicSynkron("rsResults")
if not rsResults.BOF then
    rsResults.MoveFirst
end if

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
           
    Buffer.Add ("<TABLE WIDTH=""100%"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD width=""100%""><A HREF=""" & sURL & """ target=""_top"">" & sTitle & "</A></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            vbTab & "<TR>" & vbCrLf & _
            vbTab & vbTab & "<TD><IMG src=""x.gif"" width=""1"" height=""2"" alt=""""></TD>" & vbCrLf & _
            vbTab & "</TR>" & vbCrLf & _
            "</TABLE>" & vbCrLf)


  rsResults.MoveNext
 
Wend

Hvad hedder fejlen?

Prøv evt. at skriv:
Response.Write strBuffer efter det sidste kode og så deaktiver Buffer.Add

hov - så skrev den kolonnerne ud (men oppe i toppen af siden)
så koden virker altså ... men hvorfor ikke når jeg aktiverer Buffer.Add????

det er da mærkeligt

Det ved jeg ikke - kender ikke til Buffer.Add

ok ... du får point - jeg fedter selv lige med det sidste

tak for det ...

smid svar

<%
buffer.add("<TABLE WIDTH=""100%"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"">")

strCounter = 0

While Not rsResults.EOF
   
    sURL = rsResults("sURL")
    sTitle = rsResults("sTitle")
       
    If strCounter = 0 Then
      buffer.add("<tr>")
    End If
   
    strCounter = strCounter + 1
   
    buffer.add("<td style=""width:33%;""><A HREF=""" & sURL & " target=""_top"">" & sTitle & "</A></td>")
   
    If strCounter = 3 Then
      buffer.add("</tr>")
      strCounter = 0
    End If

    rsResults.MoveNext

Wend

buffer.add("</table>")
%>

Her er mit svar :-)

så var den der ... perfekt ... rigtig mange tak og sov godt :)

Tak for point :_9

* :-)