<% Dim strFrom, strTo, strSubject, strBody Dim objCDOMail 'The CDO object Dim To_EMAIL Dim CFNAME, CLNAME, PASSWORD, CDOB 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 If Not SQLQUERY.Eof Then strFrom = "tryonsupport@framesdirect.com" strTo = (SQLQUERY.Fields.Item("EMAIL").Value) strSubject = "Update to your FrameFinder Photo" strBody = "" strBody = strBody & "Dear " & (SQLQUERY.Fields.Item("FNAME").Value) & ",

" strBody = strBody & "Hello again.

" strBody = strBody & "I wanted to let you know I just finished adjusting the photo you submitted to FrameFinder(sm) Virtual Eyeglass Try-On.

" strBody = strBody & "I've personally taken a look at your photo, and by using Dr. Hodgson's patented 'Face-Formula', I'd be 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 good one.

" strBody = strBody & "To see your photo, click on the link http://www.framesdirect.com/tryoncfver/login.asp and log on to FrameFinder(sm) to start trying on eyewear online.

" strBody = strBody & "If you have any questions at all about products, your prescription, or how to use FrameFinder(sm), call me or any of our friendly operators directly via:" strBody = strBody & "" strBody = strBody & "Thank you for choosing FramesDirect.com.

" 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 = (SQLQUERY.Fields.Item("EMAIL").Value) 'objCDOMail.Bcc = "tryonsupport@framesdirect.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send strSQL = "EXECUTE dbo.tryclients_sp_update @in_type = 6, @in_client_id = " & CID Set conn = Server.CreateObject("ADODB.Connection") conn.Open sConnectionString conn.Execute(strSQL) conn.close Set conn = Nothing Response.Write "

Email has been sent to client successfully
" Else Response.Write "

Error while sending email for client : " & CID & "
" End If 'Response.Write "

Click here to close this window
" '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.Write("") Response.Redirect myAdminBasePath & "admentor/admin/tryon_bottomIFrame_details.asp?PASSCLIENTID=" & CID %>