Hello
Could someone help me to show my images stored in OLE fromat
(access)
On my web pages I tried a VBScript script ( in frontpage), but when I add Response.ContentType = "image/gif"
it blocks .
This same script shows text from my database !!!!
Here's my script
<HTML>
<HEAD>
<TITLE>TEST MY DBASE</TITLE>
</HEAD>
<BODY>
<%@ LANGUAGE="VBSCRIPT"%>
<p>
<BR><BR>
<P ALIGN="CENTER"><STRONG><FONT SIZE="5">Lecture du contenu de la base</FONT></STRONG></P>
<BR><BR>
<%
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = "image/gif"
MaxSize = 100000
' open DB
Set BaseLink = Server.CreateObject("ADODB.Connection"
BaseLink.Open "MYDBASE", "", ""
' SQL
varSQL = "SELECT * FROM myTable ORDER BY myrecord WHERE idprod = 1"
'Baseset
Set BaseSet = Server.CreateObject("ADODB.Recordset"
BaseSet.Open varSQL, BaseLink
Do While Not BaseSet.EOF
%>
<P align="center"><STRONG><% Response.BinaryWrite BaseSet("Photo"%></STRONG></P>
<%
BaseSet.MoveNext
Loop
' Close
BaseSet.Close
BaseLink.Close
Set BaseSet = Nothing
Set BaseLink = Nothing
%>
</BODY>
</HTML>
Could someone help me to show my images stored in OLE fromat
(access)
On my web pages I tried a VBScript script ( in frontpage), but when I add Response.ContentType = "image/gif"
it blocks .
This same script shows text from my database !!!!
Here's my script
<HTML>
<HEAD>
<TITLE>TEST MY DBASE</TITLE>
</HEAD>
<BODY>
<%@ LANGUAGE="VBSCRIPT"%>
<p>
<BR><BR>
<P ALIGN="CENTER"><STRONG><FONT SIZE="5">Lecture du contenu de la base</FONT></STRONG></P>
<BR><BR>
<%
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = "image/gif"
MaxSize = 100000
' open DB
Set BaseLink = Server.CreateObject("ADODB.Connection"
BaseLink.Open "MYDBASE", "", ""
' SQL
varSQL = "SELECT * FROM myTable ORDER BY myrecord WHERE idprod = 1"
'Baseset
Set BaseSet = Server.CreateObject("ADODB.Recordset"
BaseSet.Open varSQL, BaseLink
Do While Not BaseSet.EOF
%>
<P align="center"><STRONG><% Response.BinaryWrite BaseSet("Photo"%></STRONG></P>
<%
BaseSet.MoveNext
Loop
' Close
BaseSet.Close
BaseLink.Close
Set BaseSet = Nothing
Set BaseLink = Nothing
%>
</BODY>
</HTML>