<% 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="Όλα τα πεδία είναι υποχρεωτικά εκτός του Email και του Τηλεφώνου εκ των οποίων τουλάχιστον ένα πρέπει να συμπληρωθεί!" Display_Error_Box=1 case "2" Error_Msg="Το Τηλέφωνο πρέπει να περιέχει μόνο αριθμητικούς χαρακτήρες και καθόλου κενά!" Display_Error_Box=1 case "3" Error_Msg="Το Email σας δεν είναι έγκυρο!" Display_Error_Box=1 case "4" Error_Msg="Λάθος στοιχεία!" Display_Error_Box=1 case "5" Error_Msg="Τεχνικό πρόβλημα, δοκιμάστε αργότερα!" Display_Error_Box=1 case "6" Error_Msg="Δεν έχετε διαθέσιμα sms!" Display_Error_Box=1 case "7" Error_Msg="Δεν πληκτρολογήσατε μήνυμα!" Display_Error_Box=1 case else Error_Msg="Όλα τα πεδία είναι υποχρεωτικά εκτός του Email και του Τηλεφώνου εκ των οποίων τουλάχιστον ένα πρέπει να συμπληρωθεί!" Display_Error_Box=1 end select end if if request("D")="1" then Display_Error_Box=1 Error_Msg="Η αποστολή έγινε με επιτυχία!" end if %>

Επικοινωνήστε μαζί μας.

Skype: attractionnet

Emails:

Κλείσιμο

<% if Display_Error_Box=1 then %>

Κλείσιμο

<% end if %>