Join SACAF -- Sino-American Culture & Arts Foundation

<% if Request("Action")="CodeCheck" then username=request("user_name") password=request("code") if password="" then Response.write"" Response.end else Md5_Pass=md5(password) end if set rs=server.createobject("adodb.recordset") sqlstr="select * from user_table where username='sacaf'" rs.open sqlstr,conn,1,3 if not rs.eof and not rs.bof then if rs("IsActive")=True then if rs("userpass")=Md5_Pass then rs("LoginTime")=date() rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR") rs.Update session("loginUserName")=rs("username") session("loginUserpassword")=rs("userpass") session("loginpassword")=Md5_Pass response.redirect "https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=9552082" else Response.write"" Response.end end if else response.write"" response.End() end if else Response.write"" Response.end end if end if If Request("Action")="Save" Then FirstName=Request("FirstName") LastName=Request("LastName") Position=Request("title") CompanyName=Request("CompanyEname") CompanyAddress=Request("CompanyAddress") City=Request("City") State=Request("State") ZipCode=Request("ZipCode") Country=Request("Country") Email=Request("Email") Officephone=Request("Officephone") Fax=Request("Fax") Note=Request("note") set rs=server.createobject("adodb.recordset") rs.open "Select * From User_table Where username='" & username & "'",conn,1,3 if (rs.eof and rs.bof) then Rs.addnew rs("CompanyName")=CompanyName rs("State")=State rs("FirstName")=FirstName rs("LastName")=LastName rs("Title")=Title rs("CompanyAddress")=CompanyAddress rs("City")=City rs("ZipCode")=ZipCode rs("Country")=Country rs("Officephone")=Officephone rs("Fax")=Fax rs("Email")=Email rs("datetime")=date() if NeedCheck=1 then Rs("IsActive")=False else Rs("IsActive")=True end if rs("ip")=Request.ServerVariables("REMOTE_ADDR") rs.update rs.close End if If FirstName="" OR LastName="" OR CompanyName="" OR CompanyAddress="" OR City="" OR State="" OR Zipcode="" OR Email="" OR Officephone="" Then Response.write"" Response.End End if Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromName = "Member Registration Form" Mail.FromAddress= bmzq_mail Mail.ContentType= "text/html" Mail.RemoteHost = "mrelay.perfora.net" Mail.AddRecipient "SACAF", "info@sacaf.org" Mail.Subject = "SACAF Member Registration Form" mailbody=mailbody &"SACAF Member Registration Form
" mailbody=mailbody &"======================================================================
" mailbody=mailbody &"First Name:  "& FirstName &"

" mailbody=mailbody &"Last Name:  "& LastName &"

" mailbody=mailbody &"Title:  "& Title &"

" mailbody=mailbody &"Company Name:  "& CompanyEname &"

" mailbody=mailbody &"Company Address:  "& CompanyAddress &"

" mailbody=mailbody &"City:  "& City &"

" mailbody=mailbody &"State:  "& State &"

" mailbody=mailbody &"Zip code/Postal Code:  "& Postal &"

" mailbody=mailbody &"Country:  "& Country &"

" mailbody=mailbody &"Email Address:  "& Email &"

" mailbody=mailbody &"Telephone Number:  "& Telephone &"

" mailbody=mailbody &"Fax Number:  "& Fax &"

" mailbody=mailbody &"Note:  "¬e &"

" Mail.BodyText=mailbody &"

" if Mail.SendMail then Response.Redirect "thanks.html" Response.End() else Response.Write "Message send failure. Error was " & Mail.Response Response.End() end if End if %> Join SACAF -- Sino-American Culture & Arts Foundation

Join us! Become a member of Sino-American Culture & Arts Foundation, one affiliate of Sino-American Friendship Association, to strengthen your bilateral relations and participate in educational and cultural exchange between U.S. and China.

* required

*First Name
*Last Name
Title
*Company Name
*Company Address
*City
*State/Province
*Country
*Zip/Postal
*Phone (Office)
Mobile Phone
FAX
*E-mail
Company Website
Note

<% Conn.Close Set Conn = Nothing %>