OK so it was early sorry for the mistake here is the code again

<%
Dim NewURL, Referer1
'Replace with the correct address for the page
NewURL = "www.yourdomain.com/landingpage.asp"

'This gets the current page url
Referer1 = Trim(Request.ServerVariables("URL"))

'This sets the response header to 301 and redirects the page
response.status = "301 Object Moved"
response.addheader referer1, "" & NewUrl & ""
Response.redirect(NewURL)
response.end
%>