<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '////////////////////////////////////////////////////////////////////////////////// Dim OrderProID Action=request("Action") '============================================== if Action="Send" then OrderProID=request("OrderProID") if OrderProID="" then response.write "sorry.info" response.End() else sqlprice="select * from [Product] where ID in ("& OrderProID &") order by Paix" Set rs_price=Server.CreateObject("ADODB.Recordset") rs_price.open sqlprice,conn,1,3 While Not rs_price.EOF ProName= ProName& rs_price("Title") &"  |  " rs_price.MoveNext Wend rs_price.close set rs_price=nothing end if ProName=ProName '================================================== tname=Request("yname") if tname="" then response.write "" response.end() end if temail =Request("yemail") if temail="" then response.write "" response.End() elseif temail<>"" then if IsValidEmail(temail)=False then response.write "" response.End() end if end if Company=trim(request("ycompany")) if Company="" then Company=" " end if phone=trim(request("ytel")) if phone="" then phone=" " end if Fax=trim(request("yfax")) if Fax="" then Fax=" " end if Websfrom=trim(request("Websfrom")) if Websfrom<>"" then Websfrom=Websfrom end if yother=request("yother") if yother="" then yother=" " end if tsubject =Request("subject") set rs=server.createobject("adodb.recordset") sql="select * from [Order]" rs.open sql,conn,1,3 rs.addnew rs("y_chanpin")=ProName rs("subject")=tsubject rs("y_name")=tname rs("y_email")=temail rs("y_company")=Company rs("y_tel")=phone rs("y_fax")=Fax rs("y_other")=yother rs("Websfrom")=Websfrom rs("Passed")=False rs.update rs.close set rs=nothing response.write "" response.write "" 'tother=ProName&"Name:" & tname & "
"&"E-mail:"&temail&"
"&Company&phone&Fax&Websfrom&yother '========================================================================================== 'Dim CompanySend,clientsSend 'CompanySend=SendMail("sales@sbkpv.com",Sitename,"Order Form www.forged-valve.com",tother,tname,temail) end if %>