asp function to php function

[CrouchingTiger]

<%

function Repl_Hochfusel(PARA)
PARA = Replace(PARA,"'","''")
PARA = Replace(PARA,"´","''")
PARA = Replace(PARA,"`","''")
Repl_Hochfusel = PARA
end function

function Unrepl_Hochfusel(PARA)
Unrepl_Hochfusel = Replace(PARA,"''","'")
end function

function Repl_CRLF(PARA)
Repl_CRLF = Replace(PARA,vbCRLF,"<br>")
end function

function MakeMail(PARA)
x = Instr(PARA,"@")
if x > 0 Then
PARA = Left(PARA,x-1)
end if
PARA = "IMCEAINTRA-" & PARA & "@rheinenergie.com"
MakeMail=PARA
end function

I dont know the command for replace(asp)

[Weedpacket]

http://www.php.net/str-replace

Five minutes with the manual can save you two hours on the forums.