עזרה – הודעת שגיאה ב-ASP

הקוד2/2


    Else
        ' Do nothing
    End If
    Next
    If flag=0 Then
        If newemailaddy = "" Or Not IsValidEmail(newemailaddy) Then
            Response.write "I'm sorry – you entered an invalid email address which we have been unable to add to our newsletter list.<p>Please <a href='javascript:history.back(-1)'>go back</a> and correct the error"
        Else
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    
            Set objCountFile = objFSO.OpenTextFile(logfile, 1, True)
            news = objCountFile.ReadAll
            objCountFile.Close
            Set objCountFile = Nothing    
            Set objFSO = Nothing
            atempip = Request.ServerVariables("REMOTE_ADDR")
            finalstr=news & "**" & newemailaddy & "%%" & dateadded & "||" & atempip & "||0"
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
            Set objTextFile = objFSO.CreateTextFile(logfile)
            objTextFile.WriteLine finalstr
            objTextFile.Close
            Set objTextFile = Nothing
            Set objFSO = Nothing
            Response.Write "Your email address: " & newemailaddy & " has been added to our subscriber list!<p>To un-subscribe at anytime, just visit this page again and choose unsubscribe in the form, whilst entering the email address: " & newemailaddy & ""
            sendemail newemailaddy, welcometitle, welcomemessage
        End If
    Else
        Response.Write "The email address: " & newemailaddy & " is already subscribed to our list, and has not been added again.<p>If you intended to un-subscribe from our list, please <a href='javascript:history.back(-1)'>go back</a> and choose 'Un-Subscribe' instead of 'Subscribe'"
    End If
    Response.Write "</td></tr>"
    bottomtable
End Function