Form : Access denied

Er det samme domæne de 2 scripts kommer fra?

Øh hov - du forsøger vel ikke at putte en værdi i et <input type=\"file\"> felt - vel?

Nej, det er filnavnet jeg forsøger at overføre..

java script:transfer(\'filnavn\');

til en <input type=\'text\'>

Hmm - så skal vi vel se lidt kode :)

Her er lidt kode:


Response.Expires=0
Response.AddHeader \"Pragma\",\"no-cache\"

If Request.Servervariables(\"Content_Length\") > 0 then
  path = \"serverstien\"
 
  if request.querystring(\"Error\") <> \"\" then
    Response.Write Request.Querystring(\"Error\")
  else
    \'On Error Resume Next
    \'create instance of Upload control
    Set objUpload = Server.CreateObject(\"Dundas.Upload.2\")
    If Err.Number <> 0 Then 
      Response.Redirect \"upload.asp?Error=\" & Err.Description
    End If
    objUpload.UseUniqueNames = true
    \'  save uploaded files to to disk.  Note that we could also save the
    \'  uploaded files to memory.  This populates the Form and Files collections
 
    objUpload.SaveToMemory()
 
    For Each objUploadedFile in objUpload.Files
      filestrname = objUpload.GetFileName(objUploadedFile.OriginalPath)
      filestrUnique = objUpload.GetUniqueName()
      Filename = Replace(filestrUnique&\"_\"&filestrname, \"{\", \"\")
      Filename = Replace(Filename, \"}\", \"\")
      Filename = Replace(Filename, \"-\", \"\")
      Filename = Replace(Filename, \"_\",\"\")
      Filtype = Right(Filename, 3)
      if Filtype = \"jpg\" then
        ImgFormat = 1
      elseif Filtype = \"gif\" then
        strError = \"Billedfilen blev uploadet i et forkert format. Billedupload kun tilladt med filtypen jpg.\"
        \'ImgFormat = 5
      else
        strError = \"Billedfilen blev uploadet i et forkert format. Billedupload kun tilladt med filtypen jpg.\"
      End if
      if strError = \"\" then
        objUploadedFile.SaveAs(\"\"&Path&FileName&\"\")
        Set Image = Server.CreateObject(\"AspImage.Image\")
        Image.LoadImage \"\"&Path&Filename&\"\"
        Image.Resize 250,185
        Image.ImageFormat = ImgFormat
        Image.FileName = \"\"&Path&Filename&\"\"
        Image.SaveImage
        Set Image = nothing
      End if
    Next
  \'release resources
    Set objUpload = Nothing
  End if
End if
%>

<html>

<head>
<title>Tilføj billede</title>
<link rel=\"stylesheet\" href=\"/style.css\" type=\"text/css\">
<script LANGUAGE=\"javascript\">
<!--
  function transfer(str)
  {
  window.opener.document.addcars[\'picname\'].value = str;
  window.close();
  }
-->
</script>
</head>

<body>
<%
  Response.Write \"<form action=\'addpicture.asp\' method=\'POST\' name=\"\"upload\"\" EncType=\'Multipart/Form-Data\'>\" & chr(10)
  Response.Write \"<input type=\'file\' name=\'picture\' size=\'30\' style=\"\" WIDTH: 320px\"\">\" & chr(10)
  Response.Write \"<br>\" & chr(10)
  Response.Write \"<input type=\'submit\' value=\'Upload\'>\" & chr(10)
  Response.Write \"</form>\" & chr(10)
  if Filename <> \"\" and strError = \"\" then
    Response.Write \"<img src=\"\"/images/feed/bilborsen/\"&Filename&\"\"\">\" & chr(10)
  elseif strError <> \"\" then
    Response.Write \"<font color=\'red\'><b>Fejl</b> : </font>\" & strError & chr(10)
  End if
  Response.Write \"<br><a href=\"\"java script: transfer(\'\"&Filename&\"\');\"\">Godkend</a>\" & chr(10)
  Response.Write \"<br><a href=\"\"java script: transfer(\'0FBCC7C565AB453E989305BAD2F36E1Cwebmailtop1.jpg\');\"\">Godkend</a>\" & chr(10)

%>
</body>

</html>

Er det fordi vi ikke har adgang til window.opener, når vi har været inde og vende
på serveren med ASP. Kan du trykke på godkend *inden* du oploader?

ja, jeg kan godt trykke på godkend inden jeg uploader...

Hvordan kan jeg så få adgang til window.opener igen?

Kan man det igen, mon? Du kan altid pakke det ind i frames.

Lad os vente til jumper, eller olebole, eller en anden ekspert kommer forbi :=)

:-) Har løst prb.