Server MapPath

<%@ language=VBScript %>
<!--#include file="../Includes/Scripts/DatabaseConnect.asp"-->
<!--#include file="../Includes/Scripts/adovbs.inc"-->
<!--#include file="../Includes/Scripts/Scripts.asp"-->
<%
      
      set fs=Server.CreateObject("Scripting.FileSystemObject")

      City_SQL = "City_List"

  set City_SQL_Result = Server.CreateObject("ADODB.Recordset")
  City_SQL_Result.Open City_SQL, objConn
 
  Do while not City_SQL_Result.eof
            
            if fs.FolderExists(server.MapPath("../"&Replace(City_SQL_Result("City"), " ", "_")&""))=false then
                  set f=fs.CreateFolder(server.MapPath("../"&Replace(City_SQL_Result("City"), " ", "_")))
            end if
            
            City_SQL_Result.MoveNext
      loop
      
      
      
      
      set f=nothing
      set fs=nothing

      
      Dim SQL
      Dim SQL_Result

  SQL = "Advert_Active_List"

  set SQL_Result = Server.CreateObject("ADODB.Recordset")
  SQL_Result.Open SQL, objConn

  Do while not SQL_Result.eof

            Dim RKey, idKey
            RKey = Int(999999999999 * Rnd())
            idKey = Rkey & "-" & (((SQL_Result("Advert_ID")+32)*RKey)-19)


            dim fs
            dim file
            dim count, file_count
            dim objFSO
            dim Folder
            dim item
            dim Path
            dim file_number
            dim Percent

            Percent = "%"

            file_number = 0
            file_count = 0


            set fs=Server.CreateObject("Scripting.FileSystemObject")
            
            set file = fs.CreateTextfile(Server.MapPath("../"&getFilename(SQL_Result("City"), SQL_Result("Title"), SQL_Result("Advert_ID"))), true, false)
                        
            file.writeline "<% Dim Advert_ID "&Percent&">"
            file.writeline "<%Advert_ID = " & SQL_Result("Advert_ID") &Percent&">"
            file.writeline "<% Dim Page_Type "&Percent&">"
            file.writeline "<%Page_Type = ""Public"" "&Percent&">"
            file.writeline "<%sRoot = ""../"""&Percent&">"
            file.writeline "<" & "!--#include file='../Display.asp'-->"
              response.Write "../"&getFilename(SQL_Result("City"), replace(SQL_Result("Title"), "'", ""), SQL_Result("Advert_ID"))&" : CREATED<BR>"
          SQL_Result.MoveNext
      loop

      
      
      
      Dim Popups_SQL
      Dim Popups_Result
      Dim ID

      Popups_SQL = "Popups_List"
      Set Popups_Result = Server.CreateObject("ADODB.Recordset")
      Popups_Result.Open Popups_SQL, objConn

      Do While NOT Popups_Result.Eof

            file_number = 0
            file_count = 0

            'Delete Files'
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
            Path = server.MapPath("../Popups")
            set folder = objFSO.GetFolder(Path)

            for each item in folder.Files
                  file_count = file_count + 1
            next

            if file_count <> 0 then
                  'objFSO.DeleteFile Path&"/*.htm", True
            end if

            Set objFSO = Nothing

            set fs = CreateObject("Scripting.fileSystemObject")
            set file = fs.CreateTextfile(server.MapPath("../Popups/Popup_"& Popups_Result("Content_ID") &".asp"), true, false)

            file.writeline "<% Dim ID "&Percent&">"
            file.writeline "<%ID = " & Popups_Result("Content_ID") &Percent&">"
            'file.writeline ""
      Popups_Result.Movenext
Loop

Popups_Result.Close
Set Popups_Result = Nothing
%>
</html>
<%      response.Redirect("Logged_In.asp?action=main&Publish=True")
%>


Error is
Server.MapPath() error 'ASP 0174 : 80004005'

Invalid Path Character(s)

/admin/Create_Adverts.asp, line 62

An invalid '/' or '\' was found in the Path parameter for the MapPath method. Start Free Trial