有一页网上订单提交的代码，老提示Delivery date is incorrect!
不知道哪里有问题。请各位帮个手！谢了。
-------------------------------------------------
<%PageType = "Contactus"%>
<!--#include virtual="/top.asp"-->
<%
PID = Request("PID")
If PID = "" Then PID=0

If Request.Form("act")<>"" then

    SelectDate = Replace(Replace(Replace(Request("SelectDate"),"/","-"),"/","-"),"/","")
    If Not IsDate(SelectDate) Then Call MsgBox("Delivery date is incorrect!" ,1)
    
    payDate = SelectDate    
    If cdate(PayDate)< Date() Then Call MsgBox("Delivery date shall be during in　"& Now() & " or after it." ,1)
    
    PID = Clng(Request.Form("PID"))
    If PID = 0 Then Call MsgBox("Ordered goods:Choose the products name not the catagory!",1)
    
    Sql = "select CID From Product where PID= " & PID
    Rs.open sql,conn,1,1
        CID = Trim(RS("CID"))
    Rs.close
    
    TrueName = Request("trueName")
    Tel         = Request("Tel")
    Email     = Request("Email")
    address     = Request("address")
    memo     = Request("memo")
    Count     = Request("Count")

    UID = Trim(Session("UserID"))    
    If UID="" Then UID = 0

---------------------------------------------待续。。。