FixaTecken med dubbelfnutt typ citattecken?!?

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

FixaTecken = sfix

End Function

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle

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,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

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

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

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

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

Hello,

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

cya,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

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

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

[Redigerat av brw den 02 nov 2000]

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.

------------------
//CoolDude

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

=(

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

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

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

Function FixaTecken(sfix)

FixaTecken = sfix

End Function

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

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle

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.

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

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.

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

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>

------------------
"Life's a bitch who sucks... then you marry one who doesn't"