A better way...

[Ryan]

Ok, I know there HAS to be a better way to do this.

If InStr(Form8.Text1.Text, "Error 301") > 0 Then
If AddList = 1 Then
AddList = 0
List4.AddItem "[" & ErrorCurrentURL & "] at " & Time
List1.AddItem StartError & ErrorCurrentURL ">" & ErrorCurrentURL & MiddleError & "Error: Moved Permanently</a> - " & Format(Now, "h:mm AM/PM") & " - " & Format(Date, "mm/d/yy") & EndError
End If
Timer1.Enabled = False
End If

If InStr(Form8.Text1.Text, "Error 404") > 0 Then
If AddList = 1 Then
AddList = 0
List4.AddItem "[" & ErrorCurrentURL & "] at " & Time
List1.AddItem StartError & ErrorCurrentURL ">" & ErrorCurrentURL & MiddleError & "Error: Page Not Found</a> - " & Format(Now, "h:mm AM/PM") & " - " & Format(Date, "mm/d/yy") & EndError
End If
Timer1.Enabled = False
End If

I would have to make 20 some odd of those if statements to check for different errors, is there a way to set the errors and variables and also the discription of the error to go with it. The "Error 404" error goes with the "Page Not Found" discription, etc.

Thanks in advance,

------------------
Ryan French
Niresoft Incorporated
http://www.niresoft.com
[email protected]