FastPoint Points

Hej igen... mangler lige en sidste ting..

hvordan får jeg så denne her til at uploade på for eksempel eksperten.dk istedet for i det samme dir?


<%
' Kode til upload billede
Response.Expires=0
strId = Session("ID")
byteCount = Request.TotalBytes
' response.write("<" & byteCount)
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)
if byteCount < 500000 then ' Kontrol må ikke udføres tidligere da der fejles når HTTP-headeren ikke er modtaget før Redirect
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  ' Ændre filnavn til id.???
  strError = True
  P = inStr(filename, ".")
  if (P > 0) then
    strExt = LCase(Right(filename, len(filename) - (P - 1)))
    if strExt = ".jpeg" or strExt = ".jpg" or strExt = ".gif" then
      filename = strID & strExt
      strError = False
    end if
  end if
  if not strError then
    Session("ID") = ""
    value = UploadRequest.Item("blob").Item("Value")
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(Server.mappath(""&filename)) ' Eller anden mappe
    For i = 1 to LenB(value)
      MyFile.Write chr(AscB(MidB(value,i,1)))
    Next
    Response.Redirect("kalpe.asp") ' Vis nyeste (ikke aktive side)
  else
    Response.Redirect("addpicture.asp?PicErr=errExt")
  end if
else
  Response.Redirect("addpicture.asp?PicErr=errSize")
end if
%>
<!--#include file="uputil.inc"-->