FixaTecken med dubbelfnutt typ citattecken?!?

Function FixaTecken(sfix)
sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "|", "")
sfix = Replace(sfix, """", "")

FixaTecken = sfix

End Function

Tackar!

Men problemet med dubbelfnutt på ett helt ord kvarstår..

om nån skriver

hej jag är "cool" som fan

så försvinner det som är efter cool alltså: cool som fan försvinner

nån lösning på det med?

/brw

[Redigerat av brw den 02 nov 2000]

hmm

----------------------------------------
Ingenting är omöjligt, bara en utmaning.

[Redigerat av brw den 02 nov 2000]

Hello,

har du provat med detta:

Function FixaTecken(sfix)
sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "|", "")
sfix = Replace(sfix, chr(34), "")
FixaTecken = sfix

End Function

Lägger du in informationen i databas?
Lite kod därifrån skulle heller inte skada ....

cya,

Ska testa det där med chr34 nu.. men var kan jag finna en lista på vad alla dom där chr betyder?

Jag sätter in i en databas.. därför jag inte vill ha med skittecken..

kör ju bara

RS("namn") = FixaTecken(Request.Form("namn"))

/brw

Nepp fungerar inte.. den tar bort hela ordet och orden efter om jag använt mig av fnuttar... fan va irriterande...

Hello,

skicka all kod som du har för att sätta in i db ...

cya,

Japp såhär ser det ut iaf.

<!--#include file="incfiles/adovbs.inc"-->
<!--#include file="incfiles/functions.inc"-->
<!--#include file="incfiles/databas.inc"-->

<%
fornamn = FixaTecken(Request.Form("fornamn"))
efternamn = FixaTecken(Request.Form("efternamn"))
epostprivat = FixaTecken(Request.Form("epostprivat"))
epostarbete = FixaTecken(Request.Form("epostarbete"))

    Set RS = Server.CreateObject("ADODB.Recordset")
	Addera = "SELECT * FROM privat"

    RS.Open Addera, Connection, adOpenStatic, adLockOptimistic

	RS.AddNew

	RS("fornamn") = fornamn
	RS("efternamn") = efternamn
	RS("epostprivat") = epostprivat
	RS("epostarbete") = epostarbete

	RS.Update
	RS.Close
	Connection.Close 

%>

databas.inc
-----------

<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"
%>

functions.inc
-------------

<script language=VBScript runat=Server>
Function FixaTecken(sfix)

sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "&#0124;", "")
sfix = Replace(sfix, """", "")
sfix = Replace(sfix, chr(34), "")

FixaTecken = sfix

End Function
</script>

Får se om du kommer på nån lösning...
/brw

Tja ba!

Så som "jag" läser det hela så menade emission att du skulle ersätta raden

sfix = Replace(sfix, """", "")

med raden

sfix = Replace(sfix, chr(34), "")

Du använder BÅDA.

Nja det har jag testat.. jag har provat med båda och en av vardera.. men det blir likadant!

=(

Ingen som har nån fundering på varför det blir som det blir?

Function FixaTecken(sfix)

FixaTecken = sfix

End Function

Borde funka, if you catch my drift....

nej det funkade inte hehehe.. verkar inte gå att få det att fungera.

den tar fan inte bort dubbelfnutt runt ett helt ord.. den tra bort hela ordet och allt efteråt.. jävligt irriterande.

Testa att använda det när du skriver ut det istället.

Inkludera functions.inc som vanligt sen skriver du ut posten
<%=Fixatecken(RS("Post"))%>
Hur blir det om du använder det?

Andreas

Jadu det blir likadant..
den skriver bara fram tills det ordet där det kommer en dubbelfnutt runt hela ordet.

Testa att köra följande script så kan du själv se at det går utmärkt att ta bort dubbelfnuttarna. Om du fixar textsträngen innan du kör in den i databasen så skall det inte vara några probs.

<Script Language="VBScript" Runat="Server">

str = "textsträng "&chr(34)&"med"&chr(34)& " dubbelfnuttar"

Response.Write str
str = Replace(str,Chr(34),"")
Response.Write "<br><br>" & str

</Script>