%
dim ID,action
emailtitle=Request.QueryString ("email")
ID=Request.QueryString ("ID")
Seminar_Typeid=Request.QueryString ("Seminar_Typeid")
action=trim(Request.QueryString("action"))
url=trim(Request.QueryString("url"))
page_from=trim(Request.form("page_from"))
if isnumeric(Seminar_Typeid)=0 or Seminar_Typeid="" then
Seminar_Typeid=69
end if
select case action
case "domail"
if IsValidEmail(emailtitle)=false then
call message("郵件地址檢測失敗!")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from wbsp_Mail_Contact where qizuflag=1 and Contact_Email='"&emailtitle&"'"
rs.open sql,conn,1,1
if not rs.eof then
Do_Company_Name=rs("Company_Name")
Do_Contact_Name = Rs("Contact_Name")
Do_Job_Title = Rs("Job_Title")
Do_Department=Rs("Department")
Do_Contact_Phone=Rs("Contact_Phone")
Do_Contact_Mobile=Rs("Contact_Mobile")
Do_Contact_Email=Rs("Contact_Email")
Do_Contact_Province=rs("Contact_Province")
Do_Contact_City=rs("Contact_City")
Do_Contact_Address=rs("Contact_Address")
end if
case "regform"
Company_Name=left(Trim(request.form("Company_Name")),200)
Contact_Name=left(Trim(request.form("Contact_Name")),30)
Job_Title= left(Trim(request.form("Job_Title")),45)
Department=left(Trim(request.form("Department")),45)
Contact_Phone=left(Trim(request.form("Contact_Phone")),45)
Contact_Mobile=left(Trim(request.form("Contact_Mobile")),45)
Contact_Email=left(Trim(request.form("Contact_Email")),80)
Contact_Address=left(Trim(request.form("Contact_Address")),255)
Seminar_Typeid= Trim(request.form("Seminar_Typeid"))
name2= Trim(request.form("name2"))
phone2= Trim(request.form("phone2"))
email2= Trim(request.form("email2"))
name3= Trim(request.form("name3"))
phone3= Trim(request.form("phone3"))
email3= Trim(request.form("email3"))
Seminar_Other="同事2:"&name2&"-電話2:"&phone2&"-email2:"&email2&"同事3:"&name3&"-電話3:"&phone3&"-email3:"&email3&""
if Contact_Email="" or strLength(Contact_Email)>60 then
call message("郵件地址不能為空,或字符長度不能大于60!")
response.end
end if
if IsValidEmail(Contact_Email)=false then
call message("請正式填寫您的郵件地址!")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from wbsp_Mail_Contact where QizuFlag=1 and Contact_Email='"&Contact_Email&"'"
rs.open sql,conn,1,3
rs.addnew
rs("Contact_Email")=Contact_Email
if Company_Name<>"" then
rs("Company_Name")=Company_Name
end if
if Contact_Name<>"" then
rs("Contact_Name")=Contact_Name
end if
if Job_Title<>"" then
rs("Job_Title")=Job_Title
end if
if Department<>"" then
rs("Department")=Department
end if
if Contact_Phone<>"" then
rs("Contact_Phone")=Contact_Phone
end if
if Contact_Mobile<>"" then
rs("Contact_Mobile")=Contact_Mobile
end if
if Contact_Address<>"" then
rs("Contact_Address")=Contact_Address
end if
rs("Seminar_Typeid")=Seminar_Typeid
rs("Seminar_Other")=Seminar_Other
rs("Update_time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
'BatchSendMail
Response.Write ""
Response.end
end select
%>