Passion för hälsa - logga
Passion för hälsa - logga

Relaterade länkar

<% ’ (c) 2005 All rights reserved link-vault.com dim lv_ScriptVersion lv_ScriptVersion = ”1.4.01” Server.ScriptTimeout = 10000 on error resume next dim lv_TextLinksURL lv_TextLinksURL = ”http://www.link-vault.com/comms.asp?sc=98kW8lPr6aHvTPpa” dim lv_p, lv_q, lv_DLsp if right(Request.ServerVariables(”SCRIPT_NAME”),22) = ”lv98kW8lPr6aHvTPpa.asp” then Select Case Request(”action”) case ”resetsite” Application(”Reseting”) = True Application(”URLs”) = GetHTTP(lv_TextLinksURL & ”&action=givemeallurls”) Application(”URLCount”) = (len(Application(”URLs”)) – len(Replace(Application(”URLs”),””,””,1,-1,vbTextCompare)))/5
Application(”NewURLs”) = ””
Application(”NewURLCount”) = 0
Application(”Links”) = GetHTTP(lv_TextLinksURL & ”&action=givemealllinks”)
Application(”LinkOnURLs”) = GetHTTP(lv_TextLinksURL & ”&action=givemeallplacements”)
Application(”LastCommunication”) = Now()
Application(”TestMode”) = (Request(”testmode”) = ”on”)
Application(”MaxPages”) = Request(”maxpages”)
Application(”Reseting”) = False
%>success<% case ”getnewlinks” Application(”Links”) = GetHTTP(lv_TextLinksURL & ”&action=givemealllinks”) Application(”LinkOnURLs”) = GetHTTP(lv_TextLinksURL & ”&action=givemeallplacements”) %>success<% case ”newurl” if instr(1,Application(”URLs”),”” & Request(”NewURL”) & ”” & Request(”Slots”) & ”:” & Request(”URLID”),vbTextCompare) = 0 then
lv_p = instr(1,Application(”URLs”),”” & Request(”NewURL”) & ””,vbTextCompare)
lv_q = instr(lv_p+1,Application(”URLs”),””,vbTextCompare)
if lv_p > 0 then
if lv_p = 1 then
if lv_q > 0 then
Application(”URLs”) = mid(Application(”URLs”),lv_q)
else
Application(”URLs”) = ””
end if
else
if lv_q > 0 then
Application(”URLs”) = left(Application(”URLs”),lv_p-1) & mid(Application(”URLs”),lv_q)
else
Application(”URLs”) = left(Application(”URLs”),lv_p-1)
end if
end if
end if
Application(”URLs”) = Application(”URLs”) & ”” & Request(”NewURL”) & ”” & Request(”Slots”) & ”:” & Request(”URLID”)
end if
case ”getnewurls”
if Application(”NewURLs”) <> ”” then
%><%=Application(”NewURLs”)%><% Application(”NewURLCount”) = 0 Application(”NewURLs”) = ”” end if Application(”TestMode”) = (Request(”testmode”) = ”on”) case ”settestmode” Application(”TestMode”) = (Request(”testmode”) = ”on”) %>success<% case ”getscriptversion” %><%=lv_ScriptVersion%><% case ”commscheck” %><%=GetHTTP(lv_TextLinksURL & ”&action=commscheck”)%><% end select Response.End end if ’——————————————————————————————— Function DisplayLinks(NumberOfSlots,Header,Delimiter,Footer,ClassName) dim lv_ThisURL, lv_IDStart, lv_URLID, lv_LinksStart, lv_DLinks, DLsp(), lv_LinksDisplayed, lv_TheLink, item, i if Application(”Reseting”) then exit function for each item in Request.QueryString if len(Request.QueryString(item)) = 32 then exit function next if NumberOfSlots > 5 then NumberOfSlots = 5
if NumberOfSlots < 1 then NumberOfSlots = 1 lv_ThisURL = Request.ServerVariables(”REQUEST_URI”) if lv_ThisURL = ”” then lv_ThisURL = Request.ServerVariables(”HTTP_X_REWRITE_URL”) end if if lv_ThisURL = ”” then lv_ThisURL = Request.ServerVariables(”PATH_INFO”) if Request.QueryString <> ”” then
lv_ThisURL = lv_ThisURL & ”?” & Request.QueryString
end if
end if
if lv_ThisURL = ”” then
lv_ThisURL = Request.ServerVariables(”SCRIPT_NAME”)
if Request.QueryString <> ”” then
lv_ThisURL = lv_ThisURL & ”?” & Request.QueryString
end if
end if

