<% Function rpsq(strline) newstrline = Replace(Trim(strline), "'", "''") rpsq = newstrline End Function set conn = Server.CreateObject( "ADODB.Connection" ) set connb5 = Server.CreateObject( "ADODB.Connection" ) conn.Open Application("Connappley") connb5.Open Application("Connappleyb5") If Request("action1") <> "" Then familyname = rpsq(Request("FamilyName")) firstname = rpsq(Request("FirstName")) pwd1 = rpsq(Request("pwd1")) pwd2 = rpsq(Request("pwd2")) gender = rpsq(Request("Gender")) companyphone = rpsq(Request("CompanyPhone")) mobilephone = rpsq(Request("MobilePhone")) homephone = rpsq(Request("HomePhone")) email = rpsq(Request("Email")) Address = rpsq(Request("Address")) City = rpsq(Request("City")) postalcode = rpsq(Request("PostalCode")) strsql="select city2 from zipcode where code='"& postalcode &"'" set rs=conn.execute(strsql) if not rs.eof then city2=rs("city2") end if rs.close Family = Request("Family") need1 = Request("need1") sNeed = "Service items：" If need1 = "1" Then sNeed = sNeed & " Children care " need2 = Request("need2") If need2 = "1" Then sNeed = sNeed & " Cleaning " need3 = Request("need3") If need3 = "1" Then sNeed = sNeed & " Laundry & Ironing " need4 = Request("need4") If need4 = "1" Then sNeed = sNeed & " Collecting " need5 = Request("need5") If need5 = "1" Then sNeed = sNeed & " Shopping " need6 = Request("need6") If need6 = "1" Then sNeed = sNeed & " Cooking " need7 = Request("need7") sSource = "Where did you learn about Momosun service?" source1 = Request("source1") If source1 = "1" Then sSource = sSource & " Website " source2 = Request("source2") If source2 = "1" Then sSource = sSource & " Newspaper " source3 = Request("source3") If source3 = "1" Then sSource = sSource & " Media " source4 = Request("source4") If source4 = "1" Then sSource = sSource & " DM" source5 = Request("source5") If source5 = "1" Then sSource = sSource & " Via introduction " source6 = Request("source6") If source6 = "1" Then sSource = sSource & " TV " source7 = Request("source7") If source7 = "1" Then sSource = sSource & " Magazine " source8 = Request("source8") If source8 = "1" Then sSource = sSource & " Others " source8txt = rpsq(Request("source8txt")) sSource = sSource & " " & source8txt week1 = rpsq(Request("week1")) weektime1=Request("weektime1") time1 = Request("time1") space1 = rpsq(Request("space1")) sMemo = "Family member：" & Family & " " sMemo = sMemo & sNeed & " " sMemo = sMemo & sSource & " " sMemo = sMemo & "Preferred Service Hours： " & week1 & " " & time1 & " "& weektime1 &"times / how many times a week " sMemo = sMemo & "Square / by ping ：" & space1 & "ping " sMailbody = "" sMailbody = sMailbody & "Name：" & familyname & firstname & "
" sMailbody = sMailbody & "Gender ：" & gender & "
" sMailbody = sMailbody & "Office Tel. No. ：" & companyphone & "
" sMailbody = sMailbody & "Cell phone No.：" & mobilephone & "
" sMailbody = sMailbody & "Home Tel No. ：" & homephone & "
" sMailbody = sMailbody & "E-Mail：" & email & "
" sMailbody = sMailbody & "Address ：" & City & postalcode & city2 & Address & "
" sMailbody = sMailbody & sMemo & "
" Set sMail = Server.CreateObject("CDONTS.NewMail") sMail.From = Application("CompanyName") & "<" & Application("contactemail") & ">" sMail.To = email sMail.Subject = stritemname & "回覆" sMail.Body = familyname & firstname & "您好！歡迎您的加入，我們將儘快為您服務！
您填寫資料如下：
" & sMailbody sMail.BodyFormat = 0 sMail.MailFormat = 0 sMail.Send store_id="3" Set sMail = Server.CreateObject("CDONTS.NewMail") sMail.From = email if request("City")="Tainan City" or request("City")="Tainan County" then sMail.To = "tainan@[192.168.1.3]" sMail.Bcc = "service@[192.168.1.3]" response.write Application("contactemail") & "
" else sMail.To = "service@[192.168.1.3]" end if sMail.Subject = stritemname & "回覆(For 桃媽媽)" sMail.Body = familyname & firstname & "您好！歡迎您的加入，我們將儘快為您服務！
您填寫資料如下：
" & sMailbody sMail.BodyFormat = 0 sMail.MailFormat = 0 sMail.Send strsql = "insert into client (password,familyname,firstname,gender,email,postalcode,address,homephone,companyphone,mobilephone,memo,store_id) values ('" & pwd1 & "',convert('" & familyname & "','BIG5','UNICODE'),convert('" & firstname & "','BIG5','UNICODE'),convert('" & gender & "','BIG5','UNICODE'),'" & email & "','" & postalcode & "',convert('" & Address & "','BIG5','UNICODE'),'" & homephone & "','" & companyphone & "','" & mobilephone & "',convert('" & sMemo & "','BIG5','UNICODE'),"& store_id &")" connb5.Execute (strsql) Response.Write "" End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "關於我們" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write Chr(13) & "" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
 
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Booking" & vbCrLf Response.Write " Tried Order" & vbCrLf Response.Write " Signing Service Contract" & vbCrLf Response.Write " Starting Services" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
Contact us
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Tel. Taipei 02-2778-3953
" & vbCrLf Response.Write "" & vbCrLf Response.Write "Tel. Taoyuan 03-356-2123
" & vbCrLf Response.Write "" & vbCrLf Response.Write "Tel. Tainan 06-313-7659" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
Book on line
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Please complete form hereafter, we will reply to you within 2 days
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
Fields marked with an asterisk * are required." & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Name*：" & vbCrLf Response.Write " " & vbCrLf Response.Write "Last name " & vbCrLf Response.Write "First name
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Password* ：" & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write " Six characters or more! ID may consist of A-Z, a-z, 0-9, underscores, and a single dot (.)
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Re-type password * ：" & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Gender ：" If gender = "M" Then Response.Write " M F" & vbCrLf Else Response.Write " M F" & vbCrLf End If Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Office Tel. No. ：" & vbCrLf Response.Write "
Cell phone No.：
Home Tel No. ：
E-Mail* ：
Address ：" & vbCrLf Response.Write "" & vbCrLf Response.Write " ---" & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Family member：" & vbCrLf Response.Write " #
Service items： " & vbCrLf strchecked = "" If need1 = "1" Then strchecked = " checked" Response.Write " " & vbCrLf Response.Write " Children care " & vbCrLf strchecked = "" If need2 = "1" Then strchecked = " checked" Response.Write " Housecleaning " & vbCrLf strchecked = "" If need3 = "1" Then strchecked = " checked" Response.Write " Laundry & ironing
" & vbCrLf strchecked = "" If need4 = "1" Then strchecked = " checked" Response.Write " Rearranging and storing of goods " & vbCrLf strchecked = "" If need5 = "1" Then strchecked = " checked" Response.Write " Grocery shopping " & vbCrLf strchecked = "" If need6 = "1" Then strchecked = " checked" Response.Write " Cooking " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Where did you learn about Momosun service? " & vbCrLf strchecked = "" If source1 = "1" Then strchecked = " checked" Response.Write " Website " & vbCrLf strchecked = "" If source2 = "1" Then strchecked = " checked" Response.Write " Newspaper " & vbCrLf strchecked = "" If source3 = "1" Then strchecked = " checked" Response.Write " Media " & vbCrLf strchecked = "" If source4 = "1" Then strchecked = " checked" Response.Write " DM " & vbCrLf strchecked = "" If source5 = "1" Then strchecked = " checked" Response.Write " Via introduction
" & vbCrLf strchecked = "" If source6 = "1" Then strchecked = " checked" Response.Write " TV " & vbCrLf strchecked = "" If source7 = "1" Then strchecked = " checked" Response.Write " Magazine " & vbCrLf strchecked = "" If source8 = "1" Then strchecked = " checked" Response.Write " Others " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Preferred Service Hours：  " & vbCrLf Response.Write " " & vbCrLf Response.Write " times / how many times a week , on" & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf If time1 = "8:00~12:00" Or time1 = "" Then Response.Write " 8:00~12:00　" & vbCrLf Response.Write " 14:00~18:00　" & vbCrLf else Response.Write " 8:00~12:00　" & vbCrLf Response.Write " 14:00~18:00　" & vbCrLf end if Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
Square / by ping ：" & vbCrLf Response.Write " " & vbCrLf Response.Write " ping
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
© 2002 All Rights Reserved.
" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" If Request("action1") <> "" Then Response.Write "" End If %>