link til fysisk mappe på anden server

forkert fejl....her er fejlen:

Error Type:
Server.MapPath(), ASP 0174 (0x80004005)
An invalid '/' or '\' was found in the Path parameter for the MapPath method.
/listfiler.asp, line 151

Hvordan ser din asp kode ud ?

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
  <td align="left" width="15%">
</td>
<td align="left" width="85%">
 



<br><br>
<tr><td>
<h3>&nbsp;<font color='#000000' face='Arial' size='2'>Folderoversigt :</h3>
</tr></td>
  <%
  sti = "mappesti"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
 
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)



response.write"<font color='#000000' face='Arial' size='1'>"


  For each Folder in objFolder.SubFolders

    If Left(Folder.Name,1)<>"_" Then
Response.write "<tr><td>"     
Response.Write "<br>&nbsp;&nbsp;<font color='#000000' face='Arial' size='1'><a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write Folder.Name
      Response.Write "<br>"

end if

Response.write "</td></tr>"

Next




  Set objFSO = Nothing
  %>
  </td>
</tr>
</table>
<br>
<hr align=center width=95%>
<br>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
  <td align="center" width="100%">
</td>
<td align="left" width="85%">

<tr><td>
  <h3>&nbsp;<font color='#000000' face='Arial' size='2'>Filoversigt :</h3>
</tr></td>




<%





'Response.Write ShowSub  & "<br>"
'Response.Write strPhysicalPath
'Response.End

  SiteName = request.servervariables("script_name")
  strPhysicalPath = Server.MapPath(ShowSub)



  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
   

For Each objFileItem in objFolderContents
      ShowPic = Replace(objFileItem.Name, " ", "%20")




      Response.write "<tr><td>"
      Response.Write "<font color='#000000' face='Arial' size='1'>&nbsp;&nbsp;<a href='"&ShowSub &"/"& objFileItem.Name &"'>" & objFileItem.Name  & "</a>"



      Response.write "</td></tr>"
    Next







    Set objFSO = Nothing


  End if


  %>
 

  </td>
</tr>

</table>

kan du se hvad der er galt??

der er ikke kommet noget som jeg kunne bruge i lang tid så sprørsmålet lukkes........