Hola...
mmmm creo que tu problema con las imagenes es el siguiente...
Cita: response.ContentType = rs.fields("usufottip")
response.binarywrite rs.Fields("usufot")
prueba asi...
SetImgForDisp objRS.fields("usufot"), "jpeg"
<img src="Imagen.asp" width="320" height="240">
Function SetImgForDisp(inField, inContentType)
Dim mOleHeadSize, mBytes
Dim mFieldSize, mDumpaway
mOleHeadSize = 78
inContentType = LCase(inContentType)
Select Case inContentType
Case "gif", "jpeg", "bmp"
inContentType = "image/" & inContentType
mBytes = inField.value
Case "ole"
inContentType = "image/bmp"
mFieldSize = inField.ActualSize
mDumpaway = inField.GetChunk(mOleHeadSize)
mBytes = inField.GetChunk(mFieldSize - mOleHeadSize)
End Select
Session("ImageBytes") = mBytes
Session("ImageType") = inContentType
End Function
y en imagen.asp
<<imagen.asp>>
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = Session("ImageType")
response.BinaryWrite Session("ImageBytes")
Session("ImageType") = ""
Session("ImageBytes") = ""
response.End
%>
pero hazlo de esta forma..ya te envie las paginas y la base de datos...y viste que funciona...no sigas con tu metodo por que solo consigues atrasarte mas...
chausito..
:cantar: