Set objRS = Server.CreateObject("ADODB.RecordSet") objRS.CursorLocation = adUseServer objRS.CursorType = adOpenForwardOnly objRS.LockType = adLockOptimistic objRS.Open "select ContentType,image from tilbud where id=" & strId, objConn, , , adCmdText
Response.Clear if objRS("ContentType") <> "" then Response.ContentType = objRS("ContentType") end if
Dim pic, len len = objRS("image").ActualSize if len > 0 then pic = objRS("image").GetChunk(len) Response.BinaryWrite pic end if Response.End Pic = Nothing objRS.Close objConn.Close
%>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.