<%@ Language = "VBScript" %> <% Response.Buffer = True '---------------------------------------------------------------------------------------------------------- Const EmailAEnviar = "answelrj@arnet.com.ar" '---------------------------------------------------------------------------------------------------------- Dim MsgError MsgError = Request.QueryString("msgerror") %> :: Answer Hard ::

Contactenos
 

 




 
 
AnswerHard® - Todos los derechos reservados - La Rioja - Argentina
:: Dalmacio V. Sársfield esq. 9 de Julio - Tel 03822-421652 : 03822-437707 ::
Webmaster: ITSel
<% Function EsValidoEmail(Mail) Dim bValido bValido = True If Len(Mail) < 5 Then bValido = False Else If InStr(1, Mail, "@") = 0 Then bValido = False Else If InStr(1, Mail, ".") = 0 Then bValido = False Else If InStr(InStr(1, Mail, "@"), Mail, ".") < InStr(1, Mail, "@") Then bValido = False End If End If End If End If EsValidoEmail = bValido End Function %>