Sætte en streg hver 6 gang..

Jeg har engang lavet denne, ud fra den kan du se hvordan du skal gøre:

  strSQL = "SELECT tblEmployees.Employee, tblProfiles.img, tblProfiles.Position, tblProfiles.EmpID, tblProfiles.Age, tblProfiles.Department, tblPhonenumbers.LocalNumber FROM tblEmployees, tblProfiles, tblPhonenumbers WHERE tblEmployees.EmpID = tblProfiles.EmpID AND tblPhonenumbers.EmpID = tblProfiles.EmpID"
  Set objRs = objConn.Execute(strSQL)
 
  With Response
  .Write("<table style=""font-size: 10px;"">" & vbCrLf)
  .Write("<tr>" & vbCrLf)
 
  intCount = 0
 
  While Not objRs.EOF

    If intCount = 6 Then
      Response.Write("</tr><tr>" & vbCrLf)
      intCount = 0
    End If
   
    dtmAge = objRs("Age")
   
        .Write("<td onclick=""JumpTo('Show_profile.asp?EmpID=" & objRs("EmpID") & "');"" style=""cursor: hand;"">" & ValidateImg(objRs("img")) & "</td>" & vbCrLf)
        .Write("<td valign=""top"">" & vbCrLf)
        .Write("<table cellpadding=""0"" cellspacing=""0"" style=""font-size: 10px;"">" & vbCrLf)
          .Write("<tr><td>" & objRs("Employee") & "</td></tr>" & vbCrLf)
          .Write("<tr><td>" & Left(dtmAge, 2) & "-" & Mid(dtmAge, 3, 2) & "-" & Right(dtmAge, 4) & "</td></tr>" & vbCrLf)
          .Write("<tr><td>" & objRs("Position") & "</td></tr>" & vbCrLf)
          .Write("<tr><td>" & objRs("Department") & "</td></tr>" & vbCrLf)
          If Len(objRs("Localnumber")) < 3 Then
                .Write("<tr><td>79384700</td></tr>" & vbCrLf)
          Else
              .Write("<tr><td>*****" & objRs("Localnumber") & "</td></tr>" & vbCrLf)
          End If
        .Write("</table>" & vbCrLf & "</td>")
   
    intCount = intCount + 1
   
  objRs.MoveNext()
  Wend
  .Write("</tr>" & vbCrLf)
  .Write("</table>" & vbCrLf)
  End With

//>Rune

Her er den i enkel version:

 
  With Response
  .Write("<table style=""font-size: 10px;"">" & vbCrLf)
  .Write("<tr>" & vbCrLf)
 
  intCount = 0
 
  While Not objRs.EOF

    If intCount = 6 Then
      Response.Write("</tr><tr>" & vbCrLf)
      intCount = 0
    End If
   
        .Write("<td>" & objRs("feltnavn") & "</td>" & vbCrLf)
   
    intCount = intCount + 1
   
  objRs.MoveNext()
  Wend
  .Write("</tr>" & vbCrLf)
  .Write("</table>" & vbCrLf)
  End With

//>Rune

Kan man så få den til at skrive, 1, 2, 3, 4 osv. hver gang der kommer en ny tabel ?

Har selv fundet ud af det...

Takker for hjælpen...

Fair nok ;o)
Anytime...
Thx 4 Poinz

//>Rune