%@ language=vbscript%> <% para=request.QueryString("date") if para="" then thisdate=date else thisdate=cdate(para) end if %>