' Richard A. DeVenezia, 1/18/2004

Dim uga, now, rest, sh

uga = "https://listserv.uga.edu/cgi-bin/wa?"

now = "A1=ind" _
    & Right(Year(Date),2) _
    & Right("0"&Month(Date),2) _
    & Chr (97 + (Day(Date)-1) \ 7)

rest = "&L=sas-l&O=D&H=0&D=1&T=1"

set sh = CreateObject ("WScript.Shell")
sh.Run uga & now & rest, 1, False