This is the insert image dialog page (I removed the JavaScript code).
It should be very easy to add your link/button.
<!-- #include file = "Include_GetString.asp" -->
<html>
<head>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.1)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.1)">
<title><%= GetString("InsertImage") %>
</title>
<%
Response.Expires = -1
Dim ImageGalleryPath,MaxImageSize,AllowUpload
ImageGalleryPath = Request.QueryString("GP")
MaxImageSize = Request.QueryString("MaxImageSize")
AllowUpload = lcase(Request.QueryString("Upload"))
%>
<style>
.btn {border: 1px solid #d7d3cc;padding: 1px;cursor: default;width:14px;height: 12px;vertical-align: middle;}
#browse_Img {width:200;height:300; VISIBILITY: inherit; Z-INDEX: 2; border: 1.5pt inset;}
#upload_image {height:80; VISIBILITY: inherit; width: 320; Z-INDEX: 2}
#cutePrev {
border: 1.5pt inset;
width: 320px;
height: 300px;
overflow: auto;
text-align: center;
vertical-align: top;
padding: 10px;
}
select,input,td {font-family: MS Sans Serif; font-size: 9pt; vertical-align: top; cursor: hand;}
</style>
<link href="dialog.css" type="text/css" rel="stylesheet" />
</head>
<body>
<div id="colorbox" style="display:none;width:200px;height:120px;overflow:visible;"></div>
<table border="0" cellspacing="5" cellpadding="4" width="95%" align="center">
<tr>
<td >
<%= GetString("InsertImage") %>:
</td>
<td align="right">
<span class="btn" id="upbtn" onmouseover="Check(this,1)" onmouseout="Check(this,0)" style="BORDER: #d7d3cc 1px solid" onclick="document.getElementById('browse_Img').src=currentfolder;"><img src="images/parentfolder.gif" alt="Go up one level"></span>
</td>
</tr>
</table>
<table border="0" cellspacing="2" cellpadding="0" width="95%" align="center" id="Table1">
<tr>
<td valign="top">
<iframe src="browse_Img.asp?GP=<%=ImageGalleryPath%>" id="browse_Img" frameborder="0" scrolling="auto"></iframe>
</td>
<td valign="top">
<div style="BORDER-RIGHT: 1.5pt inset; PADDING-RIGHT: 10px; BORDER-TOP: 1.5pt inset; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; VERTICAL-ALIGN: top; OVERFLOW: auto; BORDER-LEFT: 1.5pt inset; WIDTH: 320px; PADDING-TOP: 10px; BORDER-BOTTOM: 1.5pt inset; HEIGHT: 300px; BACKGROUND-COLOR: white; TEXT-ALIGN: center">
<div id="divpreview" style="BACKGROUND-COLOR: white" height="100%" width="100%">
<img id="img_demo" src="images/1x1.gif">
</div>
</div>
</td>
</tr>
</table>
<table border="0" cellspacing="2" cellpadding="0" width="560" align="center" id="Table2">
<tr>
<td nowrap width=220>
<fieldset style="padding:2px"><legend> <%= GetString("Layout") %> </legend>
<table border=0 cellpadding=5 cellspacing=0 id="Table6">
<tr>
<td>
<table border=0 cellpadding=2 cellspacing=0 id="Table3">
<tr>
<td width=100><%= GetString("Alignment") %> :</td>
<td>
<select NAME=ImgAlign style="width : 80px;" id="Align" onchange="do_preview()">
<OPTION id=optNotSet value="">Not set</OPTION>
<OPTION id=optLeft value=left>Left</OPTION>
<OPTION id=optRight value=right>Right</OPTION>
<OPTION id=optTexttop value=textTop>Texttop</OPTION>
<OPTION id=optAbsMiddle value=absMiddle>Absmiddle</OPTION>
<OPTION id=optBaseline value=baseline selected>Baseline</OPTION>
<OPTION id=optAbsBottom value=absBottom>Absbottom</OPTION>
<OPTION id=optBottom value=bottom>Bottom</OPTION>
<OPTION id=optMiddle value=middle>Middle</OPTION>
<OPTION id=optTop value=top>Top</OPTION>
</select>
</td>
</tr>
<tr>
<td nowrap><%= GetString("Border_Thickness") %>:</td>
<td>
<INPUT TYPE=TEXT SIZE=2 NAME=Border onchange="do_preview()" ONKEYPRESS="event.returnValue=IsDigit();" style="width : 80px;" id="Border">
</td>
</tr>
<tr>
<td nowrap><%= GetString("Border_Color") %>:</td>
<td>
<input type="text" id="bordercolor" name="bordercolor" size="7" style="width:57px;" >
<img id="s_bordercolor" src="images/colorpicker.gif" onclick="SetBgcolor();" align="absMiddle">
</td>
</tr>
<tr>
<td nowrap><%= GetString("Width") %>:</td>
<td>
<INPUT TYPE=TEXT SIZE=2 NAME=Width onchange="do_preview()" ONKEYPRESS="event.returnValue=IsDigit();" style="width : 80px;" id="Width">
</td>
</tr>
<tr>
<td nowrap><%= GetString("Height") %>:</td>
<td>
<INPUT TYPE=TEXT SIZE=2 NAME=Height onchange="do_preview()" ONKEYPRESS="event.returnValue=IsDigit();" style="width : 80px;" id="Height">
</td>
</tr>
</table>
</td>
</tr>
</table>
</fieldset>
<fieldset style="padding:2px"><legend> <%= GetString("Spacing") %> </legend>
<table border=0 cellpadding=5 cellspacing=0 id="Table4">
<tr>
<td>
<table border=0 cellpadding=2 cellspacing=0 id="Table7">
<tr>
<td valign=middle width=100><%= GetString("Horizontal") %>:</td>
<td><INPUT TYPE=TEXT SIZE=2 NAME=HSpace value="5" onchange="do_preview()" ONKEYPRESS="event.returnValue=IsDigit();" style="width:80px;" id="HSpace"> </td>
</tr>
<tr>
<td valign=middle><%= GetString("Vertical") %>:</td>
<td><INPUT TYPE=TEXT SIZE=2 NAME=VSpace onchange="do_preview()" ONKEYPRESS="event.returnValue=IsDigit();" style="width:80px;" id="VSpace"></td>
</tr>
</table>
</td>
</tr>
</table>
</fieldset>
</td>
<td width=10>
</td>
<td nowrap width=330>
<fieldset style="padding:2px" align="center" ><legend><%= GetString("InsertImage") %></legend><input type="hidden" id="imgpath" NAME="imgpath">
<table border=0 cellpadding=5 cellspacing=0 id="Table5">
<tr>
<td>
<table border=0 cellpadding=2 cellspacing=0 id="Table8">
<tr>
<td valign=middle>URL:</td>
<td><input type="text" id="TargetUrl" size="40" NAME="TargetUrl"></td>
</tr>
<tr>
<td valign=middle><%= GetString("Alternate") %>:</td>
<td valign=middle><input type="text" id="AlternateText" size="40" NAME="Text4"></td>
</tr>
</table>
</td>
</tr>
</table>
</fieldset>
<%
if AllowUpload = "true" then
%>
<fieldset style="padding:2px" align="center">
<input type="hidden" id="Hidden1" NAME="Hidden1">
<legend><%= GetString("Upload") %> (Max size <%=MaxImageSize%>K)</legend>
<iframe src="upload.asp?FP=<%=ImageGalleryPath%>&MaxSize=<%=MaxImageSize%>&Type=Image" id="upload_image" frameborder="0" scrolling="auto"></iframe>
</fieldset>
<%
end if
%>
<p align=center>
<input type="button" value="<%= GetString("Insert") %>" style="width:70px" onclick="insert_Image()" id="Button3" NAME="Button1">
<input type="button" value="<%= GetString("Preview") %>" style="width:70px" id="Button1" NAME="Button1">
<input type="button" value="<%= GetString("Cancel") %>" style="width:70px" onclick="window.close()" id="Button4" NAME="Button2">
</p>
</td>
</tr>
</table>
</body>
</html>
asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx
Web Messenger: http://cutesoft.net/Web-Messenger/default.aspx
asp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspx
asp wysiwyg html editor: http://cutesoft.net/ASP
asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx
Live Support: http://cutesoft.net/live-support/default.aspx