Added: October/31/2005 at 8:17am | IP Logged

I am using the email contact us form on your site

Self Submitting "Contact Us" Form Using CDOSYS

when using the form and I put in the wrong email syntax ie no @ or missing . I get a warning but if I put in the wrong email address ie paul@paulmil.co.uk instead of paul@paulcmilner.co.uk I get this page cannot be displayed error

Anyone had this problem?
Thanks
Paul Milner

Added: October/31/2005 at 11:19am | IP Logged

for starters you need to know the real error

http://www.powerasp.com/content/hintstips/common_sense.asp

Added: October/31/2005 at 11:24am | IP Logged

Hi thanks for replying

Here is the error

error '8004020f'

Added: October/31/2005 at 1:07pm | IP Logged

you have CDOSYS configuratrion issues then

http://www.webservertalk.com/archive126-2004-2-128479.html

http://www.aspfaq.com/show.asp?id=2305

it does not have anything to do with my CDOSYS code download

either your cdoyss isn't running right or you did not specify a valid and REAL email username and password to use to send the emails out.. that's my guess

you have to use a REAL email server that supports POP 3 and a real email account to send the emails using my download because it is sending SMTP authenticated emails

Added: November/01/2005 at 11:52am | IP Logged

Thanks

I have looked into it  and it means me altering the server settings

can the code be modified to only check for  the syntax ie @ . 

' Used to check that the email entered is in a valid format
Function IsValidEmail(Email)
 Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,Domain Name,atChr,tAry1
 ValidFlag = False
  If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
   atCount = 0
   SpecialFlag = False
   For atLoop = 1 To Len(Email)
   atChr = Mid(Email, atLoop, 1)
    If atChr = "@" Then atCount = atCount + 1
    If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
    If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
    If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
    If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
   Next
   If (atCount = 1) And (SpecialFlag = False) Then
    BadFlag = False
    tAry1 = Split(Email, "@")
    UserName = tAry1(0)
    DomainName = tAry1(1)
   If (UserName = "") Or (DomainName = "") Then BadFlag = True
   If Mid(DomainName, 1, 1) = "." then BadFlag = True
   If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
    ValidFlag = True
   End If
  End If
  If BadFlag = True Then ValidFlag = False
  
  IsValidEmail = ValidFlag
  
  
End Function
%>