Here's the link again:
http://www.sfsellers.com/Untitled-1.asp
Did you want me to send the code?
Here it is:
________________________________________________________________
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #INCLUDE virtual="/FckEditor/Editor/inc/fckeditor.asp" -->
<%
'**************************
' WYSIWYG HTML Editor
' http://www.dwzone.it
' Version: 1.2.5
'**************************
sEditorName = "Editor1"
sBasePath = "/FckEditor/"
sWidth = "600"
sHeight = "400"
sSkin = "default"
sFontList = "Arial;Comic Sans MS;Courier New;Tahoma;Times New Roman;Verdana"
sFontSizes = "1/xx-small;2/x-small;3/small;4/medium;5/large;6/x-large;7/xx-large"
sDefaultLanguage = "en"
sAutoDetectLanguage = "true"
sFileUploadFolder = "/images/"
sAllowedFileType = "Image"
sToolBarList = "5_6_7_18_19_20_21_22_23_28_29_30_31_39_42_43_-1_45_46_47"
sImageBrowser = "true"
sUseBrOnCarriageReturn = "false"
sMaxUploadFileSize = "0"
sUploadWinWidth = "650"
sUploadWinHeight = "500"
sResize = "-1;0;200;200;80;-1"
sOthers = ";false;-1"
tmp = split(sOthers,";")
sCssPath = tmp(0)
sBgImageForTable = tmp(1)
sSetupResize = tmp(2)
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
if sCssPath <> "" then
oFCKeditor.Config("EditorAreaCSS") = sCssPath
oFCKeditor.Config("CssList") = oFCKeditor.getListCss( sCssPath )
end if
oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/" & sSkin & "/"
if sFontList <> "" then
oFCKeditor.Config("FontNames") = sFontList
end if
if sFontSizes <> "" then
oFCKeditor.Config("FontSizes") = sFontSizes
end if
if sSetupResize <> "0" then
oFCKeditor.Config("SetupResize") = sSetupResize
end if
if sBgImageFortable <> "" then
oFCKeditor.Config("BgImageForTable") = sBgImageFortable
end if
if sUploadWinWidth <> "" then
oFCKeditor.Config("ImageBrowserWindowWidth") = sUploadWinWidth
oFCKeditor.Config("FlashBrowserWindowWidth") = sUploadWinWidth
end if
if sUploadWinHeight <> "" then
oFCKeditor.Config("ImageBrowserWindowHeight") = sUploadWinHeight
oFCKeditor.Config("FlashBrowserWindowHeight") = sUploadWinHeight
end if
oFCKeditor.Config("UseBROnCarriageReturn") = sUseBrOnCarriageReturn
oFCKeditor.Config("AutoDetectLanguage") = sAutoDetectLanguage
oFCKeditor.Config("DefaultLanguage") = sDefaultLanguage
oFCKeditor.Config("ImageBrowser") = sImageBrowser
if sUploadPage = "" then
sUploadPage = "connectors/asp/connector.asp"
end if
tmp = split(sResize,";")
oFCKeditor.Config("ImageBrowserURL") = sBasePath & "editor/filemanager/browser/default/browser.asp?Type=" & sAllowedFileType & "&Connector=" & sUploadPage & "&ServerPath=" & sFileUploadFolder & "&Resize=" & tmp(0) & "&ResizeComponent=" & tmp(1) & "&ResizeWidth=" & tmp(2) & "&ResizeHeight=" & tmp(3) & "&ResizeJpegQuality=" & tmp(4) & "&ResizeAspectRatio=" & tmp(5) & "&MaxUploadFileSize=" & sMaxUploadFileSize & "&SetupResize=" & sSetupResize
oFCKeditor.Config("FlashBrowserURL") = sBasePath & "editor/filemanager/browser/default/browser.asp?Type=Flash&Connector=" & sUploadPage & "&ServerPath=" & sFileUploadFolder & "&MaxUploadFileSize=" & sMaxUploadFileSize
oFCKeditor.ToolbarSet = "DwZone"
oFCKeditor.DwZoneToolbarSet = sToolBarList
oFCKeditor.Config("ToolbarList") = sToolBarList
oFCKeditor.Width = sWidth
oFCKeditor.Height = sHeight
oFCKeditor.Create sEditorName
%>
<textarea name="Editor1" id="Editor1" rows="4" cols="40" style="height:400;width:600;display:<%=oFCKeditor.getDisplay()%>">undefined</textarea>
<!--#include file="Connections/SFSellerData.asp" -->
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables
If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then
MM_editConnection = MM_SFSellerData_STRING
MM_editTable = "tblAds"
MM_editColumn = "AdID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = ""
MM_fieldsStr = "Editor1|value"
MM_columnsStr = "AdText|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_SFSellerData_STRING
Recordset1.Source = "SELECT * FROM tblAds"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<form name="form1" method="POST" action="<%=MM_editAction%>">
<textarea name="Editor1" id="Editor1" rows="4" cols="100" style="height:300;width:400;display:<%=oFCKeditor.getDisplay()%>"><%=(Recordset1.Fields.Item("AdTitle").Value)%></textarea>
<input type="submit" name="Submit" value="Submit">
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("AdID").Value %>">
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Login
Unread message![Read message [popular]](https://forum.dwzone-it.com/template/subSilver/images/folder_hot.gif)
Read message [popular] ![Unread message [popular]](https://forum.dwzone-it.com/template/subSilver/images/folder_new_hot.gif)
Unread message [popular]![Read message [locked]](https://forum.dwzone-it.com/template/subSilver/images/folder_lock.gif)
Read message [locked] ![Unread message [locked]](https://forum.dwzone-it.com/template/subSilver/images/folder_lock_new.gif)
Unread message [locked]