<% Response.Buffer = True %> <% Dim strKorean, strEnglish, strPhone, strEmail, strAddress, strCity, strState, strZip, strWebsite, strSubject, strFrom, strTo, strBody Dim objCDOMail strKorean = request.form("korean") strEnglish = request.form("english") strPhone = request.form("Phone") strEmail = request.form("Email") strAddress = request.form("address") strCity = request.form("city") strState = request.form("state") strZip = request.form("zip") strWebsite = request.form("website") strSubject = "DC Korea new shop info registeration" strFrom = strEmail strTo = "dc@dckorea.com" strBody = "Korean company name: " & strKorean & vbnewline & "English company name: " & strEnglish & vbnewline & "The email is: " & strEmail & vbnewline & "The Phone Number is: " & strPhone & vbnewline & "Street Address : " & strAddress & vbnewline & "City: " & strCity & vbnewline & "State :" & strState & vbnewline & "Zip code : " & strZip & vbnewline & "Website : " & strWebsite & vbnewline Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strFrom objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send set objCDOMail = nothing Response.redirect "yellowpage.htm" %>