<% function ReplaceCriticalChar(Var) Var=replace(Var,"<","<") Var=replace(Var,">",">") Var=replace(Var,"""",""") ReplaceCriticalChar=Var end function E=request.querystring("E") if E<>"" then select case E case "1" Error_Msg="All fields are required along with your email or Phone!" Display_Error_Box=1 case "2" Error_Msg="Phone must be numeric without spaces!" Display_Error_Box=1 case "3" Error_Msg="Your email is not valid!" Display_Error_Box=1 case "4" Error_Msg="Wrong credentials!" Display_Error_Box=1 case "5" Error_Msg="Techmical problem, try later!" Display_Error_Box=1 case "6" Error_Msg="You have not available sms!" Display_Error_Box=1 case "7" Error_Msg="You didn't supply meesage!" Display_Error_Box=1 case else Error_Msg="All fields are required along with your email or Phone!" Display_Error_Box=1 end select end if if request("D")="1" then Display_Error_Box=1 Error_Msg="Message succesfully sent!" end if %>

Contact us.

Skype: attractionnet

Emails:

Close

<% if Display_Error_Box=1 then %>

Close

<% end if %>