pongo el codigo:
mostrar_foto.asp
*******************************
<%
Response.Buffer = True
' Login del fichero a obtener
login=session("login")
' Cadena de conexion
Dim connStr
Set connStr = Server.CreateObject("ADODB.Connection")
connStr.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;Port=3306;Database=xxx;Ui d=xxx;Pwd=xxx;Option=3;"
' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' abrimos la conexion
sql= "select * from ficheros where login='"&login&"'"
set rs=connStr.execute(sql)
Response.BinaryWrite rs("foto")
rs.Close
Set rs = Nothing
%>
**********************************
insert.asp
**********************************
(aqui va la parte del codigo que he sacado del uploader)
If fileSize > 0 Then
Dim connStr
Set connStr = Server.CreateObject("ADODB.Connection")
connStr.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;Port=3306;Database=xxx;Ui d=xxx;Pwd=xxx;Option=3;"
' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
login=session("login")
rs.Open "ficheros", connStr, 2, 2
' Insertando datos
rs.AddNew
rs("login") = login
rs("foto").AppendChunk fileData
rs("nombre")=fileName
rs.Update
%>
<script language="VBScript">
msgbox "¡¡ATENCIÓN!!.La foto ha sido introducida"
document.location.href="principal.asp"
</script>
<%Else%>
<script language="VBScript">
resultado = MSGBOX ("¡¡ERROR!!No has seleccionado ninguna foto", VBCRITICAL, "SUBIR IMAGEN")
document.location.href="principal.asp"
</script>
<%End If
**********************************
y el codigo de la pagina principal es:
<form name="form1" enctype="multipart/form-data" method="post" action="insert.asp">
<p><img name="foto" src="mostrar_imagen.asp" width="100" height="100" alt=""></p>
<p>
<input type="file" name="file">
</p>
<p>
<input type="submit" name="enviar" value="Enviar">
</p>
</form>
espero q entiendas el codigo...y gracias x todo!!!