Insertar Un caracter despues de un numero de caracteres

[sqa212]

¿Como puedo insertar despues de un numero determinado de caractereotro caracter?
Por ejemplo:
Variable=rs("valor")
Supongamos que el valor que obtengo sea:
Micasaespequeña
¿Como podria insertar una X por ejemplo despues del 5 caracter?
Es decir que el resultado fuera

MicasXaespequeña

[u_goldman]

A ver si algo como esto funciona:

Function InsertaCaracter(cadena, pos, que_caracter)
cortaUno = mid(cadena, 1, pos)
cortaDos = mid(cadena, pos + 1, len(cadena))
InsertaCaracter = cortaUno & que_caracter & cortaDos
End Function

cadena = InsertaCaracter(rs("valor"), 5, "X")


Salu2,

[sqa212]

Gracias u_goldman, la funcion que me has pasado funciona correctamente.
El problema es que el caracter que yo quiero ingresar es una ", y asi no funciona.
A ver si se te ocurre algo:
Esto es lo que pongo en la pagina asp:
<%
pictureprod="<img src=http://www.midominio.com/imagenes/foto18.jpg>"
%>
<%
Function InsertaCaracter(cadena, pos, que_caracter)
cortaUno = mid(cadena, 1, pos)
cortaDos = mid(cadena, pos + 1, len(cadena))
InsertaCaracter = cortaUno & que_caracter & cortaDos
End Function%>
<%
'cadena = InsertaCaracter(rs("valor"), 5, "X")
cadena = InsertaCaracter(pictureprod, 9, """)
%>
<%=pictureprod%>
<br>
<%=cadena%>

Este es el error que obtengo:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0409)
Constante de cadena sin terminar
/web/modrutaCDO.asp, línea 20, columna 45
cadena = InsertaCaracter(pictureprod, 9, """)

[sqa212]

Lo de guardarlo en la base de datos de esa forma determinada no es un capricho, es para poder enviar imagenes desde base de datos con CDO.Message.

[u_goldman]

Nomás corrige el argumento que le envías...

cadena = InsertaCaracter(pictureprod, 9, chr(34))


Salu2,

[sqa212]

GRACIAS u_goldman, por ayudarme cuando lo necesito.
Funciona perfecto!!!!