Jump to content


lagoaseca

Member Since 30/06/2004
Offline Last Active 04/07/2004, 16:53
-----

Posts I've Made

In Topic: Comando Replace. Não O Entendo :(

02/07/2004, 01:02

Puuuutttzzzz, era isso???
Afe!!

Já testei aqui e deu certo!!! Logo a primeira opção :)

Valew ae Info_Tec e a todos que me ajudaram :D

Falows!

In Topic: Comando Replace. Não O Entendo :(

01/07/2004, 22:18

Puz pessoal não me xinguem, mas ainda não consegui fazer essa bendita função funcionar!! Fica dando erro na linha da Função, droga.


Tentei milhões de vezes e nada...

Agora eu pesso o seguinte:
Quem puder MONTAR a função replace toda para o código asp abaixo fazendo umas 3 linhas de substituições de caractere pra eu ver se consigo enteder eu agardeço!

Segue o código simples, feito no dreanweaver.....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="file:///c|******.asp" -->
<%
Dim RECORDSET
Dim RECORDSET_numRows

Set RECORDSET = Server.CreateObject("ADODB.Recordset")
RECORDSET.ActiveConnection = MM_BlogBR_STRING
RECORDSET.Source = "SELECT texto FROM Blog"
RECORDSET.CursorType = 0
RECORDSET.CursorLocation = 2
RECORDSET.LockType = 1
RECORDSET.Open()

RECORDSET_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RECORDSET_numRows = RECORDSET_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p>Exemplo:</p>

<%
While ((Repeat1__numRows <> 0) AND (NOT RECORDSET.EOF))
%>
<p><%=(RECORDSET.Fields.Item("texto").Value)%></p>
<p>&nbsp;</p>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RECORDSET.MoveNext()
Wend
%>
<p>&nbsp;</p>
</body>
</html>
<%
RECORDSET.Close()
Set RECORDSET = Nothing
%>


... onde o destaque em vermelho é exatamente a coluna do BD que é chamada, e onde terá que ser feito os replaces!!

Alguém pode montar a função replace todinha??

Por favor, to precisando muito.

Valew!!!

IPB Skin By Virteq