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

Kryddiga rostade kikärtor – ett nyttigare snacks

Kryddiga rostade kikärtor – ett nyttigare snacks

- Sidan innehåller reklam genom annonslänkar till Bodystore.com - Rostade kikärtor är riktigt goda att äta som snacks. De gör sig även mycket bra i en matig sallad och som tillbehör till diverse maträtter. Dessutom är det ett fantastiskt alternativ till krutonger i...

Andas i fyrkant – en lugnande andningsteknik

Andas i fyrkant – en lugnande andningsteknik

- Sidan innehåller reklam genom annonslänkar till Mindly - Att andas i fyrkant, även kallat ”box breathing”, är en enkel andningsteknik för att koppla på det parasympatiska nervsystemet. Det kan hjälpa dig att snabbt komma in i ett lugn som minskar stress, oro och...

Reishi som hälsosvamp och adaptogen

Reishi som hälsosvamp och adaptogen

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost och Upgrit - Reishi är en uppskattad hälsosvamp med en mycket lång historisk användning. Inom traditionell kinesisk medicin har den kommit att bli en symbol för hälsa, livskraft och långt liv. Den...

Kreatin för ökad energi i både muskler och hjärna

Kreatin för ökad energi i både muskler och hjärna

- Sidan innehåller reklam genom annonslänkar till Svensk hälsokost och Weightworld - Kreatin stödjer kroppens energiproduktion och är ett av de mest effektiva kosttillskotten för att förbättra prestationen och öka muskelstyrkan vid träning. Inom forskning har man även...

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 och Meds – NAD+ har blivit extremt omtalat på senare år, 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...

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