Crash Course in Images

[TURKINATOR]

Hi,

For so long now I cannot figure out how to read files from a database and how to upload a file to DB.

If anyone knows how to please could you assist me with some simplified samples.

Thanks.

[ooKmonkey]

I am by no means an expert but this is how i did the saving in a vb app using Access as the backend

the field in access was set to a ole object i think

you shouldn't have to change much for ASP

    
Dim mystream As New ADODB.Stream
    Set mystream = New ADODB.Stream
    
    mystream.Type = adTypeBinary
    RS.CursorLocation = adUseClient
     
    RS.ActiveConnection = cn
    
    RS.Open "SELECT imgName,Image FROM tblImages WHERE imgName = ''" 

    RS.AddNew
    mystream.Open
    mystream.LoadFromFile "Image location"
    
    RS.Fields("imgName") = "ImageName"
    RS.Fields("Image") = mystream.Read
    RS.Update
    
    RS.Close
    mystream.Close

[TURKINATOR]

Thanks ooKmonkey.. I will be using VB.NET to place the image into the DB and using ASP to read it back onto a website.

I could use a tool to do all this but I rather learn and know how its accomplished. I will give it a go and write back with my result.

Thanks again

[TURKINATOR]

Ok. Here is what I did.

I created a Access DB this is what I am trying to do in ASP to view the picture.

It shows all jibberish, which I guess its right, but now what is next? Thanks

<!-- #include file="adovbs.inc" -->
<%
	response.Buffer = true
	dim con, com, rec
	
	set con = server.CreateObject("ADODB.Connection")
	set com = server.CreateObject("ADODB.Command")
	set rec = server.CreateObject("ADODB.RecordSet")
	
	con.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source = D:\UITS\DB_Cars.mdb" 
	com.activeconnection = con
	com.commandtype = adCMDText
	com.commandtext = "SELECT * FROM Images"
	rec = com.execute

	response.ContentType = "images/jpeg"
	response.BinaryWrite(rec("ImageFile"))
%>