tavsiyeet.asp gonderme hatasi

GuLSehri

0
İyinet Üyesi
Katılım
10 Aralık 2003
Mesajlar
305
Reaction score
0
Konum
japan
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
 
T

trgy

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

Darkart

0
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
54
Ö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.
 

annudora

0
İyinet Üyesi
Katılım
6 Mart 2006
Mesajlar
2,016
Reaction score
3
Konum
@nkara
Büyük ihtimalle kullanılan MAIL COMPONENT (CDONTS ASPMAIL vs. gibi) yeni sunucuda yok.
 

GuLSehri

0
İyinet Üyesi
Katılım
10 Aralık 2003
Mesajlar
305
Reaction score
0
Konum
japan
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?
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara
Üst