<!--#include file="../inc/conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from class_2"
rs.Open sql,conn,3,1
%>
<%
dim st
while not rs.eof
set st = Server.CreateObject("adodb.stream")
st.Type = 1
st.Open
st.Write(rs("class_2_img"))
st.SaveToFile "C:\"&rs("class_2_id")&".gif",2
st.close
rs.movenext
wend
%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>