Server.CreateObject Failed

[whelme]

Hi, i am trying to make a comments page for a website but when i upload it to a free hosting account and try to test the page i keep getting

Server.CreateObject Failed

is this problem because the servers don't support the command or because i have coded it wrong

here is my code:

 
<%
    if Request.QueryString.Count = 0 then
        errStr = "<font color='blue'>Please enter a comment or feedback.</font><br>"
    else
        if Request.QueryString("ErrorType") = "1" then
            smallerrstr = "Error: Your message has been included."
            errStr = "<font size='+1' color='red'>" & smallerrstr & "</font><br>"
        else
            errStr = "<font color='blue'>Please enter a comment or feedback.</font><br>"
           end if
    end if
 
if (lcase(Request.Form("submitted")) = "true" )Then
    if (IsNull(Session("feedbacked"))) then
        Session("feedbacked") = False
    end if
    if (Session("feedbacked")=True) then
        errStr = "<font size='+1' color='red'>You are allowed only one message per session.</font><br>"
    else
        Session("feedbacked")=True
        smessage = Request.Form("feedbody")
        smessage = Trim(smessage)
        smessage = Replace(smessage,"<","")
        smessage = Replace(smessage,">","")
        sname = Request.Form("feedname")
        sname = Trim(sname)
        sname = Replace(sname,"<","")
        sname = Replace(sname,">","")
        smail = Request.Form("feedmail")
        smail = Trim(smail)
        smail = Replace(smail,"<","")
        smail = Replace(smail,">","")
        sdate = Now()
        smessage = smessage & "<br><b><font color=blue>- " & sname &  " - " & smail & " (" & sdate & ")</font></b>"
 
        sfile = "_feedback.txt"
        whichFN=server.mappath(sfile)
        if (whichfN <> "") and (Not ISNull(whichFN)) then
            Set fstemp = server.CreateObject("Scripting.FileSystemObject")
            if (fstemp.FileExists(whichFN) = True) then
                Set filetemp = fstemp.OpenTextFile(whichfN, 8, false, 0)
                filetemp.writeLine("<FEEDBACK>")
                filetemp.WriteLine(smessage)
                filetemp.writeLine("</FEEDBACK>")
                filetemp.Close
                set filetemp=Nothing
            end if
            set fstemp=Nothing
        end if
    end if
end if
 
 
    sfeedback = "<font name=Verdana size=2>"
    sfile = "_feedback.txt"
    whichFN=server.mappath(sfile)
    if (whichfN <> "") and (Not ISNull(whichFN)) then
        Set fstemp1 = server.CreateObject("Scripting.FileSystemObject")
        if (fstemp1.FileExists(whichFN) = True) then
            Set filetemp = fstemp1.OpenTextFile(whichfN, 1, false, 0)
            Do while (filetemp.AtEndofStream <> True)
                strLine = filetemp.ReadLine
                strLine = Replace(strLine,"<FEEDBACK>","")
                strLine = Replace(strLine,"</FEEDBACK>","<hr>")
                sfeedback = sfeedback & strLine
            Loop
            filetemp.Close
            Set filetemp = Nothing
        else
            Set filetemp = fstemp1.CreateTextFile(whichfN, false)
            filetemp.close
        end if
        Set fstemp1 = Nothing
    end if
    sfeedback = sfeedback & "</font>"
 
 
%>
 

[CroCrew]

Hello Whelme,

It sounds like you don’t have permissions to create your “fstemp(s)” objects. This might be because you’re using a free hosting company. See if they will allow you to use the file system object. You would need the local internet guest account (IUSR) to have read and write access to the file "_feedback.txt” for your script to work.

Hope that points you to your answer~

[whelme]

Hello Whelme,

It sounds like you don’t have permissions to create your “fstemp(s)” objects. This might be because you’re using a free hosting company. See if they will allow you to use the file system object. You would need the local internet guest account (IUSR) to have read and write access to the file "_feedback.txt” for your script to work.

Hope that points you to your answer~

thank you for the reply and i will check with the company to see if they will allow me, i will be paying for a place to host my site soon i am just using a free site to test my pages.

also how do i allow the local internet guest account (IUSR) to have read and write access?

[CroCrew]

thank you for the reply and i will check with the company to see if they will allow me, i will be paying for a place to host my site soon i am just using a free site to test my pages.

also how do i allow the local internet guest account (IUSR) to have read and write access?

Some hosting companies give you control of “user” access rights to folders under your site and some don’t. If the company that you decide to go with does not give you this control more then likely they would do it for you if you request them to do it. But, if they do provide you whit the controls more then likely they would have some type of interface that you would use form their website to grant access to “users”.

Hope that I was of some help~