<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
' CREATE TABLE demo (id INTEGER NOT NULL PRIMARY KEY, pic BLOB);
adInteger = 3
adVarBinary = 204
adParamInput = 1
adTypeBinary = 1
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;"
data = Request.BinaryRead(Request.TotalBytes)
Set stm = Server.CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Open
stm.Write data
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "INSERT INTO demo VALUES(?,?)"
cmd.Parameters.Append(cmd.CreateParameter("@id", adInteger, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@pic", adVarBinary, adParamInput, 65535))
cmd.Parameters("@id") = 1
cmd.Parameters("@pic") = stm.Read
cmd.Execute
Set cmd = Nothing
Set stm = Nothing
Set con = Nothing
%>
OK