Welcome to ideCAD software! - ideCAD - CAD software for Architecture and Construction

<% strScriptName = Request.ServerVariables("Script_Name") aquerystring = Request.ServerVariables("QUERY_STRING") strScriptUrl = Request.ServerVariables("URL") strKisi = Request.ServerVariables("REMOTE_USER") & " / " & Request.ServerVariables("LOGON_USER") strKisiIp = Request.ServerVariables("REMOTE_ADDR") strServerReferer = Request.ServerVariables("HTTP_REFERER") strScriptName = replace(strScriptName, "404;", "") Set objASPError = Server.GetLastError() strErrorNo = CStr(objASPError.Number) strErrorCode = CStr(objASPError.ASPCode) strErrorDescription = CStr(objASPError.Description) strASPDescription = CStr(objASPError.ASPDescription) strCategory = CStr(objASPError.Category) strFileName = CStr(objASPError.File) strLineNo = CStr(objASPError.Line) strCol = CStr(objASPError.Column) strErrorSource = CStr(objASPError.Source) if strKisiIP <> "212.227.156.207" then if aquerystring = "404;http://www.idecad.com/favicon.ico" then subject="idecad.de Error -> Favicon" else if left(aquerystring,3)="404" then subject="idecad.de Error -> 404" else subject="idecad.de Error" end if end if Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "idecad.de Error" Mailer.FromAddress = "download@idecad.de" Mailer.RemoteHost = "mrelay.kundenserver.de" Mailer.AddRecipient "Webmaster", "webmaster@idecad.com" Mailer.AddRecipient "Webmaster", "oguzh@yahoo.com" Mailer.Subject = subject body="Script Name : " & strScriptName & VbCrLf body = body & "Query String : " & aquerystring & VbCrLf body = body & "Referer : " & strServerReferer & VbCrLf body = body & "IP : " & strKisiIP & VbCrLf body = body & "Error No : " & strErrorNo & VbCrLf body = body & "Error Code : " & strErrorCode & VbCrLf body = body & "Description : " & strErrorDescription & VbCrLf body = body & "ASP Description : " & strASPDescription & VbCrLf body = body & "Category : " & srtCategory & VbCrLf body = body & "File Name : " & strFileName & VbCrLf body = body & "Line : " & strLineNo & VbCrLf body = body & "Column : " & strCol & VbCrLf body = body & "Error Source : " & strErrorSource Mailer.BodyText = body Mailer.SendMail set Mailer=nothing end if %>
You will be redirected to our homepage in 3 seconds. In case that your browser does not support automatic redirection, please click here: