• 18-12-2009, 13:03:57
    #1
    Merhaba arkadaşlar

    xml dosyasının içinde asp ile veritabanına (.mdb) bağlanıp bu veritabanı içindeki bilgileri kullanmak istiyorum.

    Kodlar yanlış büyük bir ihtimalle ama tam olara şöyle birşey istiyorum ;

     
        <%
     
    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
     
               %>
     
    <?xml version="1.0" encoding="UTF-8" ?>
    <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>
     
    <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"/>
     
        </album>
    </flash_parameters>
    <%=rs("baslik")%> bu kısmı sonradan döngüye sokacağım zaten ama böyle yapınca hata veriyor xml dosyası özelliğini kaybediyor
  • 17-01-2010, 11:25:21
    #2
    Üyeliği durduruldu
    <?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>
    bu işini görür.kolay gelsin.