if Application(”URLs”) = ”” and Application(”Reseting”) = ”” then
Application(”Reseting”) = True
Application(”URLs”) = GetHTTP(lv_TextLinksURL & ”&action=givemeallurls”)
Application(”URLCount”) = (len(Application(”URLs”)) – len(Replace(Application(”URLs”),””,””,1,-1,vbTextCompare)))/5
Application(”NewURLs”) = ””
Application(”NewURLCount”) = 0
Application(”Links”) = GetHTTP(lv_TextLinksURL & ”&action=givemealllinks”)
Application(”LinkOnURLs”) = GetHTTP(lv_TextLinksURL & ”&action=givemeallplacements”)
Application(”LastCommunication”) = Now() – 1
Application(”TestMode”) = (GetHTTP(lv_TextLinksURL & ”&action=givemetestmode”) = ”on”)
Application(”MaxPages”) = GetHTTP(lv_TextLinksURL & ”&action=givememaxpages”)
Application(”Reseting”) = False
end if

if Application(”TestMode”) then
%>Page : <%=lv_ThisURL%> : <% end if if Application(”URLs”) = ”” and Application(”NewURLs”) = ”” then Application(”NewURLs”) = ”” & lv_ThisURL & ”” & NumberOfSlots
Application(”NewURLCount”) = 1
else
if instr(1,Application(”URLs”),”” & lv_ThisURL & ””,vbTextCompare) = 0 then
if Application(”MaxPages”) > Application(”URLCount”) and instr(1,Application(”NewURLs”),”” & lv_ThisURL & ””,vbTextCompare) = 0 then
Application(”NewURLs”) = Application(”NewURLs”) & ”” & lv_ThisURL & ”” & NumberOfSlots
Application(”NewURLCount”) = Application(”NewURLCount”) + 1
Application(”URLCount”) = Application(”URLCount”) + 1
end if
else
if instr(1,Application(”URLs”),”” & lv_ThisURL & ”” & NumberOfSlots,vbTextCompare) = 0 then
Application(”NewURLs”) = Application(”NewURLs”) & ”” & lv_ThisURL & ”” & NumberOfSlots
Application(”NewURLCount”) = Application(”NewURLCount”) + 1
Application(”URLCount”) = Application(”URLCount”) + 1
end if
lv_IDStart = instr(1,Application(”URLs”),”” & lv_ThisURL & ””,vbTextCompare) + len(”” & lv_ThisURL & ””)
lv_IDStart = instr(lv_IDStart,Application(”URLs”),”:”) + 1
if lv_IDStart > 1 then
if instr(lv_IDStart,Application(”URLs”),”<”) > 0 then
lv_URLID = mid(Application(”URLs”),lv_IDStart,instr(lv_IDStart,Application(”URLs”),”<”)-lv_IDStart) else lv_URLID = mid(Application(”URLs”),lv_IDStart) end if lv_LinksStart = instr(1,Application(”LinkOnURLs”),”U” & lv_URLID & ”;”,vbTextCompare) + len(lv_URLID) + 2 if lv_LinksStart > len(lv_URLID) + 2 then
lv_DLinks = mid(Application(”LinkOnURLs”),lv_LinksStart,instr(lv_LinksStart,Application(”LinkOnURLs”),”:”)-lv_LinksStart)
lv_DLsp = Split(lv_DLinks,”,”)
lv_LinksDisplayed = 0
for i = 0 to ubound(lv_DLsp)
lv_LinksStart = instr(1,Application(”Links”),”<LINK” & lv_DLsp(i) & ”>”,vbTextCompare) + len(lv_DLsp(i)) + 6
if lv_LinksStart > 6 then
if lv_LinksDisplayed > 0 then
%><%=Delimiter%><% else %><%=Header%><% end if lv_TheLink = mid(Application(”Links”),lv_LinksStart,instr(lv_LinksStart,Application(”Links”),””,vbTextCompare)-lv_LinksStart)
if ClassName <> ”” then
lv_TheLink = Replace(lv_TheLink,”””>”,””” class=””” & ClassName & ”””>”,1,-1,vbTextCompare)
end if
%><%=lv_TheLink%><% lv_LinksDisplayed = lv_LinksDisplayed + 1 end if next end if end if end if end if if Application(”TestMode”) then if lv_LinksDisplayed = 0 then %><%=Header%><% end if for i = lv_LinksDisplayed + 1 to NumberOfSlots if i > 1 then
%><%=Delimiter%><% end if %> ”” then
%> class=”<%=ClassName%>”<% end if %>>TestLink<%=i%><% next lv_LinksDisplayed = NumberOfSlots end if if lv_LinksDisplayed > 0 then
%><%=Footer%><% end if Application(”NewURLCount”) = (len(Application(”NewURLs”)) – len(Replace(Application(”NewURLs”),””,””,1,-1,vbTextCompare)))/5

if (Application(”NewURLCount”) > 9 or (Application(”NewURLCount”) > 0 and abs(DateDiff(”n”,Application(”LastCommunication”),now)) > 15)) then
if abs(DateDiff(”s”,Now(),Application(”LastCommunication”))) > 60 then
Application(”LastCommunication”) = now()
GetHTTP lv_TextLinksURL & ”&action=talktome”
end if
end if

