<% 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 = Request.Querystring("FNAME") 'CLNAME = Request.Querystring("LNAME") 'TO_EMAIL = Request.Querystring("CEMAIL") 'PASSWORD = Request.Querystring("PASS") 'CDOB = Request.Querystring("DOB") CID = Func_ValidateNumeric(Request.Querystring("ID"), 0) sConnectionString = strDBConnectionString set SQLQUERY = Server.CreateObject("ADODB.Recordset") SQLDETAILSQUERY = "EXECUTE dbo.tryClients_sp_details @in_type = 8, @in_client_id = " & CID SQLQUERY.ActiveConnection = sConnectionString SQLQUERY.Source = SQLDETAILSQUERY SQLQUERY.CursorType = 0 SQLQUERY.CursorLocation = 3 SQLQUERY.LockType = 3 SQLQUERY.Open strFrom = "tryonsupport@framesdirect.com" strTo = (SQLQUERY.Fields.Item("EMAIL").Value) 'strTo = "sgrey@framesdirect.com" strSubject = "FrameFinder Virtual Eyeglass Try-On" strBody = "" strBody = strBody & "Hello " & (SQLQUERY.Fields.Item("FNAME").Value) & ",

" strBody = strBody & "Thank you for uploading your photo to FrameFinder(sm) Virtual Eyeglass Try-On. You may have already started trying on some of our favorite eyeglasses and sunglasses.

" strBody = strBody & "As a reminder you can add frames and sunglasses to Your Favorites and email them to your friends or family.

" strBody = strBody & "If for some reason, the frames don’t look normal or correctly sized on your face, there may have been an issue with how you sized the photo during the upload process. Please upload your photo again if necessary, but for best results make sure it meets the guidelines listed at http://tryontech.framesdirect.com/tryon_client_sign_up.asp

" strBody = strBody & "I will take a look at your photo and resize it if necessary for best results.

" strBody = strBody & "Contact me directly or any of our customer service operators if you need help via :

" strBody = strBody & "" strBody = strBody & "Best Regards,

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

" strBody = strBody & "Your image is always available for viewing at http://www.framesdirect.com/tryoncfver/login.asp

" strBody = strBody & "" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.From = strFrom objCDOMail.To = (SQLQUERY.Fields.Item("EMAIL").Value) objCDOMail.Bcc = "tryonsupport@framesdirect.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send strconn = strDBConnectionString strSQL = "EXECUTE dbo.tryclients_sp_update @in_type = 5, @in_client_id = " & CID Response.Write(strSQL) set conn = server.createobject("adodb.connection") conn.open strconn conn.execute(strSQL) conn.close set conn = nothing %>