我的是一个“有效日期”保存为一条信息，比如：
————————————————————————————————————————————
ID YM （药名） YXRQ （有效日期） XZZT（现在状态）
1 感冒药 2006-10-1 正常
2 某某药 2005-2-1 过期
————————————————————————————————————————————
第一条信息和第二条信息是分别保存进去的。
第一条信息和第二条信息不能保存在一起！

请问老师怎么做？

这些药品名称应该是分页显示的吧？循环时单独判断是否过期。

那我就写主要的部分其它分页楼主应该会写吧
'……省略分页循环初始化部分
'一下为判断过期函数
Function IsStaleDated(theDate,SDNum)
IF DateDiff("d", Now, theDate)<=10 Then
'如果药品有效期与当前日期之间相差小于10天
IF DateDiff("d", Now, theDate)<=0 Then
'如果药品有效期与当前日期之间相差小于等于0天
IsStaleDated="stale dated"
'则判定该药品过期
Else
'否则该药品即将过期
IsStaleDated="quick stale dated"
'取得过期时间
SDNum=DateDiff("d", Now, theDate)
End IF
End IF
End Function
'……省略网页其它内容代码
Dim SDNum'定义变量接收快过期的天数
SDNum=0
For iPage=0 To rs.PageSize
With Response
'……省略分页循环其它内容代码
'一下为判断过期实例代码，其他HTML代码自行补充，实例只写主要代码。
IF IsStaleDated(rs.Fields("YXRQ").Value,SDNum)="stale dated" Then
.Write "药品已过期"
Else
IF SDNum<>0 Then
.Write "药品过期还有"&CStr(SDNum)&"天"
Else
.Write "药品还未过期可以继续使用"
End IF
End IF
End With
'rs对象为分页循环对象这里是实例用途
'具体使用时请替换成网页中原有的具体循环对象
IF rs.EOF Then Exit For
Next