' 提交订购表单

     Sub Buyhm()

    Dim jb,jt,gs,ContactAddress,lx,lxr,sfz,hy,yb,em,jj,sql1

     Dim Cpid:Cpid=request.Form("Cpid")

    'HmName=request.Form("HmName")

    jb=request.Form("jb")

    jt=request.form("jt")

    gs=request.form("gs")

    ContactAddress=request.form("ContactAddress")

    lx=request.form("lx")

       lxr=request.form("lxr")

    sfz=request.form("sfz")

    hy=request.form("hy")

    yb=request.form("yb")

    em=request.form("em")

    jj=request.form("jj")

      

     Dim RS:Set RS=Server.CreateObject("adodb.recordset")

     RS.Open "Select top 1 * From KS_Product where id="&Cpid,conn,1,1  

     If RS.Eof Then

    'Exit Sub

       Response.Write   ("<script>alert('看看您什么忘记填写了？没有填写域名吧？');javascript:history.back(1)</script>")  

    RS.AddNew

    'RS("Pid")=Pid

    'RS("Inputer")=HmName

    'RS("ProID")=ProID

    RS("jb")=jb

    RS("jt")=jt

    RS("gs")=gs

    RS("ContactAddress")=ContactAddress

    RS("lx")=lx

    RS("lxr")=lxr

    RS("sfz")=sfz

    RS("hy")=hy

    RS("yb")=yb

    RS("em")=em

    RS("jj")=jj

    RS("AddDate")=Now

    RS.Update

    'response.Write "成功！！！！"

    End If

        RS.Close : Set RS=Nothing

    end sub