Sub e valori

[BeaZZy]

Ciao
Io ho un problema: ho creato una sub che si attiva quando faccio click su un pulsante. La sub associa alla variabile var1 un valore. Come faccio poi ad inviare questa var1 nella sub page_load???
Mi spiego: in page_load ho una query ottenuta con var1. La sub click_bottone associa a var1 il valore "visite". Ora dovrei inviare a page_load il nuovo valore della variabile var1 al fine di rielaborare la query.

Come fare???


Grazie e ciao

[zampa28]

<%@ Page Language="VB" Debug="True" %>

<Script runat="server">
	Dim Var1 as String
	'------------------------------------------------------------
	Sub Page_Load(Obj as Object, E as EventArgs)
	'........
	End Sub
	'------------------------------------------------------------
	Sub Click_Bottone(Obj as Object, E as EventArgs)
	Var1 = "Visite"
	Page_Load(Obj, E) 'così ti ripete l'evento Page_Load
	DataBind() 'Superfluo in questo caso
	End Sub
	'------------------------------------------------------------
</Script>

Non è carino ma funziona...

[BeaZZy]

L'ho provato ma non funziona.

Sai come mai?

[zampa28]

posta il codice dell'evento page_load

[BeaZZy]

è un pò lunghino...

[zampa28]

che ti posso dire?....

l'unica cosa importante è che la dichiarazione di Var1 sia all'inizio del codice, fuori da tutte le routine e funzioni.

magari prova ad aggiugere DataBind() alla fine dell'evento Page_Load, certo che se non mostri il tuo problema ti possiamo aiutare poco.

[BeaZZy]

ok, ho rifatto la pagina più corta...

<script runat="server">
dim varlocator as string
dim forumid, ordinato, come

Sub page_load(obj as object, e as eventargs)

forumid = request.querystring("forum")
dim i, nomeforum

if request.querystring("forum") = ""
response.redirect("forums.aspx")
end if

Dim sql0 As String
Dim objConn0 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb")

objConn0.open
sql0="SELECT * FROM forum WHERE id = " & request.querystring("forum")
Dim objCommand0 as New OleDbCommand(sql0 , objconn0)
Dim objDataReader0 as OleDbDataReader
objDataReader0 = objCommand0.ExecuteReader

if objDataReader0.read
if objDataReader0.item("id").tostring <> ""
nomeforum = objdatareader0("forum")
end if
end if
objConn0.close


if forumid = "" then
response.redirect("forums.aspx")
end if

if ordinato = ""
ordinato = "ultima_risposta_data"
end if

if come = ""
come = "desc"
end if

Dim ds as DataSet = new DataSet()
Dim myConnection as New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb")

Dim myCommand as New OleDbDataAdapter("SELECT * FROM thread WHERE idforum = " & forumid & " ORDER BY " & ordinato & " " & come, myConnection)
myCommand.fill(ds, "thread")

showforum.datasource = ds.Tables("thread")
databind()

end sub

sub orderby(obj as object, e as eventargs)

ordinato = "visite"
come = "desc"
Page_Load(obj, e)
databind()
end sub
</script>

Ovviamente var1 corrisponde ad ordinato e orderby corrisponde a button_click

Graze!

[Memole76]

Prova a mettere il codice in una nuova sub che richiami sia da Page_Load() sia dalla sub dell'onclic.

Ciao.

[BeaZZy]

Fatto ma mi da comunque lo stesso errore!

[Memole76]

Cioè? Che errore ti da?

Tieni presente, cmq, che prima viene eseguita la sub Page_Load() e poi, in ordine casuale, tutte le altre sub legate agli eventi generati.

Inoltre, ho letto nel codice che hai postato che richiami la sub Page_Load(). Non credo che lo puoi fare.

Fammi sapere. Ciao.