<%
If Request.Form.Count > 0 Then
'Form data has been received...
Dim strStatus
If request.form("email_address") = "" THEN
Response.Write "email_address: " + request.form("email_address")
'The form was not entered correctly
Response.redirect ("emailtest/re_submit.html")
response.end
STOP
END IF
If SendForm(strStatus) Then
'The form was emailled successfully
Response.redirect ("emailtest/done.html")
response.end
STOP
Else
'There was a problem sending the form
Response.Write "The form couldn't be sent, the reason is: "
Response.Write strStatus
End If
Else
'No form received - display the form
%>
Office Wizards ~ Contact Us
Office Wizards
1 Stirling Business Park
Britannia Road
Waltham Cross
Hertfordshire
EN8 7NX
