Avatar billede mvk Nybegynder
15. maj 2003 - 10:37 Der er 6 kommentarer og
1 løsning

HTML editor virker ikke

http://www.capitolshop.dk/admin/htmltest.asp
jeg har brugt en Dreamweaver Extension
men den vil ikke indsætte indholdet fra HTML editoren i min Access database
pls help :)
Avatar billede the_bma_man Nybegynder
15. maj 2003 - 10:42 #1
En lidt mere uddybende beskrivelse af problemet kunne være gavnligt :-)
Avatar billede mvk Nybegynder
15. maj 2003 - 10:48 #2
det er meningen at man blot skal smide HTML editoren på og så lave en almindelig insert record på den textbox - men jeg har forsøgt med at indsætte "værdien" i både text og memo formattering. som man kan se hvis man prøver at skrive noget og trykke submit - så oprettes der en ny record i databasen, men den er tom
jeg kan ikke gennemskue hvorfor
Avatar billede the_bma_man Nybegynder
15. maj 2003 - 13:04 #3
Prøv at smide koden til der, hvor du indsætter recorden i databasen.
Avatar billede mvk Nybegynder
15. maj 2003 - 15:33 #4
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "fHtmlEditor") Then

  MM_editConnection = MM_capitol_STRING
  MM_editTable = "HTMLtest"
  MM_editRedirectUrl = "/admin/htmltest.asp"
  MM_fieldsStr  = "EditorValue|value"
  MM_columnsStr = "MemoField|',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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  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_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    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
%>
Avatar billede mvk Nybegynder
19. maj 2003 - 09:58 #5
nothing,...
Avatar billede the_bma_man Nybegynder
20. maj 2003 - 08:56 #6
Hvilken fejl får du?
Avatar billede aceofspair Nybegynder
21. maj 2003 - 15:16 #7
Problemet ligger (så vidt jeg kan se) i at du ikke får læst hvad der er skrevet i editoren...

Jeg kan ikke lige umidelbart gennemskue hvordan du skal gøre dette, da det ser ud til at du har det liggende i 2 i-frames under hinanden

Mit råd til dig vil være at bruge et DIV-object at redigere i, istedet, da du så ikke også skal holde styr på om hvorvidt du er i den rigtige ramme eller ej

//AOS
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester