Thank You

<% 'Easy CGI Test Form for sending email via ASPEmail 'Change these values to test the form '------------------------------------- Dim toAddress, subject toAddress = "skeeter@apexdesign.com" subject = "Case Evaluation Form" '------------------------------------- 'Check to see if the form was submitted if request.form("submit") <> "" Then 'if it was then send the email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp1.easycgi.com" ' Specify a valid SMTP server Mail.From = request.form("email") ' Specify sender's address Mail.FromName = request.form("email") ' Specify sender's name Mail.AddAddress toAddress Mail.AddReplyTo request.form("email") Mail.Subject = subject 'Add the form fields to the message body Mail.Body = "Case evaluation Form: " & vbcrlf & _ "------------------------" & vbcrlf & vbcrlf & _ "First Name: " & request.form("First_Name") & vbcrlf & vbcrlf & _ "Last Name: " & request.form("Last_Name") & vbcrlf & vbcrlf & _ "Phone Number: " & request.form("Phone_Number") & vbcrlf & vbcrlf & _ "Street Address: " & request.form("Address") & vbcrlf & vbcrlf & _ "City: " & request.form("City") & vbcrlf & vbcrlf & _ "State: " & request.form("State") & vbcrlf & vbcrlf & _ "Zip Code: " & request.form("Zip_Code") & vbcrlf & vbcrlf & _ "City: " & request.form("City") & vbcrlf & vbcrlf & _ "Email: " & request.form("Email") & vbcrlf & vbcrlf & _ "Case Information: " & request.form("Case_Information") & vbcrlf & vbcrlf & _ On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else Response.Write "Thank YouRedirecting you to the Main Page" End If Else 'if the form was not submitted then output the form html %> Crowley Norman, LLP Attorneys at Law

Redirecting you to the Case Evaluation form

Legal Notice

<% End If %>