--- title: "Infoga table i asp" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/8035-infoga-table-i-asp" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "costodia" published: "2000-12-21T20:41:00.000Z" updated: "2001-02-07T11:15:00.000Z" replies: 19 views: 374 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8035-infoga-table-i-asp" --- # Infoga table i asp ## #1 — costodia, 2000-12-21T20:41Z Jag har lagt in articlementor på jag har tyvärr ett problem när jag lägger in tables, det skapas en massa br s utan någon intelligent förklaring, är det någon som vet en lösning på detta problem eller vad det beror på? \[Redigerat av costodia den 06 feb 2001\] Permalänk: https://www.webforum.nu/p/8035 ## #2 — emission, 2000-12-22T09:15Z Om du lägger in TABLE-taggar i en text som sedan HTML-kodas så kommer alla radbrytningar i tabellen att ersättas med \. Typ... \\ \\ \.... Är det det som händer? Permalänk: https://www.webforum.nu/p/258664 ## #3 — costodia, 2000-12-23T10:09Z ja, och jag kan inte förstår varför eller hur jag ska göra för att komma runt det, finns det något sätt? Permalänk: https://www.webforum.nu/p/258665 ## #4 — emission, 2000-12-24T08:48Z Varför? Jo, alla radbrytningar görs om till \, och det spelar ju ingen roll om dessa råkar ligga i en TABLE. Använd reguljära uttryck (regexp) eller gör en funktion med **instr** som tar reda på var tabellen ligger och undvik html-kodning av den delen. Permalänk: https://www.webforum.nu/p/258666 ## #5 — costodia, 2000-12-24T09:04Z tack så mycket för svaret undrar bara om det är i admin_questions.asp ``` <% Dim oConn Set oConn = FAQ_GetDatabaseConn() Dim oRS If Request.QueryString("save")="yes" Then Set oRS = Server.CreateObject("ADODB.Recordset") 'Change ordering... Dim sID, nFldAuto sID = Request.QueryString("chapter_fldAuto") sID = CInt( sID) oRS.Open "select * from " & FAQ_GetTablePrefix() & "question where chapter_fldAuto = " & sID, oConn, 1, 3 While Not oRS.EOF nFldAuto = oRS("fldAuto") oRS("orderingfield") = Request.Form("order" & nFldAuto) oRS.Update oRS.MoveNext Wend oRS.Close Set oRS = Nothing 'oConn.Close 'Set oConn = Nothing 'Response.Redirect "default.asp" End If %> <% ''''''''''' (C) Stefan Holmberg 1999 ''''''''''' Free to use if these sourcecode lines is not deleted ''''''''''' Contact me at webmaster@sqlexperts.com ''''''''''' [url="http://www.sqlexperts.com"]http://www.sqlexperts.com[/url] ''''''''''' AdMentor homepage at [url="http://www.create-a-webshop.com"]http://www.create-a-webshop.com[/url] Dim name, descr Dim oRSQuestions Set oRSQuestions = oConn.Execute("select * from " & FAQ_GetTablePrefix() & "question where chapter_fldAuto=" & Request.QueryString("chapter_fldAuto") & " order by orderingfield" ) Dim oRSChapter, sFAQName, nFaqID Set oRSChapter = oConn.Execute ("select * from " & FAQ_GetTablePrefix() & "chapter where fldAuto = " & Request.QueryString("chapter_fldAuto") ) sFAQName = oRSChapter("name") nFaqID = oRSChapter("faq_fldAuto") oRSChapter.Close Set oRSChapter = Nothing 'Get some info on current FAQ %> PostcardMentor - Admin interface
http://www.aspcode.net Admin interface
ArticleMentor <%=Session("fullname")%> <%=FAQ_GetAd(1)%>

<%=sFAQName%>

<% Dim sURL sURL = "admin_questions.asp?chapter_fldAuto=" & Request.QueryString("chapter_fldAuto") & "&save=yes" %>
<% Dim nVal nVal = 1 While Not oRSQuestions.EOF Dim sName sName = "order" & oRSQuestions("fldAuto").Value %> <% nVal = nVal + 1 oRSQuestions.MoveNext Wend oRSQuestions.Close Set oRSQuestions = Nothing %>
Header Ordernumber Actions
<%=oRSQuestions("question")%> &chapter_fldAuto=<%=Request.QueryString("chapter_fldAuto")%>">Modify -&chapter_fldAuto=<%=Request.QueryString("chapter_fldAuto")%>"> Delete

 

     ">Add new article

<% Set oRSFAQ = oConn.Execute ("select * from " & FAQ_GetTablePrefix() & "faq where fldAuto = " & nFaqID ) sFAQName = oRSFAQ("name") oRSFAQ.Close Set oRSFAQ = Nothing %>

