Jump to content

ever_four

Members
  • Posts

    4
  • Joined

  • Last visited

ever_four's Achievements

Newbie

Newbie (1/7)

0

Reputation

  1. Yes, there is a feedback folder in the ledet folder.The file feedback-**** is the name of the file which is suppose to be created in the feedback folder.Ok. will try using a try/catch statement.
  2. Both machines uses the same OS. Windows XP Professional Edition
  3. Yes, the code i provided was from save_feedback.aspYeap, I believe that the error is not comin from that code too, but it is shown in IE.Yes, I have a ledet folder in the wwwroot folder and the save_feedback.asp in located in that folder ...
  4. Hi. I'm having a problem. There's this one page, it's about the users giving feedback about the system. The page is working fine in my collegues's PC but not in mine. The error I'm receiveing is:-Error Type:Microsoft VBScript runtime (0x800A004C)Path not found/ledet/save_feedback.asp, line 5The Code is:-<% sub createFile() Dim objFSO, objTextFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile(Server.MapPath("../ledet/feedback/feedback-"&visname&"-"&Date()&".txt")) objTextFile.WriteLine "Feedback type : " & feedbacktype if about = "other" then objTextFile.WriteLine "Comment on : " & other else objTextFile.WriteLine "Comment on : " & about end if objTextFile.WriteLine "Comment : " & comment objTextFile.WriteLine "Name : " & visname objTextFile.WriteLine "Email : " & email objTextFile.WriteLine "Tel : " & tel objTextFile.WriteLine "Fax : " & fax if priority = "on" then objTextFile.WriteLine "Priority : " & "High" else objTextFile.WriteLine "Priority : " & "Low" end if objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing Response.Redirect("success.html") end sub feedbacktype = Request.Form("feedbacktype") about = Request.Form("about") other = Request.Form("other") comment = Request.Form("comment") visname = Request.Form("visname") email = Request.Form("email") tel = Request.Form("tel") fax = Request.Form("fax") priority = Request.Form("priority") if visname <> "" then call createFile() end if%>Can someone please give some suggestions on what I can do to resolve the problem I'm facing? Thanks in advance ...
×
×
  • Create New...