|
 |
Adresar |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
------------------ |
|
|
|
 |
------------------
|
| |
------------------ |
|
------------------ |
|
|
Naslovnica |
<%@ Language=VBScript %>
<%
' Local file to store XML
' You must create a blank file named "local_425528.xml" in the same
' directory as this script. It MUST be writable by the web
' server. On unix you would CHMOD 666 the file. On Windows
' you will need to access your custom control panel to set
' the permissions or contact your hosting company.
Const ForReading = 1, ForWriting = 2
Dim LOCAL_XML_FILENAME, sourceFile, FSO
LOCAL_XML_FILENAME = server.MapPath("local_425528.xml")
sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=A8AERB4ZDAY815ZIBK7D&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT"))
Set FSO = server.createObject("Scripting.FileSystemObject")
' update local XML
Dim DateMod, MonthString, DayString, DateModFile, DateModLimit
DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified
MonthString = Month(DateMod)
If (MonthString < 10) Then
MonthString = "0" & MonthString
End If
DayString = Day(DateMod)
If (DayString < 10) Then
DayString = "0" & DayString
End If
DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod)
MonthString = Month(Date)
If (MonthString < 10) Then
MonthString = "0" & MonthString
End If
DayString = Day(Date)
If (DayString < 10) Then
DayString = "0" & DayString
End If
DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now)
Dim Contents, Result, xmlhttp, TextStream
' read local XML
Contents = ""
Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -1)
Do While Not TextStream.AtEndOfStream
Contents = Contents & TextStream.ReadLine
Loop
TextStream.Close
Set TextStream = nothing
If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then
' fetch remote XML
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", sourceFile, False
xmlhttp.send ""
Result = xmlhttp.responseText
If (Result <> "") Then
Contents = Result
End If
' write new XML to local file
Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True,-1)
TextStream.Write Contents
TextStream.Close
Set TextStream = nothing
End If
' parse local XML
Dim source
Set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadXML(Contents)
' Output links
Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText
Set objLst = source.getElementsByTagName("Link")
numLinks = objLst.length
If numLinks > 0 Then
Response.Write(" ")
For i = 0 To numLinks -1
Set objLink = objLst.item(i)
Set objLinkChildren = objLink.childNodes
URL = ""
Text = ""
BeforeText = ""
AfterText = ""
For Each linkNode In objLinkChildren
If linkNode.nodeName = "URL" Then
URL = linkNode.text
End If
If linkNode.nodeName = "Text" Then
Text = linkNode.text
End If
If linkNode.nodeName = "BeforeText" Then
BeforeText = linkNode.text
End If
If linkNode.nodeName = "AfterText" Then
AfterText = linkNode.text
End If
Next
Response.Write("- " & BeforeText & " " & Text & " " & AfterText & "
")
Next
Response.Write(" ")
End If
%>
|
|
|
|
|
|
 |
| |
Što
je dinamična rasvjeta?
Najviše se mladenaca odlučuje za dinamičnu rasvjetu
koja potiče dobro raspoloženje na plesnom podiju.
Takvom rasvjetom cijelu noć upravlja light jockey,
osoba koja svakoj pjesmi daje posebnu svjetlosnu
koreografiju. Opširnije
|
|
 |
|
|
|
|
Najnovija
pitanja |
| |
------------------------------------ |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
| |
-------------------------------------------------------------------- |
| |
|
|
|
|
|
|
| |
Zašto
je potrebna dodatna rasvjeta na vjenčanju?
Izvodjači koje ste angažirali koriste
rasvjetu koja je namjenjena isključivo njima,odnosno
tom djelu prostora gdje se nalaze.
Ali što je sa onim velikim ostatkom prostora
koji je ostao...
Opširnije...
|
|
|
|
| |
| |
|
|
|
| |
Organizacija
na dan vjenčanja..
KOD MLADOŽENJE - Ukrasite ulazna vrata da se
odmah vidi gdje je pir! Stolove aranžirajte sa
niskim cvjetnim aranžmanima kako bi se na fotografijama
i video snimci vidjeli svi gosti za stolom...
Opširnije
|
|
|
|
|
| |
|
| Partneri:
unreal-net.com
kcro-web katalog
linkovi net.
Zadar
barinfo suzynewlife
|
|
| Modern
Ice
Turanj
info PC servis Zadar Rockatansky
band |
|
|
|
