<% Dim strFrom, strTo, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object Dim To_EMAIL Dim CFNAME, CLNAME, PASSWORD, CDOB 'Dim rsGetDomain CFNAME = Func_FixQuotes(Request.Querystring("FNAME")) CLNAME = Func_FixQuotes(Request.Querystring("LNAME")) TO_EMAIL = Func_FixQuotes(Request.Querystring("CEMAIL")) PASSWORD = Func_FixQuotes(Request.Querystring("PASS")) CDOB = Func_FixQuotes(Request.Querystring("DOB")) ID = Func_ValidateNumeric(Request.QueryString("CID"), 0) strFrom = "tryonsupport@framesdirect.com" strTo = TO_EMAIL 'strTo = "sgrey@framesdirect.com" strSubject = "Your FrameFinder Login Complete" strBody = "" strBody = strBody & "Dear " & CFNAME & ",

" strBody = strBody & "Hello again!

" strBody = strBody & "I wanted to let you know I just finished adjusting the photo that you submitted to the FrameFinder Virtual Try-On System at FramesDirect.com.

" strBody = strBody & "It looks great, and you can check it out at http://www.framesdirect.com/tryoncfver/login.asp.

" strBody = strBody & "Just click on the link to log on to FrameFinder using the information that I've included below, and start trying on eyeglasses online!

" strBody = strBody & "I've personally taken a look at your photo, and by using Dr. Hodgson's patented 'Face-Formula', I'd be more happy to help you pick out the perfect frames or offer you any advice. Just let me know if there's anything I can do to make your FrameFinder experience a great one!

" strBody = strBody & "If you have any questions at all about products, your prescription, or how to use FrameFinder, don't hesitate to call me directly or any of our friendly operators at 1-800-248-9427, Monday-Friday, 9:00 am - 6:00 pm CST.

" strBody = strBody & "Thanks for choosing FramesDirect.com and I look forward to hearing from you soon!

" strBody = strBody & "Best Regards,
" strBody = strBody & "Jessica, your personal FrameFinder Specialist
" strBody = strBody & "1-800-248-9427 EXT. 287
" strBody = strBody & "http://www.framesdirect.com

" strBody = strBody & "" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.From = strFrom objCDOMail.To = strTo objCDOMail.Bcc = "tryonsupport@framesdirect.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send strconn = strDBConnectionString strSQL = "EXECUTE dbo.tryclients_sp_update @in_type = 3, @in_client_id = " & ID set conn = server.createobject("adodb.connection") conn.open strconn conn.execute(strSQL) conn.close set conn = nothing 'Response.Write("") Dim strServerName strServerName = Request.ServerVariables("Server_Name") If strServerName = "tryontech.dev" Then myAdminBasePath = "http://admin.dev/" ElseIf strServerName = "tryontech.stage" Then myAdminBasePath = "http://admin.stage/" ElseIf strServerName = "tryontech.preprod" Then myAdminBasePath = "http://admin.preprod/" Else myAdminBasePath = "http://admin/" End If Response.Redirect myAdminBasePath & "admentor/admin/tryon_bottomIFrame_details.asp?PASSCLIENTID=" & ID %>