I reciently moved my website to another server. The company that created the site used Pure Asp Upload 3 but they went out of Business. Since movin you can only see the pics uploaded when ur on my stores network, but if u use any other connection the pics are there. Also we had some changes done to our site, like background color, but the new colors dont show on our connnection but any where else they are there, can someone point me in the right direction

Hi Thomas,

It would help of you post a link to your page, together with the source code.

Kind regards, Patrick

www.grunos.com

i hope this is the code ur looking for

<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright 2001-2006 (c) George Petrov, www.DMXzone.com
' Version: 2.22
'------------------------------------------------------------------------------
Dim UploadCharSetMap, UploadCharSet
'CharSet to use
Function getUploadCharSet()
  Dim theCodePage
  getUploadCharSet = ""
 On Error Resume Next
 theCodePage = Response.CodePage
 If Err.Number <> 0 Then
 theCodePage = Session.CodePage
 End If
 On Error Goto 0
  If Not IsNull(theCodePage) Then
    For cm_index = 0 To UBound(UploadCharSetMap)-1 Step 3
      If CLng(UploadCharSetMap(cm_index+2)) = CLng(theCodePage) Then
        getUploadCharSet = UploadCharSetMap(cm_index+1)
        Exit For
      End If
    Next
  End If
End Function
'Current version
Function getPureUploadVersion()
  getPureUploadVersion = 2.22
End Function
'Set the querystring correctly
Sub PureUploadSetup()
  'Session.CodePage = Response.CodePage
  initCharsetMap
  UploadCharSet = getUploadCharSet()
  If UploadCharSet <> "" Then Response.CharSet = UploadCharSet
  If (CStr(Request.QueryString("GP_upload")) <> "") Then
    UploadQueryString = Replace(Request.QueryString,"GP_upload=true","")
    if left(UploadQueryString,1) = "&" Or left(UploadQueryString,1) = "?" then
      UploadQueryString = Mid(UploadQueryString,2)
    end if
    if right(UploadQueryString,1) = "&" Then
      UploadQueryString = Mid(UploadQueryString,1,len(UploadQueryString)-1)
    end if  
  else  
    UploadQueryString = Request.QueryString
    If (UploadQueryString <> "") Then  
      UploadQueryString = UploadQueryString & "&GP_upload=true"
    else
      UploadQueryString = "GP_upload=true"
    end if  
    GP_uploadAction = CStr(Request.ServerVariables("URL")) & "?" & UploadQueryString
  end if  
End Sub
'Read the form(actual upload)
Sub ProcessUpload(pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout)
  Server.ScriptTimeout = pau_timeout
  pau_doPreUploadChecks pau_sizeLimit
  RequestBin = Request.BinaryRead(Request.TotalBytes)
  Set UploadRequest = Server.CreateObject("Scripting.Dictionary")  
  pau_BuildUploadRequest RequestBin, pau_thePath, pau_storeType, pau_sizeLimit, pau_nameConflict, pau_Extensions
  If pau_Redirect <> "" Then
    If UploadQueryString <> "" Then
      pau_Redirect = pau_Redirect & "?" & UploadQueryString
    End If
    Response.Redirect(pau_Redirect)  
  end if  
End Sub

'Some checks before actual upload
Sub pau_doPreUploadChecks(sizeLimit)
  Dim checkADOConn, AdoVersion, Length
  'Check ADO Version
  set checkADOConn = Server.CreateObject("ADODB.Connection")
  on error resume next
  adoVersion = CSng(checkADOConn.Version)
  if err then 
    adoVersion = Replace(checkADOConn.Version,".",",")  
    adoVersion = CSng(adoVersion)
  end if  
  err.clear
  on error goto 0 
  set checkADOConn = Nothing
  if adoVersion < 2.5 then
    Response.Write "<strong>You don't have ADO 2.5 installed on the server.</strong><br/>"
    Response.Write "The File Upload extension needs ADO 2.5 or greater to run properly.<br/>"
    Response.Write "You can download the latest MDAC (ADO is included) from <a href=""www.microsoft.com/data"">www.microsoft.com/data</a><br/>"
    Response.End
  end if
  'Check content length if needed
  Length = CLng(Request.ServerVariables("Content_Length")) 'Get Content-Length header
  If sizeLimit <> "" Then
    sizeLimit = CLng(sizeLimit) * 1024
    If Length > sizeLimit Then
      Response.Write "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(sizeLimit, 0) & "B<br/>"
      Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"      
      Response.End
    End If
  End If
