<DIV>Sir,</DIV>
<DIV> </DIV>
<DIV>i'm developing dynamic website for our university. i have small editor for update the data's through website. it's working fine but when i try to using format like as bold, italic ... while give permision denied error in status bar but that data successfuly stored in database. in same time when i insert image, the same error occur and image is not store in specified folder.</DIV>
<DIV> </DIV>
<DIV>i give's permision(IUSR_<servername>, IWAM_<servername>, Guest and all system users with FULL Control and SCRRUN.DLL file also) for my relative and absolute folder.</DIV>
<DIV> </DIV>
<DIV>but same error occur. </DIV>
<DIV> </DIV>
<DIV>this is a my code</DIV>
<DIV> </DIV>
<DIV><!--#include file="../library/include/source.asp"--></DIV>
<DIV> </DIV>
<DIV><%if(session("user")<>"")then</DIV>
<DIV>Set fileobject = Server.CreateObject("Scripting.FileSystemObject")<BR>set scriptobject=server.CreateObject("scripting.filesystemobject")<BR>set scriptobject1=server.CreateObject("scripting.filesystemobject")</DIV>
<DIV> </DIV>
<DIV>set rs_temp=server.CreateObject("adodb.recordset")<BR>set rs_tempbot=server.CreateObject("adodb.recordset")</DIV>
<DIV> </DIV>
<DIV>fld_nm="/Common"<BR>createfolder(fld_nm)<BR>fld_nm="/Common\Images"<BR>createfolder(fld_nm)<BR>img_ref_fldnm="/Common\Temp"</DIV>
<DIV> </DIV>
<DIV>'lkcode=1----------About university<BR>'lkcode=2----------Trust<BR>'lkcode=3----------Exam&Result<BR>'lkcode=4----------Online<BR>'lkcode=5----------Webmail<BR> <BR>if request.QueryString("lkcode")=1 then<BR> ph_ref="About"<BR> Com=1<BR> val="About VMRF - Deemed University "<BR></DIV>
<DIV>elseif request.QueryString("lkcode")=2 then<BR> ph_ref="Trust"<BR> Com=2<BR> val="About Trust"<BR></DIV>
<DIV>elseif request.QueryString("lkcode")=3 then<BR> ph_ref="Exams"<BR> Com=11<BR> val="Examinations And Results"<BR>elseif request.QueryString("lkcode")=4 then<BR> ph_ref="Online"<BR> Com=14<BR> val="Online Programs"<BR></DIV>
<DIV>elseif request.QueryString("lkcode")=5 then<BR> ph_ref="Webmail"<BR> Com=15<BR> val="WEBMAIL"<BR>end if</DIV>
<DIV> </DIV>
<DIV>if request.QueryString("fw")="ls" then<BR> rs_temp.open "select * from cont_type where lk_code_in="&request.QueryString("lkcode"),con,2,2<BR> if rs_temp.eof then<BR> response.Redirect("un_com_det.asp?fw=nw&Com="&Com&"&lkcode="&request.QueryString("lkcode"))<BR> end if<BR></DIV>
<DIV>elseif request.QueryString("fw")="sv" then<BR> rs_temp.Open "select max(t1_code_in) from cont_type",con,2,2<BR> if rs_temp.Fields (0)>0 then<BR> inc=rs_temp.Fields(0)+1<BR> else<BR> inc=1<BR> end if<BR> rs_temp.Close<BR> <BR> ref_ref=0 'this is for increment var for image count. like ..0,1,2,3,4,..etc.</DIV>
<DIV> quizpath=""<BR> if(not Request.Cookies("ref")="")then<BR> 'set scriptobject=server.CreateObject("scripting.filesystemobject")<BR> if scriptobject.FolderExists (server.MapPath (img_ref_fldnm)) then<BR> set img_det=ScriptObject.GetFolder(server.MapPath(img_ref_fldnm))<BR> for each img_name in img_det.files<BR> final_val=split(img_name,"\")<BR> value=split(final_val(ubound(final_val)),".")<BR> val_ref=split(value(ubound(value)-1),"_")<BR> img_value_ref=""<BR> for idx_idx=0 to ubound(val_ref)-1<BR> if img_value_ref="" then<BR> img_value_ref=val_ref(idx_idx)<BR> else<BR> img_value_ref=img_value_ref&"_"&val_ref(idx_idx)<BR> end
if<BR> next<BR> if img_value_ref=ph_ref&"_"&trim(Request.Cookies("ref")) then<BR> scriptobject.CopyFile server.MapPath(img_ref_fldnm&"\"&final_val(ubound(final_val))),server.MapPath(fld_nm&"\"&final_val(ubound(final_val)))<BR> scriptobject.DeleteFile server.MapPath(img_ref_fldnm&"\"&final_val(ubound(final_val))) <BR> end if<BR> next<BR> end if<BR> end if<BR> Response.Cookies("ref")="" <BR> <BR> rs_temp.open "select * from
cont_type",con,2,2<BR> rs_temp.addnew<BR> rs_temp.fields("t1_code_in")=inc<BR> rs_temp.fields("lk_code_in")=request.QueryString("lkcode")<BR> 'rs_temp.fields("t1_desc_nt")=getText(Request.Form("Description1"),Request.Form("images"),inc,ph_ref,fld_nm)<BR> rs_temp.fields("t1_desc_nt")=Request.Form("Description")<BR> rs_temp.fields("t1_date_vc")=cstr(date)<BR> rs_temp.update<BR> response.Redirect("un_com_det.asp?fw=ls&sv=ok&Com="&Com&"&name="&request.Form("title_rcp")&"&lkcode="&request.QueryString("lkcode"))<BR>elseif request.QueryString("fw")="edsv" then<BR> if not Request.Form("images")="" then<BR> img=split(Request.Form("images"),",")<BR> for idx=0 to ubound(img)<BR> img_ref=split(img(idx),"/")<BR> allow=false<BR> value=""<BR> for idx1=0 to
ubound(img_ref)-1<BR> if allow=true then<BR> if value="" then<BR> value=img_ref(idx1)<BR> else<BR> value=value&"/"&img_ref(idx1)<BR> end if<BR> end if<BR> Response.Write(value)<BR> if Request.ServerVariables("HTTP_HOST")=img_ref(idx1) then<BR> allow=true<BR> end if<BR> next<BR> if allow=true then<BR> value=value&"/"&ph_ref&"_"&Request.QueryString ("edcode")&"_"&img_ref(ubound(img_ref))<BR> if ScriptObject.FileExists (server.MapPath (value)) then<BR> scriptobject.CopyFile
server.MapPath(value),server.MapPath(fld_nm&"/"&ph_ref&"_"&Request.QueryString ("edcode")&"_"&img_ref(ubound(img_ref)))<BR> end if<BR> end if<BR> next<BR> end if<BR> <BR> if(not Request.Cookies("ref")="")then<BR> if scriptobject.FolderExists (server.MapPath (img_ref_fldnm)) then<BR> set img_det=ScriptObject.GetFolder(server.MapPath(img_ref_fldnm))<BR> for each img_name in img_det.files<BR> img_ref=split(img_name,"\")<BR> if ScriptObject.FileExists (server.MapPath (img_ref_fldnm&"\"&img_ref(ubound(img_ref)))) then<BR> if scriptobject.FolderExists (server.MapPath (fld_nm)) then<BR> set img_det1=ScriptObject1.GetFolder(server.MapPath(fld_nm))<BR> for each img_name1 in
img_det1.files<BR> img_ref1=split(img_name1,"\")<BR> img_ext=split(img_ref1(ubound(img_ref1)),".")<BR> img_snd=split(mid(img_ref(ubound(img_ref)),instr(1,img_ref(ubound(img_ref)),"_")+1),".")<BR> if cstr(img_ext(ubound(img_ext)-1))=cstr(img_snd(ubound(img_snd)-1)) then<BR> scriptobject1.DeleteFile server.MapPath(fld_nm&"\"&img_ref1(ubound(img_ref1)))<BR> end if<BR> next<BR> end if<BR> scriptobject.CopyFile server.MapPath(img_ref_fldnm&"\"&img_ref(ubound(img_ref))),server.MapPath(fld_nm&"\"&img_ref(ubound(img_ref)))<BR> scriptobject.DeleteFile
server.MapPath(img_ref_fldnm&"\"&img_ref(ubound(img_ref)))<BR> end if<BR> next<BR> end if<BR> end if<BR> <BR> set scriptobject1=nothing<BR> Response.Cookies("ref")="" <BR> <BR> rs_temp.open "select * from cont_type where lk_code_in="&request.QueryString("lkcode"),con,2,2<BR> rs_temp.fields("t1_desc_nt")=getText(request.Form("Description"),Request.Form("images"),Request.QueryString("edcode"),ph_ref,fld_nm)<BR> rs_temp.fields("t1_mdate_vc")=cstr(date)<BR> rs_temp.update<BR> response.Redirect("un_com_det.asp?fw=ls&Com="&Com&"&sv=up&name="&request.Form("title_rcp")&"&lkcode="&request.QueryString("lkcode"))<BR>elseif request.QueryString("fw")="dl" then<BR> set img_det=ScriptObject.GetFolder(server.MapPath(fld_nm))<BR> for each img_name in
img_det.files<BR> final_val=split(img_name,"\")<BR> value=split(final_val(ubound(final_val)),".")<BR> val_ref=split(value(ubound(value)-1),"_")<BR> img_value_ref=""<BR> for idx_idx=0 to ubound(val_ref)-1<BR> if img_value_ref="" then<BR> img_value_ref=val_ref(idx_idx)<BR> else<BR> img_value_ref=img_value_ref&"_"&val_ref(idx_idx)<BR> end if<BR> next<BR> if img_value_ref="ConPhoto_"&trim(Request.QueryString("dlcode")) then<BR> ScriptObject.DeleteFile (server.MapPath (fld_nm&"\"&final_val(ubound(final_val))))<BR> end if<BR> next<BR> con.execute "delete from cont_type where
lk_code_in="&Request.QueryString("lkcode")<BR> response.Redirect("un_com_det.asp?fw=nw&sv=dok&Com="&Com&"&&name="&name&"&lkcode="&request.QueryString("lkcode"))<BR> set scriptobject=nothing<BR>end if<BR>%><BR><html><BR><head><BR><title><%=prj_tle%>&<%=mPath%></title><BR><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><BR><link href="/Library/css/mystyle.css" rel="stylesheet" type="text/css"><BR><script language="JavaScript" src="/Library/scripts/myscript.js"></script><BR><script language="JavaScript" src="/Library/scripts/validation.js"></script><BR><script language="JavaScript" src="/Library/scripts/addMore.js"></script><BR><script language="JavaScript" src="/Library/scripts/Editor.js"></script></DIV>
<DIV><script language="JavaScript"><BR><!--<BR>scrn_chk()<BR>//--><BR></script><BR><script language="JavaScript"><BR><!--<BR>function MM_reloadPage(init) { //reloads the window if Nav4 resized<BR> if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {<BR> document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}<BR> else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();<BR>}<BR>MM_reloadPage(true);<BR>// --><BR></script></DIV>
<DIV><script language="javascript"><BR>function valid()<BR>{<BR> var allow=validation(document.frm);<BR> if (allow==true)<BR> {<BR> if(Description.document.body.innerText=="")<BR> {<BR> alert("Sorry, Without Description sadfsdyou can't process further");<BR> Description1.focus();<BR> return false;<BR> }<BR> else<BR> {<BR> document.frm.Description.value=Description1.document.body.innerHTML;<BR> document.frm.images.value=imgCount(Description1);<BR> }<BR> return true;<BR> }<BR> else<BR> return false;<BR>}<BR>function dl_confirm(file_ref)<BR>{<BR> if(confirm("Are you sure want to delete this Template.\n\nClick Ok to delete the Template.\n\nClick Cancel to drop the process."))<BR> {<BR> window.location=file_ref;<BR> }<BR>}<BR>function
list(file_ref)<BR>{<BR> window.location.href=file_ref<BR>}<BR></script><BR></head><BR><%if (Request.QueryString ("fw")="nw") then%><BR> <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="Description1.focus();"><BR><%elseif (Request.QueryString ("fw")="ed") then%><BR> <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="Description1.focus();"><BR><%else%><BR> <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><BR><%end if%></DIV>
<DIV><table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%"><BR> <%if (Request.QueryString ("fw")="ls") then%><BR> <tr><td align=left valign="top" class="cont"> <BR> <p class="hding">&nbsp;<%=val%></p><BR> <fieldset name="nwfieldset" value="" style='margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 10px; padding-right: 10px; padding-bottom: 10px; padding-left: 10px; border-color: #D2D2D2 #D2D2D2 #D2D2D2 #D2D2D2; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;width:100%;height:90%;'><BR> <table border=0 width=100% cellpadding=2 cellspacing=2 height="100%" ><BR> <tr><td valign="top" align="center" height="100%"><BR> <table border=0 width=100% cellpadding=2
cellspacing=2><BR> <tr><td valign="top" align="center" class="big" ><BR> <p><b><%<BR> if (request.QueryString("sv")="ok") then <BR> response.Write("<font color=red>Your Template details saved successfully.</font>")<BR> elseif (request.QueryString("sv")="up") then <BR> response.Write("<font color=red>Your Template details updated successfully.</font>")<BR> elseif (request.QueryString("sv")="dok") then <BR> response.Write("<font color=red>Your Template details deleted successfully.</font>")<BR> end if<BR> %></b></p></td></tr><BR> <tr><td
class=big><%=rs_temp.fields("t1_desc_nt")%></td></tr><BR> <tr><td class=big></td></tr><BR> <tr><td class=big></td></tr><BR> <tr><td class=big align=center><BR> <%<BR> ref="un_com_det.asp?fw=dl&Com="&Com&"&&dlcode="&rs_temp(0)&"&lkcode="&request.QueryString("lkcode")<BR> %><BR> <a href="un_com_det.asp?fw=ed&Com=<%=Com%>&edcode=<%=rs_temp(0)%>&lkcode=<%=request.QueryString("lkcode")%>"><img border=0 src='/Library\images\edit2.gif' alt='Edit'></a></font>&nbsp;&nbsp;<font class=text><a href="javascript:dl_confirm('<%=ref%>')"><img src='/Library\images\delete2.gif' border=0 alt='
Delete '></a><BR> </td></tr><BR> </table><BR> </td></tr><BR> </table><BR> </fieldset><BR> </td></tr><BR> <%elseif (Request.QueryString ("fw")="nw") then%><BR> <tr><td align=left valign="top" class="cont"><BR> <% <BR> rs_temp.Open "select max(t1_code_in) from cont_type",con,2,2<BR> if rs_temp.Fields (0)>0 then<BR> inc_cook=rs_temp.Fields(0)+1<BR> else<BR> inc_cook=1<BR> end if<BR> rs_temp.close()<BR> Response.Cookies ("ref")=inc_cook<BR> %><BR> <p class="hding">&nbsp;<%=val%></p><BR> <fieldset name="nwfieldset" value="" style='margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 10px; padding-right: 10px; padding-bottom: 10px; padding-left: 10px;
border-color: #D2D2D2 #D2D2D2 #D2D2D2 #D2D2D2; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;width:100%;height:90%;'><BR> <table border=0 width=100% cellpadding=2 cellspacing=2 height="100%"><BR> <tr><td valign="top" align="center" class="big"><BR> <table border=0 width=100% cellpadding=2 cellspacing=2><BR> <tr><td valign="top" align="center" class="big" ><BR> <p><b><%<BR> if (request.QueryString("sv")="dok") then <BR> response.Write("<font color=red>"&ucase(request.QueryString("name"))&" deleted successfully.</font>")<BR> end
if<BR> %></b></p><BR> </td></tr> <BR> <BR> <tr><td valign="top" height="100%"><BR> <table border=0 width=100% cellpadding=2 cellspacing=2 bgcolor="<%=colorcode2%>"><BR> <form width=50 name="frm" method="post" action="un_com_det.asp?fw=sv&Com=<%=Com%>&lkcode=<%=request.QueryString("lkcode")%>"><BR> <tr><td class=bold colspan=2 align=left bgcolor='<%=colorcode1%>'>Description</td></tr><BR> <tr><td class=bold colspan=2 align=left></td></tr><BR> <tr><td width="50%" align=center
colspan=2><%=RTAToolBar%></td></tr> <BR> <tr><td align=left colspan=2><BR> <table align='center' width='100%' height='200' border='1' cellspacing='0' cellpadding='0' bgcolor='#fdfeff' bordercolor='#000000' bordercolordark='#fdfeff'><BR> <tr><td valign='center' align=left><BR> <IFRAME ID='Description1' name='Description1' width='100%' height='300' onfocus='setVar(Description1,20,1)' src='iframedefault.html' MARGINHEIGHT=0 MARGINWIDTH=0 frameborder=0></IFRAME><BR> </td></tr><BR> </table><BR> <INPUT type="hidden" id="Description"
name="Description" size="100"><BR> </td></tr><BR> <INPUT type="hidden" id="images" name="images" size="100"><BR> <tr bgcolor="<%=colorcode1%>"><td height="20" align="center" colspan="2"><BR> <input type="submit" class="submitbut" name="Submit" value="Submit" onClick="return valid();"> <BR> <input type="reset" name="Reset" value="Reset" class="submitbut"> <BR> </td></tr><BR> </form><BR> </table><BR> </table><BR> </td></tr><BR> </fieldset><BR> </td></tr><BR> <%elseif
(Request.QueryString ("fw")="ed") then%><BR> <tr><td align="left" valign="top" class="cont"><BR> <%rs_temp.open "select * from cont_type where lk_code_in="&request.QueryString("lkcode"),con,2,2 <BR> <BR> set myfile=fileobject.CreateTextFile(server.MapPath("/Common\Disp\Content.html"),true) <BR> myfile.write("<html><body topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>"&rs_temp("t1_desc_nt")&"</body></html>")<BR> myfile.close()<BR> Response.Cookies ("ref")=Request.QueryString("edcode")%><BR> <BR> <p class="hding">&nbsp;<%=val%></p><BR> <fieldset name="nwfieldset" value="" style='margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 10px; padding-right: 10px; padding-bottom: 10px; padding-left: 10px; border-color: #D2D2D2 #D2D2D2 #D2D2D2 #D2D2D2; border-style: solid; border-top-width: 1px;
border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;width:100%;height:90%;'><BR> <table border=0 width=100% cellpadding=2 cellspacing=2 height="100%"><BR> <tr><td valign="top" height="100%"><BR> <table border=0 width=100% cellpadding=2 cellspacing=2 bgcolor="<%=colorcode2%>"><BR> <form name="frm" method="post" action="un_com_det.asp?fw=edsv&Com=<%=Com%>&edcode=<%=request.QueryString("edcode")%>&lkcode=<%=request.QueryString("lkcode")%>"><BR> <tr><td width='25%' class=bold colspan=2 align=left bgcolor='<%=colorcode1%>'>Description</td></tr><BR> <tr><td width='25%' class=bold colspan=2 align=left></td></tr><BR> <tr><td align=center
colspan=2><%=RTAToolBar%></td></tr><BR> <tr><td align=left colspan=2><BR> <table align='center' width='100%' height='300' border='1' cellspacing='0' cellpadding='0' bgcolor='#fdfeff' bordercolor='#000000' bordercolordark='#fdfeff'><BR> <tr><td valign='center' align=left><BR> <IFRAME ID='Description1' name='Description1' width='100%' height='300' onfocus='setVar(Description1,20,1)' src='/Common\Disp\Content.html' MARGINHEIGHT=0 MARGINWIDTH=0 frameborder=0></IFRAME><BR> </td></tr><BR> </table><BR> <INPUT type="hidden" id="Description" name="Description"
size="100"><BR> </td></tr><BR> <INPUT type="hidden" id="images" name="images" size=100><BR> <tr bgcolor='<%=colorcode1%>'><td height="20" align="center"><BR> <input type="submit" name="Submit" value=" Update " onClick="return valid();" class='submitbut'> <BR> <input type="reset" name="Reset" value="Reset" class='submitbut'><BR> <%<BR> file_ref="un_com_det.asp?fw=ls&Com="&Com&"&lkcode="&request.QueryString("lkcode")<BR> Response.Write("<INPUT name='submit' class='submitbut' type='button' value=' View '
onclick=list('"&file_ref&"')>")<BR> %><BR> </td></tr><BR> </form><BR> </table><BR> </td></tr><BR> </fieldset><BR> </td></tr><BR> <%end if%><BR></table><BR></body><BR></html><BR><%else<BR> Response.Redirect ("unauth.asp")<BR>end if%></DIV>
<DIV> </DIV>
<DIV>sorry for inconvenience...</DIV>
<DIV> </DIV>
<DIV>pls reply me..</DIV><p>__________________________________________________<br>Do You Yahoo!?<br>Tired of spam? Yahoo! Mail has the best spam protection around <br>http://mail.yahoo.com