asp subir archivos o foto

[Adler]

Hola

Podrías usar entidades html

Código asp:

Public Function Remplaza(limpia,caso)    
Dim cadena 
 
    cadena = trim(limpia)
    
    Select Case caso
 
    Case 0:
 
        cadena = replace(cadena,"'","'")
        cadena = replace(cadena,"¿","¿")
        cadena = replace(cadena,"¡","¡")
        cadena = replace(cadena,"ñ","ñ")
        cadena = replace(cadena,"Ñ","Ñ")
        cadena = replace(cadena,"á","á")
        cadena = replace(cadena,"Á","Á")
        cadena = replace(cadena,"é","é")
        cadena = replace(cadena,"É","É")
        cadena = replace(cadena,"í","í")
        cadena = replace(cadena,"Í","Í")
        cadena = replace(cadena,"ó","ó")
        cadena = replace(cadena,"Ó","Ó")
        cadena = replace(cadena,"ú","ú")
        cadena = replace(cadena,"Ú","Ú")
        
    Case Else 
        cadena = limpia
    End Select
 
    Remplaza = cadena
 
End Function
 

Uso

Reemplaza(Request.Form("str"),0) ' Al subir el valor a la bd

También podrías usar las funciones escape y unescape

Uso

Código asp:

escape(Request.Form("str")) ' Para subirlo a la bd
unescape(rs.field("campo")) ' Al recepcionar el campo
 

Suerte