merhaba
--------
Microsoft VBScript runtime error '800a0046'
Permission denied
/mail.asp, line 122
-------
bu hatayı alıyorum ve cdonts gerekli diye server cdonts.dll i system32 klasörüne yükledim ve dostan registry kayıt ettim herhalde buraya kadar herşey normal.
siteye yazma iznide verdim ISSten. hatta ISSten default asp language: VBscriptide aktif ettim ama çözemedim bir türlü.. mail.aspdeki kod aşağıda arkadaşlar yardımcı olursanız sevinirim 122. satırıda belirttim. şimdiden teşekkürler
--------
Microsoft VBScript runtime error '800a0046'
Permission denied
/mail.asp, line 122
-------
bu hatayı alıyorum ve cdonts gerekli diye server cdonts.dll i system32 klasörüne yükledim ve dostan registry kayıt ettim herhalde buraya kadar herşey normal.
siteye yazma iznide verdim ISSten. hatta ISSten default asp language: VBscriptide aktif ettim ama çözemedim bir türlü.. mail.aspdeki kod aşağıda arkadaşlar yardımcı olursanız sevinirim 122. satırıda belirttim. şimdiden teşekkürler
PHP:
<%
if Request("gonder") = "1" then
tarih = date()
istek = Request.Form("istek")
ad = Request.Form("ad")
eposta = Request.Form("eposta")
konu = Request.Form("konu")
mesaj = Request.Form("mesaj")
tele = Request.Form("tel")
Sonuc = "E-Postanız Başarıyla Gönderilmiştir!"
if DbVar = "1" then
SQLstmt = "INSERT INTO MesajLog (birim_id, istek, tarih, adsoyad, eposta, tel, konu, mesaj)"
SQLstmt = SQLstmt & " VALUES ('" & depart & "','" & istek & "','" & date() & "','" & ad & "','" & eposta & "','" & tele & "','" & konu & "','" & mesaj & "')"
Baglanti.Execute(SQLstmt)
Baglanti.Close
Set Baglanti = Nothing
Set SQLstmt = Nothing
end if
Dim BizeGelen
Dim BizdenGiden
Dim BizeMesaj
Dim BizdenMesaj
Set BizeGelen = CreateObject("CDONTS.NewMail")
BizeGelen.From = eposta
BizeGelen.To = MailTo
BizeGelen.Cc = MailCc
BizeGelen.Bcc = MailBcc
BizeGelen.Subject = "Web İletişim Formu : " & konu
BizeGelen.MailFormat = CdoMailFormatMime
BizeGelen.BodyFormat = CdoBodyFormatHTML
BizeMesaj = "<html><head><title>title</title>"
BizeMesaj = BizeMesaj & "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1254"">"
BizeMesaj = BizeMesaj & "<META http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">"
BizeMesaj = BizeMesaj & "<meta http-equiv=""Content-Language"" content=""tr""></head>"
BizeMesaj = BizeMesaj & "<body><font face=""Tahoma"" size=""10px"" color=""Black"">"
BizeMesaj = BizeMesaj & "Aşağıda Ayrıntıları Bulunan Mesaj Sitesinden Size Gönderilmiştir<br>"
BizeMesaj = BizeMesaj & "Bilgi Ayrıntıları : <p>"
BizeMesaj = BizeMesaj & "<strong><font color=""red"">Gönderme Tarihi : </font>" & tarih & "<br>"
BizeMesaj = BizeMesaj & "<font color=""red"">Gönderen Kişi : </font>" & ad & "<br>"
BizeMesaj = BizeMesaj & "<font color=""red"">E - Posta Adresi : </font>" & eposta & "<br>"
BizeMesaj = BizeMesaj & "<font color=""red"">Gönderme Konusu : </font>" & konu & "<br>"
BizeMesaj = BizeMesaj & "<font color=""red"">Telefon Numarası : </font>" & tele & "<br>"
BizeMesaj = BizeMesaj & "<font color=""red"">Mesaj İçeriği : </font><br>"
BizeMesaj = BizeMesaj & mesaj
BizeMesaj = BizeMesaj & "</strong></font></body></html>"
BizeGelen.Body = BizeMesaj
122. satır burası ---> BizeGelen.Send
Set BizeGelen = Nothing
Set BizdenGiden = CreateObject("CDONTS.NewMail")
BizdenGiden.From = "xxx@xxx.com"
BizdenGiden.To = eposta
BizdenGiden.Cc = "xxx@xxx.com"
BizdenGiden.Subject = "tittle"
BizdenGiden.MailFormat = CdoMailFormatMime
BizdenGiden.BodyFormat = CdoBodyFormatHTML
BizdenMesaj = "<html><head><title>title</title>"
BizdenMesaj = BizdenMesaj & "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1254"">"
BizdenMesaj = BizdenMesaj & "<META http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">"
BizdenMesaj = BizdenMesaj & "<meta http-equiv=""Content-Language"" content=""tr""></head><body>"
BizdenMesaj = BizdenMesaj & "<font face=""Tahoma"" size=""10px"" color=""black"">"
BizdenMesaj = BizdenMesaj & "Sayın " & ad & "<br>"
BizdenMesaj = BizdenMesaj & "E-Postanız ilgili makama iletilmiştir!<br>"
BizdenMesaj = BizdenMesaj & "Size en yakın zamanda birim yetkilisinden cevap gelecektir!<br>"
BizdenMesaj = BizdenMesaj & "İlginize teşekkür ederiz...<br>"
BizdenMesaj = BizdenMesaj & "Sevgilerle...<br><br>"
BizdenMesaj = BizdenMesaj & "<b>title</b><br>"
BizdenMesaj = BizdenMesaj & "<a href=""http://www.adres.com"" target=""_blank"">http://www.adres.com</a><p>"
BizdenMesaj = BizdenMesaj & "</font></body></html>"
BizdenGiden.Body = BizdenMesaj
BizdenGiden.Send
Set BizdenGiden = Nothing
Response.Write(sonuc)
end if
%>