Ciao a tutti
ho un piccolo problema che non riesco a risolvere....
come faccio stampare a video il risultato di una funzione senza usare il response.write ?

Sto creando un piccolo content manager e se utilizzo il response.write all'interno della funzione per sostituire un tag ( ad esempio: [menu]) giustamente mi pone il risultato all'inizio della pagina e non nel punto giusto in cui si trovava il tag nel template html....

se c'è bisogno posto il codice (un po lunghino)..... fatemi sapere

ciao e grazie
andrea

Function parser()
Dim rsContent
Dim rsContent_numRows

Set rsContent = Server.CreateObject("ADODB.Recordset")
rsContent.ActiveConnection = conn
rsContent.Source = "SELECT * FROM contenuti"
rsContent.CursorType = 3
rsContent.CursorLocation = 2
rsContent.LockType = 1
rsContent.Open()

Set objTemplate = Server.CreateObject("Scripting.FileSystemObject")

Dim template_content
Set template_content = Server.CreateObject("ADODB.Recordset")
template_content.ActiveConnection = conn
template_content.Source = "SELECT * FROM contenuti WHERE ID =" & request.querystring("page")
template_content.CursorType = 3
template_content.CursorLocation = 2
template_content.LockType = 1
template_content.Open()

MyWebPage = "Contenuto non trovato !"

If Request.QueryString("Page") <> "" Then
rsContent.filter = "id = " & CStr(Request.QueryString("Page"))
End If

If Not (rsContent.eof or rsContent.bof) Then
Set objText = objTemplate.OpenTextFile(Server.MapPath("temi/" & template_content.Fields.Item("template").Value),1,false)
Page_Template = objText.ReadAll
objText.Close
Set objText = Nothing
Set objTemplate = Nothing

'*********** DEFINISCO LE KEYWORDS

MyPageTitle = (rsContent.Fields.Item("titolo").Value)
Page_Content = (rsContent.Fields.Item("contenuto").Value)
menu = main_menu()

MyWebPage = Replace(Page_Template,"[contenuto]",Page_Content)
MyWebPage = Replace(MyWebPage,"[titolo]",MyPageTitle)
MyWebPage = Replace(MyWebPage,"[menu]",menu)

End If
Response.Write(MyWebPage)
end function

function main_menu()
if request.querystring("nodo") = "" then
nodo = "##ROOT##"
else if request.querystring("nodo") <> "" then
nodo = request.querystring("nodo")
end if
end if
rs.Open "SELECT * FROM menu WHERE figlio_di = " & "'" & nodo & "'" & "ORDER BY ordine", conn
label = ""
Do While not rs.EOF
label = label & "<a href=default.asp?nodo=" & rs("id") & ">" & rs("etichetta") & "</a><br>"
rs.MoveNext
Loop
rs.close
response.write label
end function


********************************************************************************

In poche parole uso la funzione main_menu() per creare il menu principale e la funzione parser() per recuperare il contenuto html del template e sostituire i tag con i risultati asp.

Il problema che mi si pone è che i tag con valori da database li sostituisce nelle posizioni giuste, ma le funzioni dove uso il response.write mette il risultato a inizio pagine e non nel tag corretto.

Grazie da subito per l'aiuto....
ciao
andrea

Se quelle che tu hai scritto sono function, come mai non restituiscono nulla? Allora potevi scrivere delle subroutine. Le funzioni solitamente hanno un valore restituito.
Ad esempio parser potrebbe restituire MyWebPage, per cui quando vuoi puoi andare a scrivere
Response.Write parser()

Raynor ha scritto:

Se quelle che tu hai scritto sono function, come mai non restituiscono nulla? Allora potevi scrivere delle subroutine. Le funzioni solitamente hanno un valore restituito.
Ad esempio parser potrebbe restituire MyWebPage, per cui quando vuoi puoi andare a scrivere
Response.Write parser()

il problema è che il parser mi serve per recuperare il template html e sosituire i tag con i contenuti dinamici... purtroppo come avrete notato sono alle prime armi e faccio fatica a capire differenze fra sub, function e altre....