Hi All,
I have created my database with access , and wrote this script, but when I publish my asp page, I receive this message
Objet Response error 'ASP 0156 : 80004005'
/Default.asp, line 24
here's my script (SOMEONE CAN HELP ME )
<HTML>
<HEAD>
<TITLE>show pictures </TITLE>
</HEAD>
<BODY>
<%@ LANGUAGE="VBSCRIPT"%>
<p>
<BR><BR>
<P ALIGN="CENTER"><STRONG><FONT SIZE="5">DATA SHOW</FONT></STRONG></P>
<BR><BR>
<%
' Open database
Set BaseLink = Server.CreateObject("ADODB.Connection"
BaseLink.Open "Visiteurs", "", ""
' SQL
varSQL = "SELECT * FROM Pays WHERE idprod = 1 "
' BASESET
Set BaseSet = Server.CreateObject("ADODB.Recordset"
BaseSet.Open varSQL, BaseLink
' GIF
Response.ContentType = "image/gif"
Do While Not BaseSet.EOF
%>
<P align="center"><STRONG><% Response.Binary Write BaseSet("Photo"%></STRONG></P>
<%
BaseSet.MoveNext
Loop
' close DB
BaseSet.Close
BaseLink.Close
Set BaseSet = Nothing
Set BaseLink = Nothing
%>
</BODY>
</HTML>
I have created my database with access , and wrote this script, but when I publish my asp page, I receive this message
Objet Response error 'ASP 0156 : 80004005'
/Default.asp, line 24
here's my script (SOMEONE CAN HELP ME )
<HTML>
<HEAD>
<TITLE>show pictures </TITLE>
</HEAD>
<BODY>
<%@ LANGUAGE="VBSCRIPT"%>
<p>
<BR><BR>
<P ALIGN="CENTER"><STRONG><FONT SIZE="5">DATA SHOW</FONT></STRONG></P>
<BR><BR>
<%
' Open database
Set BaseLink = Server.CreateObject("ADODB.Connection"
BaseLink.Open "Visiteurs", "", ""
' SQL
varSQL = "SELECT * FROM Pays WHERE idprod = 1 "
' BASESET
Set BaseSet = Server.CreateObject("ADODB.Recordset"
BaseSet.Open varSQL, BaseLink
' GIF
Response.ContentType = "image/gif"
Do While Not BaseSet.EOF
%>
<P align="center"><STRONG><% Response.Binary Write BaseSet("Photo"
%></STRONG></P><%
BaseSet.MoveNext
Loop
' close DB
BaseSet.Close
BaseLink.Close
Set BaseSet = Nothing
Set BaseLink = Nothing
%>
</BODY>
</HTML>
