<%@ LANGUAGE="VBSCRIPT" %> <% set upl = Server.CreateObject("SoftArtisans.FileUp") set up2 = Server.CreateObject("SoftArtisans.FileUp") set up3 = Server.CreateObject("SoftArtisans.FileUp") set up4 = Server.CreateObject("SoftArtisans.FileUp") set up5 = Server.CreateObject("SoftArtisans.FileUp") set up6 = Server.CreateObject("SoftArtisans.FileUp") IMGREVIEW= "IMG1" If upl.Form("Image").TotalBytes <> 0 Then ImagePathV=IMGREVIEW & "." & Right( upl.Form("Image").UserFilename , 3) vImage="Images/BusItem/"& ImagePath1 ImagePath1= "c:/inetpub/thai-industry/exchangeHub/Images/"& ImagePathV upl.Form("Image").SaveAs ImagePath1 ImagePath2= "c:/inetpub/thai-industry/exchangeHub/Images/BuysItem/"& ImagePathV up2.Form("Image").SaveAs ImagePath2 ImagePath3= "c:/inetpub/thai-industry/exchangeHub/Images/SalesItem/"& ImagePathV up3.Form("Image").SaveAs ImagePath3 ImagePath4= "c:/inetpub/thai-industry/exchangeHub/Text/"& ImagePathV up4.Form("Image").SaveAs ImagePath4 ImagePath5= "c:/inetpub/thai-industry/exchangeHub/Text/HMail/"& ImagePathV up5.Form("Image").SaveAs ImagePath5 ImagePath6= "c:/inetpub/thai-industry/exchangeHub/Text/DLM/"& ImagePathV up6.Form("Image").SaveAs ImagePath6 End If %>

Save complete at \Images:	<%=upl.Form("Image").TotalBytes%> bytes
Save complete at \Images\BuysItem:	<%=up2.Form("Image").TotalBytes%> bytes
Save complete at \Images\SalesItem:	<%=up3.Form("Image").TotalBytes%> bytes
Save complete at \Text:	<%=up4.Form("Image").TotalBytes%> bytes
Save complete at \Text\HMail:	<%=up5.Form("Image").TotalBytes%> bytes
Save complete at \Text\DLM:	<%=up6.Form("Image").TotalBytes%> bytes