using a url redirect + concatenation classic asp

Question

We are on a shared hosting plan at godaddy and the site was developed entirely in classic asp. There is some "recommend a product to a friend" functionality which sends out an email using cdo. This functionality, which triggers an email containing the link to product on the website, has stopped working and we think because of some spam/blacklist, and hoping there is a programming workaround as getting through to godaddy is not working!

The IP 45.40.165.35 and the malicious redirect on the shared hosting plan which got us into trouble and for which we have nothing to do is "http://bauerwhitetails.com/rx.html"

One work around which sort of works is to use a url redirect in the msg body to do away with the website url however this takes the user to the home page rather to the product! Is there a smarter way to do this or should I use another smtp provider?!

 
<%

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 Recommended by " & Request.Form("Your Name")
sBody = Request.Form("Your Name") & " wants to show you an interesting property." 
sBody = sBody & "<br>Click the following link <a href=http://www.websitehere.com> <b> here </b> </a> to search for the Property Ref: <b>" & Request.Form("pid") & "</b><br>"

If Request.Form("Message") <> "" Then
sBody = sBody & "<br><br>Message from " & Request.Form("Your Name") & " : " & Request.Form("Message")
End If
sBody = sBody & "<br><br>Thank-you!"

objNewMail.HTMLBody = sBody

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"

'Server port
objNewMail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 

objNewMail.Configuration.Fields.Update

objNewMail.Send