End Sub

'Check if version is uptodate
Sub CheckPureUploadVersion(pau_version)
  Dim foundPureUploadVersion
  foundPureUploadVersion = getPureUploadVersion()
  if err or pau_version > foundPureUploadVersion then
    Response.Write "<strong>You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.</strong><br/>"
    Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.<br/>"
    Response.End    
  end if
End Sub

'Compatibility with older versions
Sub BuildUploadRequest(RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict)
  pau_BuildUploadRequest RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict,""
End Sub

Sub pau_BuildUploadRequest(RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict,Extensions)
  Dim Boundary, FormInfo, TypeArr, BoundaryArr, BoundaryPos, boundaryEnd, PosBeg, PosEnd, Pos, PosLen, Extension, ExtArr, i
  Dim PosFile, Name, PosBound, FileName, ContentType, Value, ValueBeg, ValueEnd, ValueLen, ExtChk
  'Check content type
  TypeArr = Split(Request.ServerVariables("Content_Type"), ";")
  if Trim(TypeArr(0)) <> "multipart/form-data" then
    Response.Write "<strong>Form was submitted with no ENCTYPE=""multipart/form-data""</strong><br/>"
    Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"      
    Response.End
  end If
  'Get the boundary
    PosBeg = 1
    PosEnd = InstrB(PosBeg,RequestBin,pau_getByteString(chr(13)))
    if PosEnd = 0 then
    Response.Write "<strong>Form was submitted with no ENCTYPE=""multipart/form-data""</strong><br/>"
    Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"    
    Response.End
    end if
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    boundaryPos = InstrB(1,RequestBin,boundary)
 boundaryEnd = LenB(RequestBin) - (LenB(boundary) * 2)
    'Get all data inside the boundaries
    Do until (boundaryPos > boundaryEnd)
    'Members variable of objects are put in a dictionary object
    Dim UploadControl
    Set UploadControl = Server.CreateObject("Scripting.Dictionary")
    'Get an object name
    Pos = InstrB(BoundaryPos,RequestBin,pau_getByteString("Content-Disposition"))
    Pos = InstrB(Pos,RequestBin,pau_getByteString("name="))
    PosBeg = Pos+6
    PosEnd = InstrB(PosBeg,RequestBin,pau_getByteString(chr(34)))
    Name = LCase(StringConvert(MidB(RequestBin,PosBeg,PosEnd-PosBeg)))
    PosFile = InstrB(BoundaryPos,RequestBin,pau_getByteString("filename="))
    PosBound = InstrB(PosEnd,RequestBin,boundary)
    'Test if object is of file type
    If  PosFile<>0 AND (PosFile<PosBound) Then
      'Get Filename, content-type and content of file
      PosBeg = PosFile + 10
      PosEnd =  InstrB(PosBeg,RequestBin,pau_getByteString(chr(34)))
      FileName = StringConvert(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
      FileName = pau_RemoveInvalidChars(Mid(FileName,InStrRev(FileName,"\")+1))
      'Check Extension
      Extension = Mid(FileName,InStrRev(FileName,".")+1)
      If Extensions <> "" And FileName <> "" Then
        ExtChk = True
        ExtArr = Split(Extensions, ",")
        For i = 0 to UBound(ExtArr)
          If LCase(Trim(ExtArr(i))) = LCase(Extension) Then
            ExtChk = false
          End If
        Next
        If ExtChk Then
          Response.Write "Filename: " & FileName & "<br/>"
          Response.Write "Filetype is not allowed, only " & Extensions & " are allowed<br/>"
          Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
          Response.End
        End If
      End If
      'Add filename to dictionary object
      UploadControl.Add "FileName", FileName
      Pos = InstrB(PosEnd,RequestBin,pau_getByteString("Content-Type:"))
      PosBeg = Pos+14
      PosEnd = InstrB(PosBeg,RequestBin,pau_getByteString(chr(13)))
      'Add content-type to dictionary object
      ContentType = StringConvert(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
      UploadControl.Add "ContentType",ContentType
      'Get content of object
      PosBeg = PosEnd+4
      PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
      Value = FileName
      ValueBeg = PosBeg-1
      ValueLen = PosEnd-PosBeg
    Else
      'Get content of object
      Pos = InstrB(Pos,RequestBin,pau_getByteString(chr(13)))
      PosBeg = Pos+4
      PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
      Value = StringConvert(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
      ValueBeg = 0
      ValueEnd = 0
    End If
    'Add content to dictionary object
    UploadControl.Add "Value" , Value 
    UploadControl.Add "ValueBeg" , ValueBeg
    UploadControl.Add "ValueLen" , ValueLen 
    'Add dictionary object to main dictionary
    if UploadRequest.Exists(name) then
      UploadRequest(name).Item("Value") = UploadRequest(name).Item("Value") & "," & Value
    Else
      UploadRequest.Add name, UploadControl 
    end if    
    'Loop to next object
    BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
    Loop
  Dim GP_keys, GP_i, GP_curKey, GP_value, GP_valueBeg, GP_valueLen, GP_curPath, GP_FullPath
  Dim GP_CurFileName, GP_FullFileName, fso, GP_BegFolder, GP_RelFolder, GP_FileExist, Begin_Name_Num
  Dim orgUploadDirectory
  if InStr(UploadDirectory,"""") > 0 then 
    on error resume next
    orgUploadDirectory = UploadDirectory
    UploadDirectory = eval(UploadDirectory)  
    if err then
      Response.Write "<strong>Upload folder is invalid</strong><br/><br/>"      
      Response.Write "Upload Folder: " & Trim(orgUploadDirectory) & "<br/>"
      Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
      err.clear
      response.End
    end if    
    on error goto 0
  end if  
  GP_keys = UploadRequest.Keys
  for GP_i = 0 to UploadRequest.Count - 1
    GP_curKey = GP_keys(GP_i)
    'Save all uploaded files
    if UploadRequest.Item(GP_curKey).Item("FileName") <> "" then
      GP_value = UploadRequest.Item(GP_curKey).Item("Value")
      GP_valueBeg = UploadRequest.Item(GP_curKey).Item("ValueBeg")
      GP_valueLen = UploadRequest.Item(GP_curKey).Item("ValueLen")
      'Get the path
      if InStr(UploadDirectory,"\") > 0 then
        GP_curPath = UploadDirectory
        if Mid(GP_curPath,Len(GP_curPath),1) <> "\" then
          GP_curPath = GP_curPath & "\"
        end if         
        GP_FullPath = GP_curPath
      else
        if Left(UploadDirectory,1) = "/" then
          GP_curPath = UploadDirectory
        else
          GP_curPath = Request.ServerVariables("PATH_INFO")
          GP_curPath = Trim(Mid(GP_curPath,1,InStrRev(GP_curPath,"/")) & UploadDirectory)
          while InStr(GP_curPath, "/./") > 0
            pos = InStr(GP_curPath, "/./")
            GP_curPath = Trim(Mid(GP_curPath,1,pos) & Mid(GP_curPath,pos+3))
          wend
          while InStr(GP_curPath, "/../") > 0
            pos = InStr(GP_curPath, "/../")
            if pos > 1 then
              GP_curPath = Trim(Mid(GP_curPath,1,InStrRev(GP_curPath, "/", pos-1)) & Mid(GP_curPath,pos+4))
            else
              GP_curPath = Trim(Mid(GP_curPath,1,pos) & Mid(GP_curPath,pos+4))
            end if
          wend
          if Mid(GP_curPath,Len(GP_curPath),1)  <> "/" then
            GP_curPath = GP_curPath & "/"
          end if 
        end if
        GP_FullPath = Trim(Server.mappath(GP_curPath))        
      end if
      if GP_valueLen = 0 then
        Response.Write "<strong>An error has occurred while saving the uploaded file!</strong><br/><br/>"
        Response.Write "Filename: " & Trim(GP_curPath) & UploadRequest.Item(GP_curKey).Item("FileName") & "<br/>"
        Response.Write "The file does not exists or is empty.<br/>"
        Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
        response.End
      end if
      'Create a Stream instance
      Dim GP_strm1, GP_strm2
      Set GP_strm1 = Server.CreateObject("ADODB.Stream")
      Set GP_strm2 = Server.CreateObject("ADODB.Stream")
      'Open the stream
      GP_strm1.Open
      GP_strm1.Type = 1 'Binary
      GP_strm2.Open
      GP_strm2.Type = 1 'Binary
      GP_strm1.Write RequestBin
      GP_strm1.Position = GP_ValueBeg
      GP_strm1.CopyTo GP_strm2,GP_valueLen
      'Create and Write to a File
      GP_CurFileName = UploadRequest.Item(GP_curKey).Item("FileName")
      GP_FullFileName = GP_FullPath & "\" & GP_CurFileName
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      pau_AutoCreatePath GP_FullPath
      'Check if the file already exist
      GP_FileExist = false
      If fso.FileExists(GP_FullFileName) Then
        GP_FileExist = true
      End If      
      if nameConflict = "error" and GP_FileExist then
        Response.Write "<strong>The file already exists on the server!</strong><br/><br/>"
        Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
        GP_strm1.Close
        GP_strm2.Close
        response.End
      end If
      if ((nameConflict = "over" or nameConflict = "uniq") and GP_FileExist) or (NOT GP_FileExist) then
        if nameConflict = "uniq" and GP_FileExist Then
          Begin_Name_Num = 0
          while GP_FileExist    
            Begin_Name_Num = Begin_Name_Num + 1
            GP_FullFileName = Trim(GP_FullPath)& "\" & fso.GetBaseName(GP_CurFileName) & "_" & Begin_Name_Num & "." & fso.GetExtensionName(GP_CurFileName)
            GP_FileExist = fso.FileExists(GP_FullFileName)
          wend  
          UploadRequest.Item(GP_curKey).Item("FileName") = fso.GetBaseName(GP_CurFileName) & "_" & Begin_Name_Num & "." & fso.GetExtensionName(GP_CurFileName)
          UploadRequest.Item(GP_curKey).Item("Value") = UploadRequest.Item(GP_curKey).Item("FileName")
        end if
        on error resume Next
        GP_strm2.SaveToFile GP_FullFileName,2
        GP_strm1.Close
        GP_strm2.Close
        if storeType = "path" Then
          UploadRequest.Item(GP_curKey).Item("Value") = GP_curPath & UploadRequest.Item(GP_curKey).Item("Value")
        end if
        on error goto 0
      end if
    end if
  next
End Sub

'Create folders if they do not exist
Sub pau_AutoCreatePath(PAU_FullPath)
  Dim FL_fso, FL_EndPos, PAU_NewPath
  Set FL_fso = Server.CreateObject("Scripting.FileSystemObject")  
  if not FL_fso.FolderExists(PAU_FullPath) then
  FL_EndPos = InStrRev(PAU_FullPath,"\")
  if FL_EndPos > 0 then
    PAU_NewPath = Left(PAU_FullPath,FL_EndPos-1)
    pau_AutoCreatePath PAU_NewPath
    on error resume next
    FL_fso.CreateFolder PAU_FullPath
    if err.number <> 0 then
      Response.Write "<strong>Can not create upload folder path: " & PAU_FullPath & "!</strong><br/>"
      Response.Write "Maybe you don't have the proper permissions<br/><br/>"        
      Response.Write "Error # " & CStr(Err.Number) & " " & Err.Description & "<br/><br/>"
      Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
      Response.End        
    end If
    on error goto 0
    end if  
  end if
  Set FL_fso = nothing
End Sub

'String to byte string conversion
Function pau_getByteString(StringStr)
  Dim i
  For i = 1 to Len(StringStr)
    pau_getByteString = pau_getByteString & chrB(AscW(Mid(StringStr,i,1)))
  Next
End Function

'Byte string to string conversion (with multi-byte support now)
Function pau_getString(strBinary)
  Dim Index
  For Index = 1 To LenB(strBinary)
    pau_getString = pau_getString & Chr(AscB(MidB(strBinary, Index, 1)))
  Next
End Function

Function StringConvert(Text)
  If UploadCharSet <> "" Then
    Dim BinaryStream, outStr
    Set BinaryStream = Server.CreateObject("ADODB.Stream")
    BinaryStream.Type = 2
    BinaryStream.Open
    Text = pau_getByteString("....DMX") & Text
    BinaryStream.WriteText Text
    BinaryStream.Position = 0
    BinaryStream.CharSet = UploadCharSet
    outStr = BinaryStream.ReadText
    StringConvert = Mid(outStr, InStr(outStr, "DMX")+3)
  Else
    StringConvert = pau_getString(Text)
  End If
End Function

'Replacement for the requests
Function UploadFormRequest(name)
  Dim keyName
  keyName = LCase(name)
  if IsObject(UploadRequest) Then
    If UploadRequest.Exists(keyName) then
      if UploadRequest.Item(keyName).Exists("Value") then
        UploadFormRequest = UploadRequest.Item(keyName).Item("Value")
      end if  
    end if  
  end if  
End Function

'Invalid characters
'Dollar sign ($) 
'At sign (@) 
'Angle brackets (< >), brackets ([ ]), braces ({ }), and parentheses (( )) 
'Colon (:) and semicolon (;) 
'Equal sign (=) 
'Caret sign (^) 
'Pipe (vertical bar) (|) 
'Asterisk (*) 
'Exclamation point (!) 
'Forward (/) and backward slash (\) 
'Percent sign (%) 
'Question mark (?) 
'Comma (,) 
'Quotation mark (single or double) (' ") 
'Tab 
Function pau_RemoveInvalidChars(str)
  Dim newStr, ci, curChar, Invalid
  Invalid = "$@<>[]{}():;=^|*!/\%?,'""  "
  for ci = 1 to Len(str)
    curChar = Mid(str,ci,1)
    if InStr(Invalid, curChar) = 0 then
      newStr = newStr & curChar
    end if
  next
  pau_RemoveInvalidChars = Trim(newStr)
End Function

Sub initCharsetMap()
  UploadCharSetMap = Array("Arabic (ASMO 708)","ASMO-708","708", _
          "Arabic (ISO)","iso-8859-6","28596", _
          "Arabic (Windows)","windows-1256","1256", _
          "Baltic (ISO)","iso-8859-4","28594", _
          "Baltic (Windows)","windows-1257","1257", _
          "Central European (DOS)","ibm852","852", _
          "Central European (ISO)","iso-8859-2","28592", _
          "Central European (Windows)","windows-1250","1250", _
          "Chinese Simplified (EUC)","EUC-CN","51936", _
          "Chinese Simplified (GB2312)","gb2312","936", _
          "Chinese Simplified (HZ)","hz-gb-2312","52936", _
          "Chinese Traditional (Big5)","big5","950", _
          "Cyrillic (DOS)","cp866","866", _
          "Cyrillic (ISO)","iso-8859-5","28595", _
          "Cyrillic (KOI8-R)","koi8-r","20866", _
          "Cyrillic (KOI8-U)","koi8-u","21866", _
          "Cyrillic (Windows)","windows-1251","1251", _
          "Greek (ISO)","iso-8859-7","28597", _
          "Greek (Windows)","windows-1253","1253", _
          "Hebrew (DOS)","DOS-862","862", _
          "Hebrew (ISO-Logical)","iso-8859-8-i","38598", _
          "Hebrew (ISO-Visual)","iso-8859-8","28598", _
          "Hebrew (Windows)","windows-1255","1255", _
          "Japanese (EUC)","euc-jp","51932", _
          "Japanese (JIS)","iso-2022-jp","50220", _
          "Japanese (Shift-JIS)","shift_jis","932", _
          "Korean (EUC)","euc-kr","51949", _
          "Korean (ISO)","iso-2022-kr","50225", _
          "Korean (Johab)","Johab","1361", _
          "Latin 3 (ISO)","iso-8859-3","28593", _
          "Latin 9 (ISO)","iso-8859-15","28605", _
          "Norwegian (IA5)","x-IA5-Norwegian","20108", _
          "Swedish (IA5)","x-IA5-Swedish","20107", _
          "Thai (Windows)","windows-874","874", _
          "Turkish (ISO)","iso-8859-9","28599", _
          "Turkish (Windows)","windows-1254","1254", _
          "Unicode (UTF-8)","utf-8","65001", _
          "US-ASCII","us-ascii","20127", _
          "Vietnamese (Windows)","windows-1258","1258", _
          "Western European (ISO)","iso-8859-1","28591", _
          "Western European (Windows)","Windows-1252","1252" )
End Sub

'Fix for the update record
Function FixFieldsForUpload(GP_fieldsStr, GP_columnsStr)
  Dim GP_counter, GP_Fields, GP_Columns, GP_FieldName, GP_FieldValue, GP_CurFileName, GP_CurContentType
  GP_Fields = Split(GP_fieldsStr, "|")
  GP_Columns = Split(GP_columnsStr, "|") 
  GP_fieldsStr = ""
  ' Get the form values
  For GP_counter = LBound(GP_Fields) To UBound(GP_Fields) Step 2
    GP_FieldName = LCase(GP_Fields(GP_counter))
    GP_FieldValue = GP_Fields(GP_counter+1)
    if UploadRequest.Exists(GP_FieldName) then
      GP_CurFileName = UploadRequest.Item(GP_FieldName).Item("FileName")
      GP_CurContentType = UploadRequest.Item(GP_FieldName).Item("ContentType")
    else  
      GP_CurFileName = ""
      GP_CurContentType = ""
    end if  
    if (GP_CurFileName = "" and GP_CurContentType = "") or (GP_CurFileName <> "" and GP_CurContentType <> "") then
      GP_fieldsStr = GP_fieldsStr & GP_FieldName & "|" & GP_FieldValue & "|"
    end if 
  Next
  if GP_fieldsStr <> "" then
    GP_fieldsStr = Mid(GP_fieldsStr,1,Len(GP_fieldsStr)-1)
  else  
    Response.Write "<strong>An error has occured during record update!</strong><br/><br/>"
    Response.Write "There are no fields to update ...<br/>"
    Response.Write "If the file upload field is the only field on your form, you should make it required.<br/>"
    Response.Write "Please correct and <a href=""javascript:history.back(1)"">try again</a>"
    Response.End
  end if
  FixFieldsForUpload = GP_fieldsStr    
End Function

'Fix for the update record
Function FixColumnsForUpload(GP_fieldsStr, GP_columnsStr)
  Dim GP_counter, GP_Fields, GP_Columns, GP_FieldName, GP_ColumnName, GP_ColumnValue,GP_CurFileName, GP_CurContentType
  GP_Fields = Split(GP_fieldsStr, "|")
  GP_Columns = Split(GP_columnsStr, "|") 
  GP_columnsStr = "" 
  ' Get the form values
  For GP_counter = LBound(GP_Fields) To UBound(GP_Fields) Step 2
    GP_FieldName = LCase(GP_Fields(GP_counter))  
    GP_ColumnName = GP_Columns(GP_counter)  
    GP_ColumnValue = GP_Columns(GP_counter+1)
    if UploadRequest.Exists(GP_FieldName) then
      GP_CurFileName = UploadRequest.Item(GP_FieldName).Item("FileName")
      GP_CurContentType = UploadRequest.Item(GP_FieldName).Item("ContentType")    
    else  
      GP_CurFileName = ""
      GP_CurContentType = ""
    end if  
    if (GP_CurFileName = "" and GP_CurContentType = "") or (GP_CurFileName <> "" and GP_CurContentType <> "") then
      GP_columnsStr = GP_columnsStr & GP_ColumnName & "|" & GP_ColumnValue & "|"
    end if 
  Next
  if GP_columnsStr <> "" then
    GP_columnsStr = Mid(GP_columnsStr,1,Len(GP_columnsStr)-1)    
  end if
  FixColumnsForUpload = GP_columnsStr
End Function
</SCRIPT>

Hi Thomas,

I'm not quit sure what you mean by

Quote

Since movin you can only see the pics uploaded when ur on my stores network, but if u use any other connection the pics are there.

Are you viewing the website through a proxyserver? It sounds like you are viewing a cached version of the site.
FYI, the code you posted is Pure ASP Upload 2, not 3!!

Kind regards, Patrick

sorry there is 2 files for the pure asp upload. the problem is that i load everything through the control panel and it show up on the website when im in the store and using the network connection but when i go home or anywhere else the pics dont upload but all the infor for the product is there. i have to load the files manually through my ftp. Also we have made changes to the site but in the store none of them will show. i tried clearing my cach, but the thing is i use my laptop at both places and it switches, when im at work it show the old site and new pics, but at home it show the new site with no pics? any suggestion