Back to current category ( <%=sFAQName%> )  <% Set oRSFAQ = oConn.Execute ("select * from " & FAQ_GetTablePrefix() & "faq where fldAuto = " & nFaqID ) sFAQName = oRSFAQ("name") oRSFAQ.Close Set oRSFAQ = Nothing oConn.Close Set oConn = Nothing %>

Back to home 

ArticleMentor is developed by ASPCode.net. Usage of it is totally free.

<%=FAQ_GetAd(3)%> <%=FAQ_GetAd(2)%>
``` eller i showquestion.asp ``` <% OPTION EXPLICIT Response.Buffer = True %> <% Function FixText( sText ) Dim sRet sRet = Replace(sText, vbCrLf, "
") FixText = sRet End Function Public Function IsValidWebSite(ByRef Value) Dim MaxLength, IsRequired MaxLength = 255 IsRequired = True IsValidWebSite = True Value = Trim(Value) If IsRequired And Len(Value) = 0 Then IsValidWebSite = False End If If Len(Value) > MaxLength Then IsValidWebSite = False End If If Len(Value) > 0 Then If Left(Value, 4) <> "http" Then IsValidWebSite = False End If End If End Function Dim nQuestionId nQuestionId = Request.QueryString("fldAuto") If nQuestionId = "" Then Response.Redirect "." End If Dim oFAQConn, oFAQ Set oFAQConn = FAQ_GetDatabaseConn() Set oFAQ = oFAQConn.Execute("select question, answer from " & FAQ_GetTablePrefix() & "question where fldAuto=" & nQuestionId ) Dim nfaq_fldAuto nfaq_fldAuto = Request.QueryString("faq") Dim oRS2 Set oRS2 = oFAQConn.Execute("select name from " & FAQ_GetTablePrefix() & "faq where fldAuto=" & nfaq_fldAuto ) Dim sFaqName sFaqName = oRS2("name").Value oRS2.Close Set oRS2 = Nothing Dim vPages Dim sHeader 'Dim sGuestRes Dim sTextToShow sHeader = oFAQ("question") vPages = Split(oFAQ("answer"),"") Dim nTotalPages Dim nCurPage nTotalPages = UBound(vPages ) + 1 If nTotalPages=1 And IsValidWebSite(vPages(0)) Then oFAQ.Close Set oFAQ = Nothing oFAQConn.Close Set oFAQConn = Nothing Response.Redirect vPages(0) Response.Flush Response.End End If nCurPage = Request.QueryString("page") If nCurPage = "" Or CInt(nCurPage) > CInt(nTotalPages) or CInt(nCurPage)< 1 Then nCurPage = 1 End If sTextToShow = FixText(vPages(nCurPage-1)) Sub WritePrev() If CInt(nCurPage)<> 1 Then Response.Write "" & "" & "" End If End Sub Sub WriteNext() If CInt(nCurPage)< CInt(nTotalPages) Then Response.Write "" & "" & "" End If End Sub %> Free asp applications
ASPCode.net
The place to find free ASP code		 <%=FAQ_GetAd( 1 )%>

<%=sHeader%>


<%WritePrev%>

<%WriteNext%>
<%=sTextToShow%>
<% oFAQ.Close Set oFAQ = Nothing oFAQConn.Close Set oFAQConn = Nothing %>

<--- Back to category

 

These articles are maintained with ArticleMentor - a totally free product available for download here.

 
© 2000 Stefan Holmberg http://www.aspcode.net <%=FAQ_GetAd( 2 )%>
<%=FAQ_GetAd( 3 )%> ``` och God Jul Permalänk: https://www.webforum.nu/p/258667 ## #6 — emission, 2000-12-24T09:11Z Funktionen FixText som ligger i showquestion.asp är den du bör bygga om lite. Permalänk: https://www.webforum.nu/p/258668 ## #7 — costodia, 2000-12-24T09:14Z okej, är det svårt? Permalänk: https://www.webforum.nu/p/258669 ## #8 — costodia, 2001-02-04T19:13Z jag har försökt och försökt att använda FixText men jag får inte det att funka, så om någon skulle kunna visa ett exemepl på hur det skulle kunna se ut så skulle jag bli mycket hjälpt. Permalänk: https://www.webforum.nu/p/258670 ## #9 — PatrikB, 2001-02-06T11:58Z Om du tar bort det som ser ut ngt såhär: String = Replace(sString,vbcrlf,"\") så försvinner alla radbrytningar ... även från texten. Det man kan göra är att lägga all html kod i variabler utan VBCRLF eftre varje tag: ``` htmlOP = htmlOP & "" & _ "" & _ "" & _ "" & _ "
" & varVariabel & "
" strSQL = "INSERT INTO MIN_TABELL(MITT_FALT) VALUES('" & htmlOP & "') objConn.Execute(strSQL) ``` Då kommer endast vbcrlf som finns med i variabeln - varVariabel - att bytas ut mot \-taggen. Hoppas att du förstår .... ... fast ... varför spara HTMLkod i databasen???? cya, PatrikB Permalänk: https://www.webforum.nu/p/258671 ## #10 — costodia, 2001-02-06T13:18Z Nu får jag tyvärr detta felet: ``` Microsoft VBScript compilation error '800a0409' Unterminated string constant /arkiv/showquestion.asp, line 14 strSQL = "INSERT INTO question(answer) VALUES('" & htmlOP & "') ---------------------------------------------------------------^ ``` jag tror jag förstod dig rätt när jag gjorde så här att jag skrev så här: ``` <% OPTION EXPLICIT Response.Buffer = True %> <% Function FixText( sText ) Dim sRet htmlOP = htmlOP & "" & _ "" & _ "" & _ "" & _ "
" & varVariabel & "
" strSQL = "INSERT INTO question(answer) VALUES('" & htmlOP & "') objConn.Execute(strSQL) FixText = sRet End Function Public Function IsValidWebSite(ByRef Value) Dim MaxLength, IsRequired MaxLength = 255 IsRequired = True IsValidWebSite = True Value = Trim(Value) If IsRequired And Len(Value) = 0 Then IsValidWebSite = False End If If Len(Value) > MaxLength Then IsValidWebSite = False End If If Len(Value) > 0 Then If Left(Value, 4) <> "http" Then IsValidWebSite = False End If End If End Function Dim nQuestionId nQuestionId = Request.QueryString("fldAuto") If nQuestionId = "" Then Response.Redirect "." End If Dim oFAQConn, oFAQ Set oFAQConn = FAQ_GetDatabaseConn() Set oFAQ = oFAQConn.Execute("select question, answer from " & FAQ_GetTablePrefix() & "question where fldAuto=" & nQuestionId ) Dim nfaq_fldAuto nfaq_fldAuto = Request.QueryString("faq") Dim oRS2 Set oRS2 = oFAQConn.Execute("select name from " & FAQ_GetTablePrefix() & "faq where fldAuto=" & nfaq_fldAuto ) Dim sFaqName sFaqName = oRS2("name").Value oRS2.Close Set oRS2 = Nothing Dim vPages Dim sHeader 'Dim sGuestRes Dim sTextToShow sHeader = oFAQ("question") vPages = Split(oFAQ("answer"),"") Dim nTotalPages Dim nCurPage nTotalPages = UBound(vPages ) + 1 If nTotalPages=1 And IsValidWebSite(vPages(0)) Then oFAQ.Close Set oFAQ = Nothing oFAQConn.Close Set oFAQConn = Nothing Response.Redirect vPages(0) Response.Flush Response.End End If nCurPage = Request.QueryString("page") If nCurPage = "" Or CInt(nCurPage) > CInt(nTotalPages) or CInt(nCurPage)< 1 Then nCurPage = 1 End If sTextToShow = FixText(vPages(nCurPage-1)) Sub WritePrev() If CInt(nCurPage)<> 1 Then Response.Write "" & "" & "" End If End Sub Sub WriteNext() If CInt(nCurPage)< CInt(nTotalPages) Then Response.Write "" & "" & "" End If End Sub %>
Costodia.com
En startplats på internet		 <%=FAQ_GetAd( 1 )%>

<%=sHeader%>


<%WritePrev%>

<%WriteNext%>
<%=sTextToShow%>
<% oFAQ.Close Set oFAQ = Nothing oFAQConn.Close Set oFAQConn = Nothing %>

<--- Tillbaka till kategorin

Costodia.com <%=FAQ_GetAd( 2 )%>
``` i showquestion.asp fast det kanske jag inte gjorde. Anledningen till att jag vill få detta funka är att på mitt jobb så använder vi ett verktyg där vi får just detta problemet. Permalänk: https://www.webforum.nu/p/258672 ## #11 — @nders, 2001-02-06T13:24Z strSQL = "INSERT INTO question(answer) VALUES('" & htmlOP & "')" då måste avsluta din sträng också, med ett citationstecken, som ovan. mvh, Permalänk: https://www.webforum.nu/p/258673 ## #12 — costodia, 2001-02-06T13:37Z Nu blir det istället fel med: ``` Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'htmlOP' /arkiv/showquestion.asp, line 9 ``` jag testade även en sak som jag tyckte var smart och det vara att skriva ``` Function FixText( sText ) Dim sRet sRet = Replace(sText, vbCrLf, "" & _ "" & _ "" & _ "" & _ "
" & _ "
") FixText = sRet End Function ``` då funkar det men det blir så här på sidan Mvh Martin Persson [www.Costodia.com](http://www.Costodia.com) \[Redigerat av costodia den 06 feb 2001\] Permalänk: https://www.webforum.nu/p/258674 ## #13 — @nders, 2001-02-06T13:48Z jag skulle vilja veta varför du postar så infernaliskt mycket kod, det finns inte en chans att man orkar gå igenom den. kan du istället posta själva kodavsnittet där felet inträffar? Permalänk: https://www.webforum.nu/p/258675 ## #14 — costodia, 2001-02-06T14:00Z jo, det tänkte jag inte på, Nu blir det istället fel med: ``` Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'htmlOP' /arkiv/showquestion.asp, line 9 ``` jag testade även en sak som jag tyckte var smart och det vara att skriva ``` Function FixText( sText ) Dim sRet sRet = Replace(sText, vbCrLf, "" & _ "" & _ "" & _ "" & _ "
" & _ "
") FixText = sRet End Function ``` då funkar det men det blir så här på sidan det går liksom inte att skriva ``` htmlOP = htmlOP & "" & _ "" & _ "" & _ "" & _ "
" & varVariabel & "
" strSQL = "INSERT INTO MIN_TABELL(MITT_FALT) VALUES('" & htmlOP & "') objConn.Execute(strSQL) ``` för det blir fel på varje ord som inte är en table, tr eller td. Det är alltså denna del av dokumentet det vblir fel i. Mvh Martin Persson [www.Costodia.com](http://www.Costodia.com) Permalänk: https://www.webforum.nu/p/258676 ## #15 — emission, 2001-02-06T17:10Z **Variable is undefined: 'htmlOP'** Det står vad som är fel. htmlOP är odefinierad. Du måste skriva Dim htmlOP innan variabeln används, eftersom Option Explicit är på. FixText:en verkar inte så bra eftersom den bara ersätter alla blankrader med en tom tabell. Du måste leta upp alla \....\, \...\,\....\,\...\ och \...\ och ta bort eventuella radbrytningar däremellan, före html-kodningen. Det gör du lättast regexp. Kolla upp dokumentationen (finns på msdn.microsoft.com/scripting) Permalänk: https://www.webforum.nu/p/258677 ## #16 — costodia, 2001-02-06T17:30Z nu vill den istället att jag ska avsluta den på något sätt \- Expected end of statement Permalänk: https://www.webforum.nu/p/258678 ## #17 — costodia, 2001-02-06T17:46Z men om man utgår från en tom sida, finns det något sät att läsa htmlkod med tables utan att de blir en massa radbrytningar i så fall? ursäkta att jag frågade i en annan tråd, jag ville bara göra lite reklam för mitt inlägg, men jag vet det var dumt, som jag sagt innan så är du verkligen bra på asp och har varit till otroligt stor hjälp för mig när jag gjort min privata hemsida och de få appliktioner jag gjort på jobbet så jag hoppas du inte tog illa upp, det var inte meningen. Permalänk: https://www.webforum.nu/p/258679 ## #18 — emission, 2001-02-06T17:58Z Nej, inte alls. :) finns det något sät att läsa htmlkod med tables utan att de blir en massa radbrytningar i så fall? Javisst, det enda som är problematiskt är att man ofta läser in texten och ersätter alla radbrytningar med \, och då blir det fel om man t.ex. har en radbrytning mellan \ och \. Lösningen är att inte göra erättningen, och alltså mata in texterna med \ och hela faderullan, eller så gör jag som jag beskrev ovan. Med regexp kan man bygga en funktion som kan lösa problemet helt. Man kan ju nämligen alltid utgå ifrån att en \ ska följas av en \ (egentligen räcker det med att kolla \< ), liksom en \ ska följas av en \ osv. Permalänk: https://www.webforum.nu/p/258680 ## #19 — costodia, 2001-02-06T18:03Z jättebra, hur skulle en sådan regexp skulle kunna se ut? Permalänk: https://www.webforum.nu/p/258681 ## #20 — costodia, 2001-02-07T11:15Z det blir ju \ vid varje radbrytning och det vill jag ha kvar, men skulle man inte på något sätt lägga in ett untag som säger att ingen \ tagg ska läggas in när det är en radbrytning och sedan \ ,\" ,\, \, \, \ , på något sätt i denna funktionen: ``` Function FixText( sText ) Dim sRet sRet = Replace(sText, vbCrLf, "
") FixText = sRet End Function ``` och hur skulle i så fall ett sådant undantag kunna se ut? Permalänk: https://www.webforum.nu/p/258682 --- Tråden på webben: https://www.webforum.nu/amne/asp/8035-infoga-table-i-asp