<% dim PimpLink, PimpLinkTitle, PimpLinkCopy, PimpLinkURL, PimpLinkURL_sm 'grab the current values call ReadXMLPimpLink("xml\pimplink.xml") %>

?updt=y" method="post"> <% if Request.QueryString("updt") = "y" then %>

The PimpLink has been updated.

<% end if %> The Pimp Link, where you can link out and touch the world!

The Pimp Link (p1mp link is fine, but you can change it)

P1mp Link Title (The link text in bold)

P1mp Link Copy (The text after the bold, the blurb)

P1mp Link URL (Kind of important this bit :])
<% if instr(1,PimpLinkURL," target=") > 0 then 'only want the first part of the URL PimpLinkURL_sm = left(PimpLinkURL,(instr(1,PimpLinkURL,""" target=")-1)) %> <% else %> <% end if %>

<% '================ 'write out the XML for the p1mp link function WritePimpLinkXML(byval Filename) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(current_ROOT & Filename, ForWriting, True) f.writeline "" f.writeline " " f.writeline " " & server.HTMLEncode(Request.Form("PimpLink")) & "" f.writeline " " & server.HTMLEncode(Request.Form("PimpLinkTitle")) & "" f.writeline " " & server.HTMLEncode(Request.Form("PimpLinkCopy")) & "" if instr(1,Request.Form("PimpLinkURL"),"http://") > 0 then 'linking off site f.writeline " " & server.HTMLEncode(Request.Form("PimpLinkURL")) & """ target=""_blank" else 'link on site f.writeline " " & server.HTMLEncode(Request.Form("PimpLinkURL")) & "" end if f.writeline " " & datepart("d",now()) & " " & monthname(datepart("m",now()),true) & " " & datepart("yyyy",now()) & "" f.writeline " " f.writeline "" f.Close 'update some application session Application("lvlPimpLink") = Request.Form("PimpLink") Application("lvlPimpLinkTitle") = Request.Form("PimpLinkTitle") Application("lvlPimpLinkCopy") = Request.Form("PimpLinkCopy") Application("lvlPimpLinkURL") = Request.Form("PimpLinkURL") end function %>