Skúšal som cez ViewState predávať formulári inštrukcie, koľký krát sa Page_Load načítavá no potom som si uvedomil, že to spúšťa 2 instancie formu takže ViewState("niečo") bolo vždy druhý krát nothing, aj keď som tam pri prvom Page_Load niečo vložil. Nakoniec som to vyriešil týmto, uznávam že trochu prasáckym spôsobom, no už neviem ako by som sa z toho vymotal
If Request.QueryString("Email") Is Nothing Then
'Ak nie je definovaný e-mail nevykoná nič
Else
Dim strEmailQS As String = Request.QueryString("Email") 'načíta z qerty
Dim strEmail As String = NacitatIni("Email", strEmailQS, "0", 100, Server.MapPath(strCestaIni & "EmInfo.ini")) 'moja funkcia
If strEmail = 0 Then 'Ak ešte nebol odoslaný
Dim html As String = String.Empty
Using sr As New System.IO.StreamReader(Server.MapPath("~/Files/Info.txt"))
html = sr.ReadToEnd() ' prečíta soubor
End Using
OdoslanieEmailuHTML(strEmailQS, "Info o produkte", html, "Admin") 'moja funkcia
UlozitIni("Email", strEmailQS, "1", Server.MapPath(strCestaIni & "EmInfo.ini")) 'moja funkcia
Else 'ak už bol odoslaný neodošle ale povolí budúce odoslanie
UlozitIni("Email", strEmailQS, "0", Server.MapPath(strCestaIni & "EmInfo.ini")) 'moja funkcia
End If
End If
Aj tak by som poprosil ak by niekto vedel prečo mi to hádže instancie 2 formov o radu "Prečo?"
|