<% 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 strSubject = "Incomplete Image Upload" strBody = "" strBody = strBody & "Dear " & CFNAME & ",

" strBody = strBody & "I have reviewed the image you uploaded for the FrameFinder(sm) Virtual Eyeglass Try-On. I was unable to resize the image to have the frames appear normal or correctly sized on your face because the image did not meet one or more of the guidelines listed at http://tryontech.framesdirect.com/tryon_client_sign_up.asp

" strBody = strBody & "I would be happy to help you in any way to upload another image so you can begin trying on eyewear online. If you have any questions about the upload process or guidelines, 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 & "" On Error Resume Next 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 On Error Goto 0 strconn = strDBConnectionString strSQL = "EXECUTE dbo.tryclients_sp_update @in_type = 4, @in_client_id = " & ID set conn = server.createobject("adodb.connection") conn.open strconn conn.execute(strSQL) conn.close set conn = nothing 'Response.Write("") '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://admin2/" End If Response.Redirect myAdminBasePath & "admentor/admin/tryon_bottomIFrame_details.asp?PASSCLIENTID=" & ID %>