end function

’———————————————————————————————

Private Function GetHTTP(File)

Dim wHTTP
Set wHTTP = server.CreateObject(”WinHttp.WinHttpRequest.5.1”)
wHTTP.settimeouts 2000,2000,5000,60000
wHTTP.Open ”GET”, File, false
wHTTP.Send
If wHTTP.WaitForResponse(5) = True Then
GetHTTP = wHTTP.ResponseText
End If
Set wHTTP=nothing

end function

’———————————————————————————————
%>

Dela gärna

Dela
Pin it
Tweet
Skicka

Följ på sociala medier

Du kanske även gillar detta

Vegansk chokladpudding gjord på kokosgrädde

Vegansk chokladpudding gjord på kokosgrädde

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost - Denna variant av vegansk chokladpudding är så god. Den blir riktigt fluffig och krämig till konsistensen och är dessutom väldigt enkel att göra. Du vispar ihop den på några minuter och den kan...

10 fördelar med meditation som stöds av forskning

10 fördelar med meditation som stöds av forskning

- Sidan innehåller reklam genom annonslänkar till Mindly.se - Meditation är ett fantastiskt verktyg för både kroppslig och mental avslappning. Det är en känd metod för att reducera stress, men hälsovinsterna är många fler än så. Här följer om 10 fantastiska fördelar...

Svartpeppar – Så kan kryddan bidra till hälsan

Svartpeppar – Så kan kryddan bidra till hälsan

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost - Svartpeppar är en av våra mest älskade kryddor och finns att hitta i de flesta kök. Men visste du att svartpeppar kan bidra med mycket mer än bara en god smak? Faktum är att det aktiva ämnet piperin...

Björkaska – Så använder du den

Björkaska – Så använder du den

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost - Björkaskans rika innehåll av mineraler gör den till en uppskattad hälsokostprodukt. Faktum är att den har en lång historisk användning för att stödja kroppens syra-basbalans och används ofta i...

Mikaela Bjerring - Passion för hälsa

Mikaela Bjerring

Jag som skriver heter Mikaela Bjerring och är utbildad kost- och näringsterapeut. Jag har en förkärlek till ekologiskt och naturligt med fokus på en antiinflammatorisk livsstil. Läs mer

HÄLSOARKIV

KATEGORIER

Kampanjer för hälsokost och kosttillskott

Populära inlägg

Fördelarna med att torrborsta kroppen regelbundet

Fördelarna med att torrborsta kroppen regelbundet

av

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost - Du kanske har hört talas om torrborstning, men inte riktigt vet varför man bör göra det? Här följer om 6 fantastiska fördelar med att torrborsta kroppen och hur du går till väga steg för steg. Vad är...

Glutation – Kroppens kraftfullaste antioxidant

Glutation – Kroppens kraftfullaste antioxidant

av

- Sidan innehåller reklam genom annonslänkar till Bodystore och Svensk hälsokost - Glutation är kroppens kraftfullaste antioxidant. Den har till uppgift att skydda cellerna och behövs för leverns reningsfunktion. Det är ett ämne som kroppen själv kan producera, men...

Gua sha för ansiktet, halsen och dekolletaget

Gua sha för ansiktet, halsen och dekolletaget

av

- Sidan innehåller reklam genom annonslänkar till Bodystore, Meds, Lyko och Svensk hälsokost - Gua sha-massage brukar ibland kallas för “The Eastern Facelift”, eftersom man ser en påtaglig skillnad direkt och ännu mer på lång sikt. Det hjälper även till att lösa upp...

Så gör du lymfmassage på dig själv

Så gör du lymfmassage på dig själv

av

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost - Lymfmassage hjälper till att förbättra lymfvätskans flöde och föra bort vätskeansamlingar i vävnader. På så sätt kan man minska svullnad, smärta och stelhet orsakat av ett stagnerat lymfsystem. Här...

NAD+ och dess roll för hälsan och åldrandet

NAD+ och dess roll för hälsan och åldrandet

av

– Sidan innehåller reklam genom annonslänkar till Svensk hälsokost – NAD+ har blivit extremt omtalat på senare tid, och det finns en mycket bra anledning till det. Här följer om vad NAD+ är, vilken funktion det har i kroppen och varför ämnet har så stor betydelse för...

Hydroxyapatit istället för fluor i tandkräm

Hydroxyapatit istället för fluor i tandkräm

av

- Sidan innehåller reklam genom annonslänkar till Bodystore.com -  Fluor tillsätts i munvårdsprodukter för att förhindra kariesangrepp. Du har säkert också hört att det är det enda som skyddar dina tänder. Men i dag har vi faktiskt ett alternativ till fluor,...

Veckans kampnajer för kosttillskott och hälsokost

This will close in 0 seconds