My brother in law has a basic website (maltawide.eu) which was developed many years back in Classic ASP. It is probably overdue a rewrite but does not generate enough traffic to warrant it and he uses social media instead which works well.
Anyway the site has some functionality to recommend properties to other people which suddenly stopped working. It has happened before as it is on a shared IP with one of the sites is compromised and remains so not withstanding several reports/emails/posts to godaddy however mxtoolbox reported no issues with the maltwaide server.
As a side the url is http://bauerwhitetails.com/rx.html
The problem is that as you recommend properties, and you pass the url in the msg body which contains the url maltawide.eu it is blocked! I tested it with using other URLs and it works fine!
We have tried Godaddy's unblock functionality here https://unblock.secureserver.net/ but the domain/ip is not currently blocked!
One work around is to report the url and use a shortner (without the link to the property) or is it possibly to concatenate too?
Any ideas would be appreciated.
Here is an extract of the code:
<%
Option Explicit
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#INCLUDE FILE=includes/constants.inc-->
<!--#INCLUDE FILE=includes/functions.inc-->
<title>Maltawide Properties Limited</title>
<link rel="stylesheet" type="text/css" href="stylesheets/default.css">
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<%
Dim objNewMail, sBody
Set objNewMail = Server.CreateObject("CDO.Message")
objNewMail.From = Request.Form("Your email address")
objNewMail.Cc = Request.Form("Your email address")
objNewMail.To = Request.Form("Email to")
objNewMail.Subject = "Interesting property sent by " & Trim(Request.Form("Your name"))
sBody = Trim(Request.Form("Your name")) & " wants to show you an interesting property listed by " & vbcr & vbcr
sBody = sBody & "Maltawide Properties Ltd, Malta" & vbcr & vbcr
sBody = sBody & "Click the following link to see the property :" & vbcr & vbcr & "http://www.maltawide.eu/default.asp?pid=" & Request.Form("pid")
If Request.Form("Message") <> "" Then
sBody = sBody & vbcr & vbcr & "Message from : " & Request.Form("Your Name") & vbcr & vbcr & Request.Form("Message")
End If
'---------------------------------------------------------------------------------------------------------------------------
objNewMail.TextBody = sBody
' GoDaddy SMTP Settings
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="relay-hosting.secureserver.net"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objNewMail.Configuration.Fields.Update
objNewMail.Send
'After the Send method, NewMail Object become Invalid
'You should set it to nothing to release the memory
Set objNewMail = Nothing
