tavsiyeet.asp gonderme hatasi

yillardir kullandigim tavsiye asp,yeni tasindigimiz serverde calismiyor..izinler verildigi halde hata veriyor.
hata

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

Web Server at gulsehri.com

olarak veriyor..hostcumuzda bilesenleri yukledik diyor,izinleri verdmisler.ama neden bunca yil sonra bu hata

İzinlerde kısıtlama var. Kodlamada sorun olduğunu sanmıyorum. Sorun sunucudan kaynaklanıyor. Belki safemod sorunu olabilir.

Öncelikle hata sayfalarını görünür yapki hatanın ne olduğu anlaşılsın. Böyle hatanın ne olduğu anlaşılmıyor.

Büyük ihtimalle kullanılan MAIL COMPONENT (CDONTS ASPMAIL vs. gibi) yeni sunucuda yok.

arkadaslar.
baska bir script var elimde,guzelde gondriyor.ama bir sorunu var.oldugu sayfayi gondermiyor..
http://www.gulsehri.com/tavsiye.asp
olarak maile geliyor.ben
http://www.gulsehri.com/tebrik/bayram/kandil.asp
olarak tavsiye etmesini istiyorum.
kodlarida
<%
action=Request("action")
select case action
case ""
call showMain()
case "send"
call sendMail()
end select

SUB sendMail()

strHost = "localhost"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost

Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To")

' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")

On Error Resume Next
Mail.Send

If Err <> 0 Then
strErr = Err.Description
Response.Write "<h3><FONT COLOR=""#FF0000"">Hata: <I>"& strErr &"</I></FONT></h3>"
else
bSuccess = True
Response.Write "<h3><FONT COLOR=""#00A000"">Mesajınız "& Request("To") &" 'a gönderildi.</FONT></h3>"
End If
End Sub
%>

<%
sub showMain()

referrer=Request.ServerVariables("HTTP_REFERER")

if referrer="" then
referrer="http://"&request.servervariables("SERVER_NAME")&"/"&request.servervariables("URL")
end if

message=""
tose=VBNewLine&VBNewLine&"MERHABALAR Web Sitemizden ARkadasiniz Sizin Görmek istediginiz Bir Sayfa Gönderdi Sayfanıza Bakmak icin :"&VBNewLine&VBNewLine&referrer&VBNewLine&VBNewLine&" YUKARDAKI Adresı Tıklayarak Ulasabilirsiniz. Gulsehri.Com Yonetimi..."

%>
burda ne gibi bir degisiklik yaparsam,oldugu sayfa linkini tanir?