webForumDet fria alternativet
Logga in / Bli medlem

Infoga table i asp

ASP

19 svar · 374 visningar · startad av costodia

costodiaMedlem sedan aug. 2000864 inlägg
Trådstart#1

Jag har lagt in articlementor på http://www.costodia.com/arkiv/showquestion.asp?faq=5&fldAuto=16 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]

emissionMedlem sedan dec. 19996 721 inlägg
#2

Om du lägger in TABLE-taggar i en text som sedan HTML-kodas så kommer alla radbrytningar i tabellen att ersättas med <BR>. Typ...

<TABLE><BR>
<TR><BR>
<TD>....

Är det det som händer?

costodiaMedlem sedan aug. 2000864 inlägg
#3

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?

emissionMedlem sedan dec. 19996 721 inlägg
#4

Varför? Jo, alla radbrytningar görs om till <BR>, 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.

costodiaMedlem sedan aug. 2000864 inlägg
#5

tack så mycket för svaret undrar bara om det är i admin_questions.asp

<!--#include file="includelogin.asp"-->
<!--#include file="menu.inc"-->
<!--#include file="incfaq.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
%>

<html>

<head>
<%
'''''''''''  (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
   
%>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PostcardMentor - Admin interface</title>
<style type="text/css">
<!--
     body {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     td {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     th {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table align="center" bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
  <tbody>
    <tr>
      <td vAlign="top" width="50%" height="60">
      <b><a href="http://www.aspcode.net"><font face="verdana,arial,helvetica" size="1">http://www.aspcode.net</font></a></b>
      </td>
      <td vAlign="top" width="468" height="60">
      <b><font face="verdana,arial,helvetica" size="+2">Admin
      interface</font></b>
      <table border="0" width="100%">
        <tr>
                            <td width="50%">
                            </td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td height="100%" vAlign="top" width="100%" colspan="2">
        <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
          <tbody>
            <tr>
              <td height="100%" vAlign="top" width="85%">
                <table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
                  <tbody>
                    <tr>
                      <td align="left" height="100%" vAlign="top" width="65%">
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%"><b><font color="#aa3333" face="verdana,arial,helvetica" size="4">ArticleMentor <%=Session("fullname")%></font></b>
                             
                            </td>
                            <td width="50%">
                            <%=FAQ_GetAd(1)%>
                            </td>
                          </tr>
                        </table>
                        <hr color="#000066" noShade SIZE="1">
                             
                        <p><font size="+1"><%=sFAQName%></font></p>
                             
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="70%">
<%
Dim sURL
sURL = "admin_questions.asp?chapter_fldAuto=" & Request.QueryString("chapter_fldAuto") & "&save=yes"
%>                             
                        <form method="POST" action="<%=sURL%>" name="FrontPage_Form1">
                        <table border="0" width="100%">
                          <tr>
                            <td bgcolor="#ECECD9"><b>Header</b></td>
                            <td bgcolor="#ECECD9"><b>Ordernumber</b></td>
                            <td bgcolor="#ECECD9"><b>Actions</b></td>
                          </tr>
<%
Dim nVal 
nVal = 1
While Not oRSQuestions.EOF
Dim sName
sName = "order" & oRSQuestions("fldAuto").Value
%>                        
                          <tr>
                            <td ><%=oRSQuestions("question")%></td>
                            <td >
                            <input type="text" name="<%=sName%>" size="7" value="<%=nVal%>"></td>
                            <td ><a href="admin_question.asp?action=edit&fldAuto=<%=oRSQuestions("fldAuto")%>&chapter_fldAuto=<%=Request.QueryString("chapter_fldAuto")%>">Modify</a> -<a href="admin_question.asp?save=yes&action=del&fldAuto=<%=oRSQuestions("fldAuto")%>&chapter_fldAuto=<%=Request.QueryString("chapter_fldAuto")%>"> Delete</a></td>
                          </tr>
<%
nVal = nVal + 1
oRSQuestions.MoveNext
Wend
oRSQuestions.Close
Set oRSQuestions = Nothing
%>                        
                        </table>
                             
                        <p align="left">&nbsp;
                          <p align="left"><input type="submit" value="Change article ordering" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;
                          <a href="admin_question.asp?action=new&chapter_fldAuto=<%=Request.QueryString("chapter_fldAuto")%>">Add new
                          article</a></p>
                        </form>
                             
<%
Set oRSFAQ = oConn.Execute ("select * from " & FAQ_GetTablePrefix() & "faq where fldAuto = " & nFaqID )
sFAQName = oRSFAQ("name")
oRSFAQ.Close    
Set oRSFAQ = Nothing
%>
<p><a href="admin_chapters.asp?faq_fldAuto=<%=nFaqId%>">Back to current category
( <%=sFAQName%> )&nbsp;</a>
<%
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
%>
                             
<p><a href="admin_default.asp">Back
to home&nbsp;</a></p><p><font face="helvetica, arial" size="2">ArticleMentor is
                        developed by <a href="http://www.aspcode.net">ASPCode.net</a>. Usage of it is totally free.</font></p>
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%">
                             <%=FAQ_GetAd(3)%>
                            </td>
                            <td width="50%">
                            <%=FAQ_GetAd(2)%>
                            </td>
                          </tr>
                        </table>
                          </tr>
                          <tr>
                            <td width="70%">
                             
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>

</body>

</html>

eller i showquestion.asp


<%
OPTION EXPLICIT
Response.Buffer = True
%>
<!--#include file="incfaq.asp"-->
<%
Function FixText( sText )
	Dim sRet
	sRet = Replace(sText, vbCrLf, "<br>")	
	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"),"<NEWPAGE>")
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 "<a href='showquestion.asp?faq=" & nfaq_fldAuto & "&fldAuto=" & nQuestionId & "&page=" & nCurPage-1  & "'>" & "<img src='previous.gif'>" & "</a>"
	End If
End Sub
Sub WriteNext()
	If CInt(nCurPage)< CInt(nTotalPages) Then
		Response.Write "<a href='showquestion.asp?faq=" & nfaq_fldAuto & "&fldAuto=" & nQuestionId & "&page=" & nCurPage+1  & "'>" & "<img src='next.gif'>" & "</a>"
	End If
End Sub

%>
<html>

<head>
<meta http-equiv="Content-Language" content="en">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Free asp applications</title>
<style type="text/css">
<!--
     body {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     td {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     th {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table border="0" width="100%">
  <tr>
    <td width="50%"><FONT color=#660000 face=Tahoma,Verdana,Arial 
      size=+3><B>ASPCode.net</B></FONT><BR><b><font size="3">The place to find
      free ASP code</font></b></td>
    <td width="50%"><%=FAQ_GetAd( 1 )%></td>
  </tr>
</table>
<table border="0" width="100%">
  <tr>
    <td valign="top">
      <br>
      <font size="4"><%=sHeader%></font><br><br><br>
              <table border="0" width="100%">
                <tr>
                  <td width="50%"><%WritePrev%></td>
                  <td width="50%">
                    <p align="right"><%WriteNext%></td>
                </tr>
              </table>
      <hr>
      <%=sTextToShow%>
    </td>
  </tr>
</table>
<%
oFAQ.Close
Set oFAQ = Nothing
oFAQConn.Close
Set oFAQConn = Nothing
%>
<p><a href="showfaq.asp?fldAuto=<%=nfaq_fldAuto%>"><--- Back to category</a>
<p>&nbsp;

      <p>These articles are maintained with ArticleMentor - a totally free product
      available for download <a href="http://www.aspcode.net/products/articlementor">here</a>.<p>&nbsp;

<table border="0" width="100%">
  <tr>
    <td width="50%"><FONT face="Arial,sans serif" size=2>© </FONT> <font size="1" face="Arial,sans serif">2000
      Stefan Holmberg <a href="http://www.aspcode.net">http://www.aspcode.net</a></font></td>
    <td width="50%"><%=FAQ_GetAd( 2 )%></td>
  </tr>
</table>

  <%=FAQ_GetAd( 3 )%>

</body>

</html>

och God Jul

emissionMedlem sedan dec. 19996 721 inlägg
#6

Funktionen FixText som ligger i showquestion.asp är den du bör bygga om lite.

costodiaMedlem sedan aug. 2000864 inlägg
#7

okej, är det svårt?

costodiaMedlem sedan aug. 2000864 inlägg
#8

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.

PatrikBMedlem sedan mars 20002 836 inlägg
#9

Om du tar bort det som ser ut ngt såhär:
String = Replace(sString,vbcrlf,"<BR>")
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 & "<TABLE>" & _
"<TR>" & _
"<TD>" & varVariabel & "</TD>" & _
"</TR>" & _
"</TABLE>"

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 <BR>-taggen.

Hoppas att du förstår ....

... fast ... varför spara HTMLkod i databasen????

cya,
PatrikB

costodiaMedlem sedan aug. 2000864 inlägg
#10

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
%>
<!--#include file="incfaq.asp"-->
<%
Function FixText( sText )
	Dim sRet
	htmlOP = htmlOP & "<TABLE>" & _
	"<TR>" & _
	"<TD>" & varVariabel & "</TD>" & _
	"</TR>" & _
	"</TABLE>"
	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"),"<NEWPAGE>")
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 "<a href='showquestion.asp?faq=" & nfaq_fldAuto & "&fldAuto=" & nQuestionId & "&page=" & nCurPage-1  & "'>" & "<img border=0 src='previous.gif'>" & "</a>"
	End If
End Sub
Sub WriteNext()
	If CInt(nCurPage)< CInt(nTotalPages) Then
		Response.Write "<a href='showquestion.asp?faq=" & nfaq_fldAuto & "&fldAuto=" & nQuestionId & "&page=" & nCurPage+1  & "'>" & "<img border=0 src='next.gif'>" & "</a>"
	End If
End Sub

%>
<html>

<head>
<link href="../xcnews16/nyacosse.css" rel="STYLESHEET" type="TEXT/CSS">
<title></title>
</head>

<body>

<table border="0" width="100%" class="newmediaLIGHTsheet">
  <tr>
    <td width="50%"><b>Costodia.com</b><br>
    <b>En startplats på internet</b></td>
    <td width="50%"><%=FAQ_GetAd( 1 )%>
</td>
  </tr>
</table>

<table border="0" width="400" class="Tolvpunkters">
  <tr>
    <td valign="top"><br>
<%=sHeader%>    <br>
    <br>
    <br>
    <table border="0" width="400" class="Tolvpunkters">
      <tr>
        <td width="50%" class="Tolvpunkters"><%WritePrev%>
</td>
        <td width="50%" class="Tolvpunkters"><p align="right"><%WriteNext%></td>
      </tr>
    </table>
    <hr>
<%=sTextToShow%>
    </td>
  </tr>
</table>
<%
oFAQ.Close
Set oFAQ = Nothing
oFAQConn.Close
Set oFAQConn = Nothing
%>
<font size="-2" face="verdana,arial">
<p><a href="showfaq.asp?fldAuto=<%=nfaq_fldAuto%>"><--- Tillbaka till kategorin</a> </p>
</font>

<table border="0" width="400">
  <tr>
    <td width="50%"><a href="http://www.costodia.com">Costodia.com</a></td>
    <td width="50%"><%=FAQ_GetAd( 2 )%>
</td>
  </tr>
</table>

</body>
</html>

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.

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#11

strSQL = "INSERT INTO question(answer) VALUES('" & htmlOP & "')"

då måste avsluta din sträng också, med ett citationstecken, som ovan.

mvh,

costodiaMedlem sedan aug. 2000864 inlägg
#12

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, "<TABLE>" & _
"<TR>" & _
"<TD>" & _
"</TD>" & _
"</TR>" & _
"</TABLE>") 
FixText = sRet
End Function

då funkar det men det blir så här på sidan http://www.costodia.com/arkiv/showquestion.asp?faq=5&fldAuto=16

Mvh Martin Persson
www.Costodia.com

[Redigerat av costodia den 06 feb 2001]

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#13

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?

costodiaMedlem sedan aug. 2000864 inlägg
#14

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, "<TABLE>" & _
"<TR>" & _
"<TD>" & _
"</TD>" & _
"</TR>" & _
"</TABLE>") 
FixText = sRet
End Function

då funkar det men det blir så här på sidan http://www.costodia.com/arkiv/showquestion.asp?faq=5&fldAuto=16

det går liksom inte att skriva

htmlOP = htmlOP & "<TABLE>" & _
"<TR>" & _
"<TD>" & varVariabel & "</TD>" & _
"</TR>" & _
"</TABLE>"
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

emissionMedlem sedan dec. 19996 721 inlägg
#15

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 <TABLE>....<TR>, <TR>...<TD>,</TD>....<TD>,</TR>...<TR> och </TR>...</TABLE> 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)

costodiaMedlem sedan aug. 2000864 inlägg
#16

nu vill den istället att jag ska avsluta den på något sätt

- Expected end of statement

costodiaMedlem sedan aug. 2000864 inlägg
#17

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.

emissionMedlem sedan dec. 19996 721 inlägg
#18

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 <BR>, och då blir det fel om man t.ex. har en radbrytning mellan <TABLE> och <TR>. Lösningen är att inte göra erättningen, och alltså mata in texterna med <BR> 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 <TABLE> ska följas av en <TR> (egentligen räcker det med att kolla < ), liksom en <OL> ska följas av en <LI> osv.

costodiaMedlem sedan aug. 2000864 inlägg
#19

jättebra,
hur skulle en sådan
regexp
skulle kunna se ut?

costodiaMedlem sedan aug. 2000864 inlägg
#20

det blir ju <br> 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 <br> tagg ska läggas in när det är en radbrytning och sedan <TABLE> ,<TR>" ,<TD>, </TD>, </TR>, </TABLE> , på något sätt i denna funktionen:

Function FixText( sText )
Dim sRet
sRet = Replace(sText, vbCrLf, "<br>") 
FixText = sRet
End Function

och hur skulle i så fall ett sådant undantag kunna se ut?

405 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
120 ms — deklarationer (db)
128 ms — hämta statistik (db)
154 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)