<% Response.Buffer=true %>
<%
dim insertLinkInto
insertLinkInto = request.querystring("insertLinkInto")
dim srcField
dim LinkType
dim LinkAddress
dim linkTarget
dim LinkDesc
dim selected_id
dim selectionClass
dim externalClass
dim internalClass
dim breadcrumbText
dim currentSelected
dim popupSelected
srcField = request.querystring("srcField")
LinkType = request.querystring("LinkType")
LinkAddress = request.querystring("LinkAddress")
linkTarget = request.querystring("linkTarget")
LinkDesc = request.querystring("LinkDesc")
LinkDesc = replace(LinkDesc,"||amp||","&")
selected_id = 0
selectionClass = "show"
externalClass = "hide"
internalClass = "hide"
breadcrumbText = "Please select the type of link you want to insert"
currentSelected = " selected=""selected"""
popupSelected = ""
'-- If this is an existing internal link - grab the page_id
if LinkType = "internal" then
LinkAddressParts = split(LinkAddress,"=")
selected_id = LinkAddressParts(1)
selectionClass = "hide"
externalClass = "hide"
internalClass = "show"
breadcrumbText = "Internal link"
end if
'-- If this is an existing external link - set up the page accordingly
if LinkType = "external" then
selectionClass = "hide"
externalClass = "show"
internalClass = "hide"
breadcrumbText = "External link"
if linkTarget = "_blank" then
currentSelected = ""
popupSelected = " selected=""selected"""
end if
end if
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write(" Electric Putty CMS :: Insert Link" & VbCrLf)
response.write(" " & VbCrLf)
response.write(" " & VbCrLf)
response.write(" " & VbCrLf)
response.write(" " & VbCrLf)
response.write(" " & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("