% If Dvbbs.UserID=0 Then Response.End Dim useFor useFor = Trim(Request("useFor")) If Request("t")="1" Then Upfile_Main() Else Main() End If Dvbbs.PageEnd() Sub Main() Dvbbs.LoadTemplates("usermanager") Dvbbs.Stats=Dvbbs.MemberName&template.Strings(1) Dvbbs.Head() Dim PostRanNum Randomize PostRanNum = Int(900*rnd)+1000 Session("UploadCode") = Cstr(PostRanNum) Session("upface")=""'o 08.01.25 10:47 %>