<% Dim iErrMsgs Dim iErrJScript Dim aErrMsgs() Dim aErrJScript() If IsEmpty(request.Form("submit"))=False Then iErrMsgs = 0 iErrJScript = 0 If request.Form("sName")="" Then iErrJScript = iErrJScript + 1 ReDim Preserve aErrJScript(iErrJScript) iErrMsgs = iErrMsgs + 1 ReDim Preserve aErrMsgs(iErrMsgs) aErrMsgs(iErrMsgs) = "please enter a contact name" aErrJScript(iErrJScript) = "document.getElementById('sName').style.border = '1px solid ff0000';" End If If request.Form("sComments")="" Then iErrJScript = iErrJScript + 1 iErrMsgs = iErrMsgs + 1 ReDim Preserve aErrMsgs(iErrMsgs) ReDim Preserve aErrJScript(iErrJScript) aErrMsgs(iErrMsgs) = "enter the details of your enquiry" aErrJScript(iErrJScript) = "document.getElementById('sComments').style.border = '1px solid ff0000';" End If If request.Form("sEmail")="" Then iErrJScript = iErrJScript + 1 ReDim Preserve aErrJScript(iErrJScript) iErrMsgs = iErrMsgs + 1 ReDim Preserve aErrMsgs(iErrMsgs) aErrMsgs(iErrMsgs) = "please enter a valid email address" aErrJScript(iErrJScript) = "document.getElementById('sEmail').style.border = '1px solid ff0000';" End If If request.Form("sTelNo")="" Then iErrJScript = iErrJScript + 1 ReDim Preserve aErrJScript(iErrJScript) iErrMsgs = iErrMsgs + 1 ReDim Preserve aErrMsgs(iErrMsgs) aErrMsgs(iErrMsgs) = "please enter a contact number" aErrJScript(iErrJScript) = "document.getElementById('sTelNo').style.border = '1px solid ff0000';" End If If iErrMsgs = 0 Then 'if no errors submit Session.Contents("feedback_name") = request.Form("sName") Session.Contents("feedback_comments") = request.Form("scomments") Session.Contents("feedback_email") = request.Form("sEmail") Session.Contents("feedback_telno") = request.Form("sTelNo") 'redirect page response.Redirect("feedback_send.asp") Else 'show errors %>

<% End If Else %> <% End If %>

* Name
* Details of Enquiry		<%=(request.Form("sComments"))%>
E-mail Address
* Telephone Number
* Denotes mandatory field