API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 10th, 2012
211
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.71 KB | None | 0 0
raw download clone embed print report
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
  2. <%
  3. Option Explicit
  4. dbK1 = true
  5. %>
  6. <!--#include file="admin/inc/ayarlar.asp"-->
  7. <%
  8. Set db = Server.CreateObject("ADODB.Connection")
  9. db.Mode = 3
  10. db.ConnectionTimeout = 5
  11. db.Open(dsn)
  12.  
  13. function baslik(str)
  14. str = Server.HTMLEncode(str)
  15. str = Replace(str," ","-")
  16. str = Replace(str,"'","-")
  17. str = Replace(str,"&#286;","G")
  18. str = Replace(str,"&#220;","U")
  19. str = Replace(str,"&#350;","S")
  20. str = Replace(str,"&#304;","I")
  21. str = Replace(str,"&#214;","O")
  22. str = Replace(str,"&#199;","C")
  23. str = Replace(str,"&#287;","g")
  24. str = Replace(str,"&#252;","u")
  25. str = Replace(str,"&#351;","s")
  26. str = Replace(str,"&#305;","i")
  27. str = Replace(str,"&#246;","o")
  28. str = Replace(str,"&#231;","c")
  29. baslik = Trim(str)
  30. end function
  31.  
  32. if dV = "main" or dV = "muzik" or dV = "about" or dV = "iletisim" or dV = "dt1" or dV = "dt2" or dV = "arkaplan" or dV = "homepage" then
  33. %><?xml version="1.0" encoding="iso-8859-9"?><%
  34. end if
  35.  
  36. if dV = "" then dV = "anasayfa" end if
  37.  
  38. if dV = "anasayfa" then
  39. %>
  40. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
  41. <html>
  42. <head>
  43. <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
  44. <title>Bugra AYDIN PHOTOGRAPHY</title>
  45. <script type="text/javascript" src="js/swfobject.js"></script>
  46. <script type="text/javascript" src="js/swfaddress.js"></script>
  47. <link href="css/tema.css" rel="stylesheet" type="text/css" />
  48. </head>
  49. <body>
  50. <div id="site">Flash Oynatıcınızın Sürümünü Güncellemeniz Gerekmektedir...</div>
  51. <script type="text/javascript">
  52. // <![CDATA[
  53. var so = new SWFObject("index.swf", "index-flash", "100%", "100%", "8", "#000000");
  54. so.addVariable("xml", "default.asp?sy=main&time="+new Date().getTime());
  55. so.addParam("quality", "best");
  56. so.addParam('swLiveConnect', 'true');
  57. so.addParam('allowScriptAccess', 'always');
  58. so.addParam('allowFullScreen', 'true');
  59. so.write("site");
  60. // ]]>
  61. </script>
  62. </body>
  63. </html>
  64. <%
  65. end if
  66.  
  67. if dV = "main" then
  68. Set rs = db.execute("Select * from t_genel where id = 1")
  69. if Not rs.EOF then
  70. %>
  71. <main>
  72. <settings>
  73. <urlTitleSeparator>-</urlTitleSeparator>
  74. <templateMaxWidth>224</templateMaxWidth>
  75. <templateMaxHeight>300</templateMaxHeight>
  76. <logoAddress><%=("icerik/dosya/"&rs("logoadres"))%></logoAddress>
  77. <correctLogoXPos><%=rs("logopozx")%></correctLogoXPos>
  78. <correctLogoYPos><%=rs("logopozy")%></correctLogoYPos>
  79. <menuPosition><%=rs("menupoz")%></menuPosition>
  80. <correctMenuXpos><%=rs("menupozx")%></correctMenuXpos>
  81. <correctMenuYPos><%=rs("menupozy")%></correctMenuYPos>
  82. <displayTopGraphic><%=rs("uresim")%></displayTopGraphic>
  83. <displayBottomGraphic><%=rs("aresim")%></displayBottomGraphic>
  84. <displayModuleBehindGraphic><%=rs("modularkaresim")%></displayModuleBehindGraphic>
  85. <displayModuleTitleGraphic><%=rs("modulbaslikresim")%></displayModuleTitleGraphic>
  86. <enableFullScreenButton><%=rs("tamekran")%></enableFullScreenButton>
  87. <backgroundSlideShowXmlFile>default.asp?sy=arkaplan</backgroundSlideShowXmlFile>
  88. <copyrightTitle>
  89. <![CDATA[<%=rs("copymesaj")%> <a href="<%=rs("copylink")%>"> <%=rs("copylinkad")%></a> ]]>
  90. </copyrightTitle>
  91. <copyrightLeftMinSpace>50</copyrightLeftMinSpace>
  92. <copyrightRightMinSpace>50</copyrightRightMinSpace>
  93. <mp3PlayerSwf>mp3player.swf</mp3PlayerSwf>
  94. <mp3PlayerXml>default.asp?sy=muzik</mp3PlayerXml>
  95. <mp3PlayerAdjustXPos>0</mp3PlayerAdjustXPos>
  96. <mp3PlayerAdjustYPos>10</mp3PlayerAdjustYPos>
  97. <moduleXPosition><%=rs("modulpoz")%></moduleXPosition>
  98. <moduleAdjustXPosition><%=rs("modulpozx")%></moduleAdjustXPosition>
  99. <moduleShowAnimationTime>.<%=rs("modulhizgiris")%></moduleShowAnimationTime>
  100. <moduleShowAnimationType><%=rs("modulanigiris")%></moduleShowAnimationType>
  101. <moduleHideAnimationTime>.<%=rs("modulhizcikis")%></moduleHideAnimationTime>
  102. <moduleHideAnimationType><%=rs("modulanicikis")%></moduleHideAnimationType>
  103. <toggleTooltip><%=rs("tooltip")%></toggleTooltip>
  104. <tooltipXCorrect><%=rs("tooltipx")%></tooltipXCorrect>
  105. <tooltipYCorrect><%=rs("tooltipy")%></tooltipYCorrect>
  106. <fsButtonOpenCaption><%=rs("tamekrangoster")%></fsButtonOpenCaption>
  107. <fsButtonCloseCaption><%=rs("tamekrangizle")%></fsButtonCloseCaption>
  108. <mainMenuMovingBgAnimationTime>0.<%=rs("menuarkahiz")%></mainMenuMovingBgAnimationTime>
  109. <mainMenuMovingBgAnimationType>easeOutQuart</mainMenuMovingBgAnimationType>
  110. </settings>
  111.  
  112. <mainMenu>
  113. <settings>
  114. <firstLevelButtonWidth><%=rs("menubutongenislik")%></firstLevelButtonWidth>
  115. <firstLevelButtonHeight><%=rs("menubutonyukseklik")%></firstLevelButtonHeight>
  116. <secondLevelButtonWidth>0</secondLevelButtonWidth>
  117. <secondLevelButtonHeight>6</secondLevelButtonHeight>
  118. <subMenuXDistance>0</subMenuXDistance>
  119. <subMenuYDistance>35</subMenuYDistance>
  120. <subMenuAddedWidth>20</subMenuAddedWidth>
  121. <subMenuMaxHeight>150</subMenuMaxHeight>
  122. <subMenuOpenAnimTime>0.5</subMenuOpenAnimTime>
  123. <subMenuOpenAnimType>easeoutexpo</subMenuOpenAnimType>
  124. <scrollerAccelerationMultiplier>5</scrollerAccelerationMultiplier>
  125. </settings>
  126.  
  127. <content><%
  128. Set rs3 = db.execute("Select * from t_as_genel where id = 1")
  129. if Not rs3.EOF then
  130. Response.Write("<button title="""&rs3("d15")&""" swfData=""anasayfa.swf?xml=default.asp%3Fsy%3Dhomepage"" urlTitle="""&rs3("d15")&""" url=""/"&baslik(rs3("d15"))&"/"" externalLink=""0"" hiddenModule=""0"" toggleSubMenu=""0"" type=""""><subMenu></subMenu></button>")
  131. end if
  132. rs3.Close
  133. Set rs3 = Nothing
  134.  
  135. Set rs3 = db.execute("Select * from t_hakkimizda where id = 1")
  136. if Not rs3.EOF then
  137. Response.Write("<button title="""&rs3("baslik")&""" swfData=""about.swf?xml=default.asp%3Fsy%3Dabout"" urlTitle="""&rs3("baslik")&""" url=""/"&baslik(rs3("baslik"))&"/"" externalLink=""0"" hiddenModule=""0"" toggleSubMenu=""0"" type=""""><subMenu></subMenu></button>")
  138. end if
  139. rs3.Close
  140. Set rs3 = Nothing
  141.  
  142. Set rs3 = db.execute("Select * from t_p_genel where id = 1")
  143. if Not rs3.EOF then
  144. Response.Write("<button title="""&rs3("pbaslik")&""" swfData=""gallery.swf?xml=default.asp%3Fsy%3Ddt1"" urlTitle="""&rs3("pbaslik")&""" url=""/"&baslik(rs3("pbaslik"))&"/"" externalLink=""0"" hiddenModule=""0"" toggleSubMenu=""0"" type=""""><subMenu></subMenu></button>")
  145. Response.Write("<button title="""&rs3("vbaslik")&""" swfData=""gallery.swf?xml=default.asp%3Fsy%3Ddt2"" urlTitle="""&rs3("vbaslik")&""" url=""/"&baslik(rs3("vbaslik"))&"/"" externalLink=""0"" hiddenModule=""0"" toggleSubMenu=""0"" type=""""><subMenu></subMenu></button>")
  146. end if
  147. rs3.Close
  148. Set rs3 = Nothing
  149.  
  150. %><button title="Hidden Links" swfData="" urlTitle="Hidden Links" url="" hiddenModule="1" toggleSubMenu="1" type=""><subMenu></subMenu></button><%
  151.  
  152. Set rs3 = db.execute("Select * from t_iletisim where id = 1")
  153. if Not rs3.EOF then
  154. Response.Write("<button title="""&rs3("baslik")&""" swfData=""contact.swf?xml=default.asp%3Fsy%3Diletisim"" urlTitle="""&rs3("baslik")&""" url=""/"&baslik(rs3("baslik"))&"/"" externalLink=""0"" hiddenModule=""0"" toggleSubMenu=""0"" type=""""><subMenu></subMenu></button>")
  155. end if
  156. rs3.Close
  157. Set rs3 = Nothing
  158. %>
  159. </content>
  160. </mainMenu>
  161.  
  162. <shoppingCart>
  163. <settings>
  164. <moduleWidth>0</moduleWidth>
  165. <moduleHeight>0</moduleHeight>
  166. </settings>
  167. </shoppingCart>
  168.  
  169. <shareOptions>
  170. <settings>
  171. <enabled>1</enabled>
  172. <correctPosX>30</correctPosX>
  173. <correctPosY>2</correctPosY>
  174. <bigButtonsWidth>25</bigButtonsWidth>
  175. <bigButtonsHeight>28</bigButtonsHeight>
  176. <spaceBetweenBigButtons>5</spaceBetweenBigButtons>
  177. <toggleTooltip>1</toggleTooltip>
  178. <tooltipXCorrect>13</tooltipXCorrect>
  179. <tooltipYCorrect>10</tooltipYCorrect>
  180. <correctSmallListXPos>0</correctSmallListXPos>
  181. <correctSmallListYPos>3</correctSmallListYPos>
  182. <smallListWidth>195</smallListWidth>
  183. <animationTimeForSmallList>0.5</animationTimeForSmallList>
  184. <animationTypeForSmallList>easeoutexpo</animationTypeForSmallList>
  185. <animationTimeCloseForSmallList>0.5</animationTimeCloseForSmallList>
  186. <animationTypeCloseForSmallList>easeinexpo</animationTypeCloseForSmallList>
  187. <smallButtonsWidth>16</smallButtonsWidth>
  188. <smallButtonsHeight>16</smallButtonsHeight>
  189. <spaceBetweenSmallButtons>6</spaceBetweenSmallButtons>
  190. <scrollerAccelerationMultiplierForSmallList>2</scrollerAccelerationMultiplierForSmallList>
  191. </settings>
  192.  
  193. <contentBigButtons><%
  194. Set rs2 = db.execute("Select * from t_sosyal where gg = true order by sira asc")
  195. do while not rs2.EOF
  196. Response.Write("<item url="""&rs2("adres")&""" target="""&rs2("adrestur")&""" src=""./icerik/sosyal/"&rs2("resim")&"""><![CDATA["&rs2("ad")&"]]></item>")
  197. rs2.Movenext
  198. Loop
  199. rs2.Close
  200. Set rs2 = Nothing
  201. %></contentBigButtons>
  202. </shareOptions>
  203.  
  204. </main>
  205. <%
  206. end if
  207. rs.Close
  208. Set rs = Nothing
  209. end if
  210.  
  211. if dV = "muzik" then
  212. Set rs = db.execute("Select * from t_muzik where id = 1")
  213. if Not rs.EOF then
  214. %>
  215. <mp3player>
  216. <settings>
  217. <playlistWidth><%=rs("d02")%></playlistWidth>
  218. <playlistHeight><%=rs("d03")%></playlistHeight>
  219. <autoPlay><%=rs("d04")%></autoPlay>
  220. <onCompleteJumpToNext><%=rs("d05")%></onCompleteJumpToNext>
  221. <shuffleSongs><%=rs("d06")%></shuffleSongs>
  222. <initialVolume><%=rs("d07")%></initialVolume>
  223. <bufferTime><%=rs("d08")%></bufferTime>
  224. <showPlayerEnlargedAtLoad>0</showPlayerEnlargedAtLoad>
  225. <showPlaylistEnlargedAtLoad>0</showPlaylistEnlargedAtLoad>
  226. <scrollerAccelerationMultiplier><%=rs("d10")%></scrollerAccelerationMultiplier>
  227. <playlistTitleCaption><%=rs("d09")%></playlistTitleCaption>
  228. <shuffleOnCaption><%=rs("d11")%></shuffleOnCaption>
  229. <shuffleOffCaption><%=rs("d12")%></shuffleOffCaption>
  230. <repeatOnCaption><%=rs("d13")%></repeatOnCaption>
  231. <repeatOffCaption><%=rs("d14")%></repeatOffCaption>
  232. <closePlayerCaption><%=rs("d15")%></closePlayerCaption>
  233. <openPlayerCaption><%=rs("d16")%></openPlayerCaption>
  234. <infoCaption><%=rs("d17")%></infoCaption>
  235. <nextSongCaption><%=rs("d18")%></nextSongCaption>
  236. <prevSongCaption><%=rs("d19")%></prevSongCaption>
  237. <setVolumeCaption><%=rs("d20")%></setVolumeCaption>
  238. <setVolumePer>%</setVolumePer>
  239. <muteCaption><%=rs("d21")%></muteCaption>
  240. <unmuteCaption><%=rs("d22")%></unmuteCaption>
  241. <playSongCaption><%=rs("d23")%></playSongCaption>
  242. <pauseSongCaption><%=rs("d24")%></pauseSongCaption>
  243. <closePlaylistCaption><%=rs("d25")%></closePlaylistCaption>
  244. <openPlaylistCaption><%=rs("d26")%></openPlaylistCaption>
  245. <seekToCaption><%=rs("d27")%></seekToCaption><%
  246. Set rs2 = db.execute("Select * from t_mliste where gg = true order by sira asc")
  247. if rs2.EOF then
  248. Response.Write("<togglePlayer>0</togglePlayer>")
  249. else
  250. Response.Write("<togglePlayer>"&rs("d01")&"</togglePlayer>")
  251. end if
  252. Response.Write("</settings><playlist>")
  253. do while not rs2.EOF
  254. Response.Write("<song><url>./icerik/mk/"&rs2("d03")&"</url><songname>"&rs2("d02")&"</songname><artist>"&rs2("d01")&"</artist></song>")
  255. rs2.Movenext
  256. Loop
  257. rs2.Close
  258. Set rs2 = Nothing
  259. %></playlist>
  260.  
  261. </mp3player>
  262. <%
  263. end if
  264. rs.Close
  265. Set rs = Nothing
  266. end if
  267.  
  268. if dV = "about" then
  269. Set rs = db.execute("Select * from t_hakkimizda where id = 1")
  270. if Not rs.EOF then
  271. %>
  272. <homepage>
  273. <settings>
  274. <moduleWidth><%=rs("genislik")%></moduleWidth>
  275. <moduleHeight><%=rs("yukseklik")%></moduleHeight>
  276. <moduleMainTitle><%=TRkrk(rs("baslik"))%></moduleMainTitle>
  277. </settings>
  278. <content>
  279. <![CDATA[<%=TRkrk(rs("mesaj"))%>]]>
  280. </content>
  281. </homepage>
  282. <%
  283. end if
  284. rs.Close
  285. Set rs = Nothing
  286. end if
  287.  
  288. if dV = "iletisim" then
  289. Set rs = db.execute("Select * from t_iletisim where id = 1")
  290. if Not rs.EOF then
  291. %>
  292. <contact>
  293. <settings>
  294. <moduleWidth><%=rs("genislik")%></moduleWidth>
  295. <moduleHeight><%=rs("yukseklik")%></moduleHeight>
  296. <moduleMainTitle><%=rs("baslik")%></moduleMainTitle>
  297. <contactNameCaption><%=rs("d01")%></contactNameCaption>
  298. <contactEmailCaption><%=rs("d02")%></contactEmailCaption>
  299. <contactSubjectCaption><%=rs("d03")%></contactSubjectCaption>
  300. <contactMessageCaption><%=rs("d04")%></contactMessageCaption>
  301. <contactSendButtonCaption><%=rs("d05")%></contactSendButtonCaption>
  302. <attachButtonCaption>Dosya Ekle</attachButtonCaption>
  303. <attachButtonBrowsingCaption>Dosya Seç...</attachButtonBrowsingCaption>
  304. <enableAttachFileButton>0</enableAttachFileButton>
  305. <toggleContactNameRequired><%=rs("d14")%></toggleContactNameRequired>
  306. <toggleContactMessageRequired><%=rs("d15")%></toggleContactMessageRequired>
  307. <toggleSubjectRequired><%=rs("d16")%></toggleSubjectRequired>
  308. <sendingMessageText><%=rs("d06")%></sendingMessageText>
  309. <succesText><%=rs("d07")%></succesText>
  310. <failText><%=rs("d08")%></failText>
  311. <wrongNameText><%=rs("d09")%></wrongNameText>
  312. <wrongEmailText><%=rs("d10")%>.</wrongEmailText>
  313. <wrongSubjectText><%=rs("d11")%></wrongSubjectText>
  314. <wrongMessageText><%=rs("d12")%></wrongMessageText>
  315. <script>default.asp?sy=gmesaj</script>
  316. <uploadScript></uploadScript>
  317. <allowedExtensionsForUpload>doc|pdf|docx|html</allowedExtensionsForUpload>
  318. <descriptionForUploadFileTypes>Kabul Edilen Dosya Uzantylary:</descriptionForUploadFileTypes>
  319. <wrongExtensionAlert>Hataly Dosya Uzantysy. Kabul Edilen Dosya Uzantylar:</wrongExtensionAlert>
  320. <htmlFieldWidth>240</htmlFieldWidth>
  321. </settings>
  322.  
  323. <content>
  324. <![CDATA[<%=rs("d13")%>]]>
  325. </content>
  326.  
  327. <additionalLinks><%
  328. Set rs2 = db.execute("Select * from t_eklink where gg = true order by sira asc")
  329. do while not rs2.EOF
  330. Response.Write("<item title="""&rs2("baslik")&""" url="""&rs2("adres")&"""><![CDATA["&rs2("icerik")&"]]></item>")
  331. rs2.Movenext
  332. Loop
  333. rs2.Close
  334. Set rs2 = Nothing
  335. %></additionalLinks>
  336. </contact>
  337. <%
  338. end if
  339. rs.Close
  340. Set rs = Nothing
  341. end if
  342.  
  343. if dV = "gmesaj" then
  344. Dim gMesaj, gOnay, tdchk1, tdchk2, tchk1, tchk2
  345. gOnay = true
  346. gMesaj = fltr(Request.Form("message"))
  347.  
  348. Set rs = db.execute("Select * from t_mesajlar where ip1 = '"&ip1&"' order by tarih desc")
  349. If Not rs.EOF Then
  350. tdchk1 = Day(rs("tarih"))&"."&Month(rs("tarih"))&"."&Year(rs("tarih"))
  351. tdchk2 = Day(Now)&"."&Month(Now)&"."&Year(Now)
  352. If tdchk1 = tdchk2 Then
  353. tchk1 = Hour(rs("tarih"))*60+Minute(rs("tarih"))+4
  354. tchk2 = Hour(Now)*60+Minute(Now)
  355. If tchk1 < tchk2 Then
  356. gOnay = true
  357. Else
  358. gOnay = false
  359. End If
  360. End If
  361. End If
  362.  
  363. if gMesaj = "" then gOnay = false end if
  364.  
  365. if gOnay then
  366. db.execute("Insert into t_mesajlar(d01,d02,d03,d04,tarih,ip1,ip2) values('"&fltr(Request.Form("name"))&"','"&fltr(Request.Form("email"))&"','"&fltr(Request.Form("subject"))&"','"&gMesaj&"','"&DateDMY&"','"&ip1&"','"&ip2&"')")
  367. eposta fPosta,aPosta,aBsl,("<b>&nbsp;&nbsp;&laquo;&nbsp;YENi MESAJ&nbsp;&raquo;</b><br><br><b>Kimden : </b>"&fltr(Request.Form("name"))&"[ "&fltr(Request.Form("email"))&" ]<br><b>Tarih : </b>"&DateDMY&"<br><b>Konu : </b>"&fltr(Request.Form("subject"))&"<br><b>Mesaj : </b><br>"&gMesaj)
  368. Response.Write("status=ok")
  369. end if
  370.  
  371. end if
  372.  
  373. if dV = "dt1" or dV = "dt2" then
  374.  
  375. dim tPS, tPSIO, vTur
  376. if dV = "dt1" then
  377. tPS = true
  378. tPSIO = 1
  379. else
  380. tPS = false
  381. tPSIO = 0
  382. end if
  383.  
  384. 'picture,thumb,music,video,flash,youtube
  385. function tAdr(ms1,ms2,ms3,ms4,ms5,ms6,ms7)
  386. if ms7 = "audio" then
  387. tAdr = Array(("icerik/foto/kucuk/"&ms2),("icerik/muzik/"&ms3),("icerik/foto/buyuk/"&ms1))
  388. elseif ms7 = "image" then
  389. tAdr = Array(("icerik/foto/kucuk/"&ms2),("icerik/foto/buyuk/"&ms1),"")
  390. elseif ms7 = "video" then
  391. tAdr = Array(("icerik/foto/kucuk/"&ms2),("icerik/video/"&ms4),"")
  392. elseif ms7 = "youtube" then
  393. tAdr = Array(("icerik/foto/kucuk/"&ms2),ms6,"")
  394. elseif ms7 = "swf" then
  395. tAdr = Array(("icerik/foto/kucuk/"&ms2),("icerik/flash/"&ms5),"")
  396. end if
  397. end function
  398.  
  399. Set rs = db.execute("Select * from t_p_genel where id = 1")
  400. if Not rs.EOF then
  401. %>
  402. <gallery>
  403. <settings>
  404. <moduleWidth><%=rs("genislik")%></moduleWidth>
  405. <moduleHeight><%=rs("yukseklik")%></moduleHeight>
  406. <moduleMainTitle><%
  407. if tPS then Response.Write(rs("pbaslik")) else Response.Write(rs("vbaslik")) end if
  408. %></moduleMainTitle>
  409. <maxNumberOfButtonsOnTopMenu><%=rs("kategorisayi")%></maxNumberOfButtonsOnTopMenu>
  410. <horizontalSpaceOnTopMenuButtons><%=rs("kategoribosluk")%></horizontalSpaceOnTopMenuButtons>
  411. <topMaskInitializationAnimationTime>2</topMaskInitializationAnimationTime>
  412. <topMaskInitializationAnimationType>easeoutquart</topMaskInitializationAnimationType>
  413. <topMaskAnimationTime>0.5</topMaskAnimationTime>
  414. <topMaskAnimationType>easeoutquart</topMaskAnimationType>
  415. <detailsShowAnimationTime>0.<%=rs("glgirhiz")%></detailsShowAnimationTime>
  416. <detailsShowAnimationType>easeoutquart</detailsShowAnimationType>
  417. <detailsHideAnimationTime>0.<%=rs("glcikhiz")%></detailsHideAnimationTime>
  418. <detailsHideAnimationType>easeoutquart</detailsHideAnimationType>
  419. </settings>
  420. <content><%
  421. Set rs2 = db.execute("Select * from t_kategori where type = "&tPS&" order by sira asc")
  422. do while not rs2.EOF
  423. %>
  424. <item title="<%=rs2("ad")%>" browserUrl="/<%=baslik(rs2("ad"))%>-<%=rs2("sira")%>/" browserTitle="<%=rs2("ad")%>">
  425. <productsDisplay>
  426. <settings>
  427. <thumbWidth><%=rs("miniw")%></thumbWidth>
  428. <thumbHeight><%=rs("minih")%></thumbHeight>
  429. <toggleProportionalResizeOnThumb>1</toggleProportionalResizeOnThumb>
  430. <proportionalResizeType>fit</proportionalResizeType>
  431. <horizontalSpace><%=rs("miniwara")%></horizontalSpace>
  432. <verticalSpace><%=rs("minihara")%></verticalSpace>
  433. <graphWidth>35</graphWidth>
  434. <graphHeight>35</graphHeight>
  435. <videoGraf>IDvideoGraph</videoGraf>
  436. <pictureGraf>IDimageGraph</pictureGraf>
  437. <swfGraf>IDswfGraph</swfGraf>
  438. <audioGraf>IDmusicGraph</audioGraf>
  439. <youtubeGraf>IDvideoGraph</youtubeGraf>
  440. <videoCaption><%=rs("bsvid")%></videoCaption>
  441. <youtubeCaption><%=rs("bsyt")%></youtubeCaption>
  442. <imageCaption><%=rs("bsimg")%></imageCaption>
  443. <audioCaption><%=rs("bsmsc")%></audioCaption>
  444. <swfCaption><%=rs("bsswf")%></swfCaption>
  445. <enableAutoCentering>0</enableAutoCentering>
  446. <horizontalNumberOfItems><%=rs("minihrnr")%></horizontalNumberOfItems>
  447. <verticalNumberOfItems>3</verticalNumberOfItems>
  448. <scrollAnimationTime>0.5</scrollAnimationTime>
  449. <scrollAnimationType>easeoutquart</scrollAnimationType>
  450. <toggleTooltip><%=rs("tooltip")%></toggleTooltip>
  451. <enableTooltipAutoCorrectX>0</enableTooltipAutoCorrectX>
  452. <tooltipXCorrect>30</tooltipXCorrect>
  453. <tooltipYCorrect>10</tooltipYCorrect>
  454. <popupWidth><%=rs("pw")%></popupWidth>
  455. <popupHeight><%=rs("ph")%></popupHeight>
  456. <animationAlpha><%=rs("ptrans")%></animationAlpha>
  457. <animationScale>100</animationScale>
  458. <popupProtectTransparency>90</popupProtectTransparency>
  459. <popupProtectAnimationTime>0.9</popupProtectAnimationTime>
  460. <popupShowAnimationTime>0.<%=rs("pshowhiz")%></popupShowAnimationTime>
  461. <popupShowAnimationType><%=rs("pshowani")%></popupShowAnimationType>
  462. <popupHideAnimationTime>0.<%=rs("phidehiz")%></popupHideAnimationTime>
  463. <popupHideAnimationType><%=rs("phideani")%></popupHideAnimationType>
  464. <popupResizeAnimationTime>0.<%=rs("preshiz")%></popupResizeAnimationTime>
  465. <popupResizeAnimationType><%=rs("presani")%></popupResizeAnimationType>
  466. </settings>
  467.  
  468. <content><%
  469.  
  470. Set rs3 = db.execute("Select * from t_foto where kt = "&rs2("id")&" order by sira asc")
  471. do while not rs3.EOF
  472. vTur = tAdr(rs3("aRes"),rs3("kRes"),rs3("mp3Adr"),rs3("videoAdr"),rs3("swfAdr"),rs3("youAdr"),rs3("tur"))
  473. %>
  474. <item thumb="<%=vTur(0)%>">
  475. <tooltipData><![CDATA[<%=rs3("tooltip")%>]]></tooltipData>
  476. <pupupData title="<%=rs3("ad")%>" browserUrl="/<%=baslik(rs3("ad"))%>-<%=rs3("sira")%>/" browserTitle="<%=rs3("ad")%>">
  477. <image toggleImage="1" imageAddress="<%=vTur(1)%>" audioArtwork="<%=vTur(2)%>" videoTitle="<%=rs3("ad")%>">
  478. <autoResize><%=rs3("d01")%></autoResize>
  479. <fixedSizeWidth><%=rs3("d02")%></fixedSizeWidth>
  480. <fixedSizeHeight><%=rs3("d03")%></fixedSizeHeight>
  481. <resizeMode><%=rs3("d04")%></resizeMode>
  482. <autoplay><%=rs3("d05")%></autoplay>
  483. <repeat><%=rs3("d06")%></repeat>
  484. <initialVolume><%=rs3("d07")%></initialVolume>
  485. <launchUrlOnPress><%=rs3("adres")%></launchUrlOnPress>
  486. <targetUrlOnPress><% if rs3("adres") <> "" then Response.Write(rs3("adrestur")) end if %></targetUrlOnPress>
  487. </image>
  488. <description toggleDescription="<%=rs3("ackgg")%>" descriptionWidth="<%=rs3("ackgns")%>"><![CDATA[<%=rs3("ack")%>]]></description>
  489. </pupupData>
  490. </item>
  491. <%
  492. rs3.Movenext
  493. Loop
  494. rs3.Close
  495. Set rs3 = Nothing
  496. %>
  497. </content>
  498. </productsDisplay>
  499.  
  500. </item>
  501. <%
  502. rs2.Movenext
  503. Loop
  504. rs2.Close
  505. Set rs2 = Nothing
  506. %>
  507. </content>
  508. </gallery>
  509. <%
  510. end if
  511. end if
  512.  
  513. if dV = "arkaplan" then
  514. Set rs = db.execute("Select * from t_a_genel where id = 1")
  515. if Not rs.EOF then
  516. %>
  517. <backgroundModule>
  518. <settings>
  519. <animationTime><%=rs("d02")%></animationTime>
  520. <animationType><%=rs("d03")%></animationType>
  521. <random><%=rs("d04")%></random>
  522. <resizeMode><%=rs("d05")%></resizeMode>
  523. <imageFinalAlphaValue><%=rs("d06")%></imageFinalAlphaValue>
  524. <activateSlideshow><%=rs("d07")%></activateSlideshow>
  525. <slideShowTimer><%=rs("d08")%></slideShowTimer>
  526.  
  527. <%
  528. Set rs2 = db.execute("Select * from t_arkaplan where gg = true order by sira asc")
  529. if rs2.EOF then
  530. Response.Write("<activateDynamicBackground>0</activateDynamicBackground>")
  531. else
  532. Response.Write("<activateDynamicBackground>"&rs("d01")&"</activateDynamicBackground>")
  533. end if
  534. Response.Write("</settings><content>")
  535. do while not rs2.EOF
  536. Response.Write("<item src="""&fDizin(rs2("ads"))&""&rs2("adr")&"""></item>")
  537. rs2.Movenext
  538. Loop
  539. rs2.Close
  540. Set rs2 = Nothing
  541. %></content>
  542. </backgroundModule>
  543. <%
  544. end if
  545. rs.Close
  546. Set rs = Nothing
  547. end if
  548.  
  549. if dV = "homepage" then
  550. Set rs = db.execute("Select * from t_as_genel where id = 1")
  551. if Not rs.EOF then
  552. %>
  553. <homepage>
  554. <settings>
  555. <moduleWidth><%=(rs("d03")+55)%></moduleWidth>
  556. <moduleHeight><%
  557. Dim aAs, sGG
  558. aAs = Array(0,0)
  559.  
  560. Set rs2 = db.execute("Select count(*) as sayac from t_anasayfa where gg = true")
  561. if (NOT rs2.EOF) and rs2("sayac") < 2 then
  562. sGG = 0
  563. else
  564. if rs("d13") = 0 then
  565. sGG = 0
  566. else
  567. sGG = 1
  568. end if
  569. end if
  570. rs2.Close
  571. Set rs2 = Nothing
  572.  
  573. if rs("d02") = "" then aAs(0) = 75 end if
  574. if sGG = 0 then aAs(1) = 15 end if
  575. Response.Write(rs("d04")+45-aAs(0)-aAs(1)) %></moduleHeight>
  576. <moduleMainTitle><%=rs("d02")%></moduleMainTitle>
  577. </settings>
  578. <content>
  579. <scrollerBox>
  580. <settings>
  581. <thumbWidth><%=rs("d03")%></thumbWidth>
  582. <thumbHeight><%=rs("d04")%></thumbHeight>
  583. <horizontalSpace><%=rs("d05")%></horizontalSpace>
  584. <toggleProportionalResizeOnThumb><%=rs("d06")%></toggleProportionalResizeOnThumb>
  585. <proportionalResizeType><%=rs("d07")%></proportionalResizeType>
  586. <activateSlideshow><%=rs("d08")%></activateSlideshow>
  587. <anaAnimasyon><%=rs("d09")%></anaAnimasyon>
  588. <anaSure><%=rs("d10")%></anaSure>
  589. <gecisSure>0.<%=rs("d11")%></gecisSure>
  590. <icerikAlpha><%=rs("d12")%></icerikAlpha>
  591. <scrollGG><%=sGG%></scrollGG>
  592. <scrollAlpha><%=rs("d14")%></scrollAlpha>
  593. <%
  594. Set rs2 = db.execute("Select * from t_anasayfa where gg = true order by sira asc")
  595. if rs2.EOF then
  596. Response.Write("<enableAnasayfa>0</enableAnasayfa>")
  597. else
  598. Response.Write("<enableAnasayfa>"&rs("d01")&"</enableAnasayfa>")
  599. end if
  600. Response.Write("</settings><content>")
  601. do while not rs2.EOF
  602. Response.Write("<item src="""&fDizin(rs2("ads"))&""&rs2("adr")&""" url="""&rs2("url")&""" target="""&rs2("target")&"""></item>")
  603. rs2.Movenext
  604. Loop
  605. rs2.Close
  606. Set rs2 = Nothing
  607. %></content>
  608. </scrollerBox>
  609. </content>
  610. </homepage><%
  611. end if
  612. rs.Close
  613. Set rs = Nothing
  614. end if
  615.  
  616. db.Close
  617. Set db = Nothing
  618. %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!