<?xml version="1.0" encoding="UTF-8" ?>

<%

Response.ContentType = "text/xml"

Set vt= Server.CreateObject("ADODB.Connection")
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deneme.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from flash",vt,1,3
%>

<flash_parameters>
    <preferences>
        <global>
            <basic_property movieWidth="459" movieHeight="289" decoration="res/camera.swf" html_title="Title" loadStyle="Pie" startAutoPlay="true" continuum="true" anvsoftMenu="false" backgroundColor="#282828" hideAdobeMenu="false" photoDynamicShow="false" enableURL="true" transitionArray=""/>
            <title_property showTitle="true" photoTitleColor="0xfffbf0" backgroundColor="0x800000" alpha="100" autoHide="false"/>
            <music_property path="" stream="false" loop="false"/>
            <photo_property topPadding="0" bottomPadding="0" leftPadding="0" rightPadding="0"/>
            <properties enable="true" backgroundColor="#282828" backgroundAlpha="30" cssText="a:link{text-decoration: underline;} a:hover{color:#ff0000; text-decoration: none;} a:active{color:#0000ff;text-decoration: none;} .blue {color:#0000ff; font-size:15px; font-style:italic; text-decoration: underline;} .body{color:#ff5500;font-size:20px;}" align="top"/>
        </global>
        <thumbnail>
            <basic_property showPreview="false" backgroundColor="0x800000" backgroundAlpha="100" buttonColor="0xffffff" numberColor="0x000000" currentNumberColor="0xffffff"/>
        </thumbnail>
    </preferences>
    <album>
<%
If not rs.eof then
do while not rs.eof
%>
<slide jpegURL="thumbs/t_0004.jpg" d_URL="slides/p_0004.jpg" transition="36" panzoom="1" URLTarget="1" phototime="2" url="http://" UrlTarget="_blank" title="<%=rs("baslik")%>" width="459" height="289"/>
<%
rs.movenext : Loop
end if
rs.close : set rs = nothing
%>
    </album>
</flash_parameters>