Pathing problems (IE related)?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Saw this mentioned in another thread, but I'm wondering if I'm doing anything different. It DOES seem to work in mozilla. Anyway, whenever I paste an image with relative pathing, it converts it to absolute paths when it saves as html. I cannot stress how irritating this is :P

Mucking around with the setup file doesn't seem to do much (I thought that blnUseFullURLpath thing might help, it didn't).

Basically, am I utterly screwed, and have to use mozilla?

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
 <TITLE>TDSB RTE Content Manager</TITLE>
 <META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
 <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"> 
</HEAD>
<%@ language="VBScript"%>
<%
'if Request.Form("pageToEdit")<>"" then
Response.Write("<Body OnLoad=""initialiseWebWizRTE();"">")
'else
'Response.Write("<Body>")
'end if

Dim oConn, oCmd, oRS, sql
Set oConn = Server.CreateObject("ADODB.Connection")
'oConn.Open 'username and password hidden
oConn.Open 'username and password hidden
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = oConn
Set oRS = Server.CreateObject("ADODB.Recordset")
if Request.Form("RTE")<>"" then
 dim content
 content=Request.Form("RTE")
 if content<>"" then 
  content=replace(content, "'", "|")
 end if
 sql="Select PageContents From Web_Pages Where PageName='" & Request.form("pageEdited") &"'"
 'Response.Write(sql&"<BR>")
 oRS.Open sql, oConn, 2, 2
 ors("pageContents")=content
 oRS.Update
end if
sql = "SELECT PageName FROM Web_Pages"
Set oRS = oConn.Execute(sql)
%>
 Please select a page to edit: <BR>
 <form method=post id=form1 name=form1>
 <select name="pageToEdit">
 <Option value="">Select a page to edit</Option>
<%
do until oRS.EOF
 Response.Write("<Option value="""&oRS("pageName")&""">"&oRS("PageName")&"</option>")
 oRS.MoveNext
loop
%>
</select>
<input type="submit" Name="Action" value="Edit &gt;&gt;">
</form>

<%

if Request.Form("pageToEdit")<>"" then

 sql = "SELECT PageContents FROM Web_Pages Where pageName='"&Request.Form("PageToEdit")&"'"
 Set oRS = oConn.Execute(sql)
 dim contents
 contents=orS("PageContents")
 if contents<>"" then  
  contents=replace(contents, "|", "'") 
 end if
 'ID tag name of the HTML form the textarea is within
 strFormName = "editPage"

 'ID tag name of HTML textarea being replaced
 strTextAreaName = "RTE"

 %>
 <!-- include the Web Wiz Rich Text Editor -->
 <!--#include file="RTE_editor_inc.asp" -->
 <Form method=post ID="editPage">
 <input name="pageEdited" type="hidden" value="<%Response.Write(Request.Form("pageToEdit"))%>">
 <textarea rows=30 cols=80 name="RTE" ID="RTE"><%Response.write(contents)%></textarea><BR>
 <input type="submit" Name="Action" value="Save &gt;&gt;">
 </Form>

 <% 
end if 

Set oRS = Nothing
if ucase(TypeName(dbConn)) = "CONNECTION" then
 oConn.Close
 Set oConn = Nothing
end if

%>
</body>