Erro: Microsoft VBScript... '800a000d' Type mismatch: 'For

[renan mafra 0]

Olá pessoal o seguinte erro esta aparecendo:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'FormatStr'

 

/site/empreendimentos2.asp, line 31

 

 

na linha 31 tem uma chamada para uma função de nome FormatStr que

trata o texto formantando-o, a função é essa:

 

function FormatStr(String)

on Error resume next

String = Replace(String,CHR(10), "<BR>")

FormatStr = String

end function

 

e a chamada onde esta dando erro è aqui:

 

vinfo = FormatStr(rs("info"))

 

Me ajudem pessoal

[xanburzum 169]

rs("info") é todo formato texto no banco de dados ?

[renan mafra 0]

é string texto sim somente

[saloeric 1]

tente assim,

 

Function FormatStr(String)
dim valor : valor = String

if not isnull(valor) then valor = Replace(valor,chr(10), "<br />") else valor = ""

FormatStr = valor
End Function


response.write FormatStr(rs("info").value)

[Mário Monteiro 179]

certeza de que ta passando algum valor?

[xanburzum 169]

dá um response.write na sua variável para ver o que esta sendo passado