Dim i, nHoriz
nHoriz = 5
i = 0

rs.movefirst
Do while not rs.eof
  if i mod nHoriz = 0 then
    response.write "<tr>"
  end if
  response.write "<td>" & rs("datefield") & "</td>"
  if i mod nHoriz = 0 and i > 0 then
    response.write "</tr>"
  end if
  i = i + 1
  rs.movenext
loop

Response.Write "<table border=""1"" bordercolor=""C2C281"" width=""100%"" cellpadding=""0"" cellspacing=""0"">"
DispatchesDate = Request.QueryString("DispatchesDate")

	set my_Conn = Server.CreateObject("ADODB.Connection")
  my_Conn.Open strConnString
	strSql = "SELECT DISTINCT ad_DispatchDate FROM dispatches"
	set rsDispatches = my_Conn.Execute (strSql)
	
		if rsDispatches.EOF then
  		recDispatchesCount = ""
  	else
  		allDispatchesData = rsDispatches.GetRows() 'adGetRowsRest
  		recDispatchesCount = UBound(allDispatchesData,2)
  	end if
  
  	rsDispatches.close
  	set rsDispatches = nothing
  
  	if recDispatchesCount = "" then
  		strerror = "No Dispatches Found"
			response.write strerror
  	else
		dDate = 0
			  
 				 
			for iDispatches = 0 to recDispatchesCount
			DispatchesDate = allDispatchesData(dDate, iDispatches)

  
						Response.Write "<tr align=""center"">" & vbNewLine & _
									   "<td width=""10%""><A HREF=""dispatch2.asp?Action=PastDate&DispatchDate=" & DispatchesDate & """>" & DispatchesDate & "</td>" & vbNewLine & _
									   "<td width=""90%""></td>" & vbNewLine & _
									   "</tr>" & vbNewLine
									   									
  		next
		Response.Write "</table>"
  	end if

		
	set rsDispatches = nothing
	my_Conn.Close
	set my_Conn = nothing