I've got the following code that pulls data from my Access Database.

Right now, it loads all of today's data into one table, which is sorted Ascending by MedicationGiven, then DESCENDING by ID.

Ideally, I'd like to show separate tables for each possible type of MedicationGiven (which I don't want to set statically, in case they add more later) with a summary of the total dosage given on the bottom of each table.

Currently, this code works but just shows all medications given in one table, and with no summarization.

I'm very new to ASP.net and to coding in general, so please be gentle.

Thanks kindly.

Code:
<html>
<head></head>
<body>

<%

Dim medtotal 
medtotal = "0"
Dim rowcount
rowcount = "0"

Dim strToday
strToday = Date()

strUN = Request.QueryString("un")

If strUN = "" Then
Response.Redirect "index.asp"
Else
End If

Response.Write strToday

'Open the recordset with the SQL query 
rsMain.Open strSQLMain, adoCon
Response.Write ("<center>")
Response.Write ("<table border=""2"" cellspacing=""0"" cellpadding=""0"" width=""100%"" id=""table1"">")
Response.Write ("<tr>")
'Response.Write ("<tr background=""images/rtcolumn2.jpg"">")
Response.Write ("<td bgcolor=""e5ded2"" width=""200""><u><center>Entered Date & Time</u>:</center></td>")
Response.Write ("<td bgcolor=""e5ded2"" width=""300""><u><center>Medication Given</u>:</center></td>")
Response.Write ("<td bgcolor=""e5ded2"" width=""200""><u><center>Dosage Given</u>:</center></td>")
Response.Write ("<td bgcolor=""e5ded2"" width = ""150""><u><center>Patient ID</u>:</center></td>")
'Response.Write ("<td background=""images/grayback.png""><b><center>By:</center></td>")

'Response.Write ("<td><b>DateDiff:</td>")
Response.Write ("</tr>")
'Response.Write strToday

'Loop through the recordset
Do While Not rsMain.EOF

	If rsMain("EnteredBy") = strUN Then
	'If we're dealing with YOUR records - display them.
	
	
		'Check to see if they're from today.
		If CDate(rsMain("EnteredDate")) = CDate(strToday) Then
		'They're today's active records - put them into the table
				Response.Write ("<tr>")
				Response.Write ("<td>")
				Response.Write (rsMain("EnteredDate")& " " & rsMain("EnteredTime") & " " & rsMain("EnteredAMPM"))
				Response.Write ("</td>")

				Response.Write ("<td>")
				Response.Write (rsMain("MedicationGiven"))
				Response.Write ("</td>")

				Response.Write ("<td>")
				Response.Write (rsMain("DosageGiven"))
				Response.Write ("</td>")
     
				Response.Write ("<td>")
				Response.Write (rsMain("PatientID"))
				Response.Write ("</td>")

	
			Else
		'They're from another day - we'll use the previous days viewer later to display them.
		End If
		
	'Response.Write("Item Found with un: " & strUN  & "<br>")
	
	Else
	'These aren't your records - skip to the next item and do nothing
	
	'Response.Write("Item Found without un: " & strUN & "<br>")
	
	End If


    
	
	'END TABLE
	Response.Write	("</tr>")
    Response.Write ("</font>")



    'END OF RECORD - MOVE TO NEXT
	rsMain.MoveNext
	





	Loop

	
	

Response.Write ("</table>")
Response.Write ("<br>")






'Reset server objects
rsMain.Close
Set rsMain = Nothing
Set adoCon = Nothing


%>

</body>
</html>