Quesito per veri esperti !!!!!

[AG69]

Salve a tutti ho un problema tosto da risolvere. Dovrei estrarre da un db access del codice html e asp e fare in modo che vengano eseguiti all'interno della pagina che li ha estratti.
Come posso fare ?????

[rixx]

eh si è proprio da esperti, io non ne ho idea

[Shryne]

io ho fatto delle funzioni esterne da includere in modo da utilizzare i tag come sui forum per l'inserimento.
In pratica prima dell'inserimento applico la funzione a quello che mi serve sistemare e lui trasforma direttamente (con un replace) i tag in codice html e poi la visualizzazione viene da se.
questa è la funzione che ho usato io:

function correggi(string)
Dim msg
msg = string
msg = replace(msg, "[img]", "<img src='")
msg = replace(msg, "[/img]", "'>")
msg = replace(msg, "", "<font size='1'>")
msg = replace(msg, "", "</font>")
msg = replace(msg, "", "<font size='2'>")
msg = replace(msg, "", "</font>")
msg = replace(msg, "", "<font size='3'>")
msg = replace(msg, "", "</font>")
msg = replace(msg, "", "<font size='4'>")
msg = replace(msg, "", "</font>")
msg = replace(msg, "", "<font size='5'>")
msg = replace(msg, "", "</font>")
msg = replace(msg, "", "<font size='6'>")
msg = replace(msg, "", "</font>")
		
		msg = replace(msg, "[/url]", "</a>")

		x = instr(1, msg, "[url=", 1)
		if x > 0 then
			y = 1
			do
				x = instr(y, msg, "[url=", 1)
				if x = 0 then exit do
				url = right(msg, len(msg) - (x - 1))

				y = instr(1, url, "]", 1)
				url = left(url, y)

				newurl = replace(url, "[url=",  "<a href=http://")
				newurl = replace(newurl, "[url=",  "<a href=http://")
				newurl = replace(newurl, "]", " target='_blank'>")

				msg = replace(msg, url, newurl)
				y = x + 5
			loop
		end if

msg = replace(msg, "'", "''")
msg = Replace(msg, VBCrLf, "
")
msg = Replace(msg, CHR(10) & CHR(10), "</P>

")
correggi = msg
end function

se devi invece modificare il record sempre tramite form ti fai una funzione che faccia l'esatto contrario. deve leggere i dati dal record e trasformare l'html in tag

Ps scusa se il codice è un po' incasinato in quanto grandezza caratteri ma non so come disattivarli ed il forum fa la formattazione da solo!

[weppos]

Server.Execute o Eval.

[Baol74]

Se il codice nel db è html

Response.Write Rs("NomeCampo")

Se è Asp (senza tag)

Execute Rs("NomeCampo")

Oppure

ExecuteGlobal Rs("NomeCampo")

Per usare Server.Execute devi salvare il comapo in un file ed eseguirlo

[AG69]

grazie weppos mi hai dato un'idea ora prova

[weppos]

Originariamente inviato da Baol74
ExecuteGlobal Rs("NomeCampo")

Mi giunge nuova... vado a documentarmi.
Thanks.

[Baol74]

Execute ed ExecuteGlobal sono identiche se eseguite a livello principale.

Altrimenti , se li usi in una funzione, Execute sarà locale alla funzione mentre ExecuteGlobal serà comunque un'esecuzione a livello principale.