problema con upload de archivos.....

[Fher]

hola a todos tengo un formulario para subir dos archivos a la vez....

<form method="post" action="salvafoto.asp" enctype="multipart/form-data">

<input type="file" name="hotel" size="20"></td>
<input type="file" name="img" size="20"></td>

<input name="submit" type="submit" value="Agregar">
</form>

pero el problema esta que solo me deja subir uno a la vez ya que si quiero subir los dos solo me scribe uno... ok altere el codigo para que se pudieran subir los dos y ahora me marca que notengo permisos para escribir, revise mis carpetas, mi administrador y tengo todos los permisos adecuados para lectura y escritura....

este es el codigo donde se recupera lo que envio por fomulario

<%

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")


BuildUploadRequest RequestBin

contentType = UploadRequest.Item("hotel").Item("ContentType")
ruta = UploadRequest.Item("hotel").Item("FileName")
archivo = Right(ruta,Len(ruta)-InstrRev(ruta,"\"))
value = UploadRequest.Item("hotel").Item("Value")

contentType = UploadRequest.Item("img").Item("ContentType")
ruta = UploadRequest.Item("img").Item("FileName")
archivo = Right(ruta,Len(ruta)-InstrRev(ruta,"\"))
value = UploadRequest.Item("img").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


Set crearchivo = ScriptObject.CreateTextFile(Server.mappath(".") & "/imagenes/"&archivo)

For i = 1 to LenB(value)
crearchivo.Write chr(AscB(MidB(value,i,1)))
Next

crearchivo.Close
hotel=archivo

%>
<!--#include file="upload.asp"-->

porque me marca error de permiso si tengo todos los permisos necesarios en mi carpet imagenes
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied

que tengo mal??'