permission denied ... hatası yardım arakadaşlar acil

[dostpartner]

Microsoft VBScript runtime error '800a0046'

Permission denied

/kayit.asp, line 110

bu satırda hata weriyor kayit.asp aşağıda satırı kırmızı ile belirtiim

<!--#include file ="vt.asp"-->
<%
komut=request.Form("komut")

function temizle(metin)
temizle=replace(metin,"'",chr(34))
temizle=replace(temizle,vbcrlf,"<br>")
temizle=trim(temizle)
end function


kull_ad=temizle(request.Form("kull_ad"))
sifre=temizle(request.Form("sifre"))
email=temizle(request.Form("mail"))
cinsiyet=request.Form("cinsiyet")
yas=request.Form("yas")
ulke=request.Form("ulke")
sehir=request.Form("sehir")
kendim=temizle(request.Form("kendim"))
tip=0
medeni=request.Form("medeni")
egitim=request.Form("egitim")
isi=temizle(request.Form("isi"))
boy=request.Form("boy")
vucut=request.Form("vucut")
sac=request.Form("sac")
goz=request.Form("goz")
gelir=request.Form("gelir")

sohbet="False"
arkadaslik="False"
cinsellik="False"
uzun="False"
evlilik="False"

if request.Form("iliski1")<>"" then sohbet=request.Form("iliski1")
if request.Form("iliski2")<>"" then arkadaslik=request.Form("iliski2")
if request.Form("iliski3")<>"" then cinsellik=request.Form("iliski3")
if request.Form("iliski4")<>"" then uzun=request.Form("iliski4")
if request.Form("iliski5")<>"" then evlilik=request.Form("iliski5")

session("ad")=kull_ad
session("mail")=email

'onay kodu
function koduret()
randomize timer
koduret=Int(100000 * rnd())
if len(koduret)<5 then koduret
end function
kod=koduret()

kullok=true
kul=kull_ad

if kul="admin" or lcase(kul)="admin" then kullok=false
if kul="administrator" or lcase(kul)="administrator" then kullok=false
if kul="ADMIN" or ucase(kul)="ADMIN" then kullok=false
if kul="ADMINISTRATOR" or ucase(kul)="ADMINISTRATOR" then kullok=false
if kul="domain or lcase(kul)="domain" then kullok=false
if kul="domain" or ucase(kul)="domain" then kullok=false

set rs=bag.execute("Select * from [Üyeler] where [Kullanıcı Adı]='" & kull_ad & "'")
if not rs.eof or kullok=false then
%>
<link href="dosyalar/style.css" rel="stylesheet" type="text/css">
<div align="center" class="black11"><img src="http://www.frmtr.com/images/resimyok.jpg" width="75" height="75" align="absmiddle"><br><br><a href="#" onClick="history.back()"class="blu11">Bu Kullanıcı Adı Daha Önceden Alınmış yada Yasaklı<br>Buraya Tıklayarak Bir Başkasını Deneyin</a></div>
<%
response.End()
end if
set rs=bag.execute("Select * from [Üyeler] where ='" & email & "'")
if not rs.eof or email="[email protected]" then
%>
<link href="dosyalar/style.css" rel="stylesheet" type="text/css">
<div align="center" class="black11"><img src="http://www.frmtr.com/images/resimyok.jpg" width="75" height="75" align="absmiddle"><br><br><a href="#" onClick="history.back()"class="blu11">Bu Email Adresi Daha Önceden Kaydedilmiş<br>Buraya Tıklayarak Bir Başkasını Deneyin</a></div>
<%
response.End()
end if
sql="insert into [Üyeler] ([Kullanıcı Adı],[Şifre],[email],[cinsiyeti],[Yaşı],[Şehir],[Ülkesi],[Kendisi],[Kod],[Sohbet],[Arkadaşlık],[Cinsellik],[Uzun Süreli],[Evlilik],paket,[Medeni Hali],[Eğitimi],[İşi],[Boyu],[Vücudu],[Saçı],[Gözü],[Geliri],tarih) VALUES ('"& _
kull_ad&"','"&sifre&"','"&email&"','"&cinsiyet&"', "&yas&",'"&sehir&"','"&ulke&"','"&kendim&"',"&kod& ","&sohbet&","&arkadaslik&","&cinsellik&","&uzun&" ,"&evlilik&","&tip&",'" & medeni & "','"& egitim & "','" & isi & "','" & boy & "','" & vucut & "','" & sac & "','" & goz & "','" & gelir & "','" & date & "')"

'response.Write(sql)
'response.End()
set rs=bag.Execute(sql)



set rs=bag.Execute("Select [id] from Üyeler order by id desc")
id=rs("id")
'mail atan kisim
body="Sayın "&kull_ad&" sitemize yaptığınız Üyelik başvurusunu tamamlamak için onay kodunu gerekli yere giriniz yada aşağıdaki linke Tıklayınız"
body=body&"<br><br><br>"
body=body&"<strong>ONAY KODUNUZ : </strong> "&kod&"<br><br><br>"
body=body&"<strong>Kullanıcı adınız : </strong> "&kull_ad&"<br>"
body=body&"<strong>Şifreniz : </strong> "&sifre&"<br><br>"
body=body & "<a href='http://www.domain.com/onaykodu.asp?komut=Onay&id=" & id & "&kod=" & kod & "'>http://www.domain.com/onaykodu.asp?komut=Onay&id=" & id & "&kod=" & kod & "</a>" & "<br><br><br>"
'onaykodu.asp?kul="&kull_ad&"mail="&rs("email")
topbody="<div style='font-size:11px;font-family:verdana'><strong>domain.com</strong> Müşteri Hizmetleri<br><a href='http://www.domain.com' target='_blank'>www.domain.com</a></div><hr><br><br>"
bottombody="<br><br><div style='font-size:11px;font-family:verdana'>İlginize Teşekkürler.<br><br><hr><strong>domain.com</strong> Müşteri Hizmetleri<br><a href='http://www.domain.com' target='_blank'>www.domain.com</a></div>"

Dim Body
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "[email protected]"
MyCDONTSMail.To= email
MyCDONTSMail.Subject="domain.com Üyelik başvurunuz ve onay kodunuz"
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body= topbody & body & bottombody
MyCDONTSMail.Send


response.Redirect("adim3.asp?id="& id)
bag.close
%>

 

[tatlilaydi]

host sahibi ile iletişime geç Fso Destegini Tam Açsın ondan Kaynaklanıyor Görünüşe bakılırsa
Ve Yazma izinlerini Ver Eger gene Olmazsa Sen bana Gönder Dosyayı Birde ben inceleyim

 

[dostpartner]

tşk...ederim arkadaşım

 

[ALCON]

selam dostpartner arkadasım bu tur bir sorunum var çözemedim yardımcı olabılırmısın

Orda Kimse Yok Mu

Nerdesİnİz Üstadlar Yahu

Mİllet Uyyor Mu Ne ?uykusu Kacanlar Icin Olan Bu Sitede Herkes Uyumus