|
<%
if Request("act") = "save" then
dim p_name,p_sex,p_position,p_companyname,p_profession,p_phone,p_cellphone,p_email,p_fax,p_address,p_zipcode,p_request,p_paymode,p_chclass,p_inscription
p_name = nohtml(Request("name"))
p_sex=Request("sexValue")
p_position = nohtml(Request("position"))
p_companyname = nohtml(Request("companyname"))
p_profession = nohtml(Request("profession"))
p_phone = nohtml(Request("phone"))
p_cellphone = nohtml(Request("cellphone"))
p_email = nohtml(Request("email"))
p_fax = nohtml(Request("fax"))
p_address = nohtml(Request("address"))
p_zipcode = nohtml(Request("zipcode"))
p_request = nohtml(Request("request"))
p_paymode = nohtml(Request("paymode"))
p_chclass = nohtml(Request("chclassValue"))
p_inscription = nohtml(Request("inscription"))
'是否有姓名重复的记录
set rs=server.createobject("adodb.recordset")
rs.open "select * from [partner] where name='"&p_name&"'",conn,1,3
if not(rs.eof and rs.bof) then
Call showErr("已经存在此单位和个人!")
else
if trim(p_name) = "" then
Call showErr("姓名不能为空!")
End if
if trim(p_companyname) = "" then
Call showErr("公司名称不能为空!")
End if
' if trim(p_profession) = "" then
' Call showErr("公司业务方向不能为空!")
' End if
if trim(p_phone) = "" then
Call showErr("电话不能为空!")
End if
if trim(p_cellphone) = "" then
Call showErr("手机不能为空!")
End if
if trim(p_email) = "" then
Call showErr("邮箱地址不能为空!")
else
if IsValidEmail(p_email)=false then
Call showErr("邮箱地址格式不正确!")
end if
End if
if p_chclass = "" then
Call showErr("请选择参会类别!")
End if
' if trim(p_request) = "" then
' Call showErr("您希望在会上得到那些收获此项不能为空!")
' End if
Conn.Execute("insert into [partner] ([name],[sex],[companyname],[profession],[position],[phone],[cellphone],[email],[fax],[address],[zipcode],[request],[chclass],[inscription]) values ('"&p_name&"','"&p_sex&"','"&p_companyname&"','"&p_profession&"','"&p_position&"','"&p_phone&"','"&p_cellphone&"','"&p_email&"','"&p_fax&"','"&p_address&"','"&p_zipcode&"','"&p_request&"','"&p_chclass&"','"&p_inscription&"')")
Conn.Close
Call sucessMsg1("感谢您对我们流媒体网的支持,稍后,我们的市场人员会和您进行电话确认。感谢!")
end if
End if
%>
|
|