В моем небольшом проекте(веб-страничка) есть код, который должон использоваться на каждой странице проекта, но я так и не могу разобраться как мне сделать эту процедуру доступной из отдельного модуля... приходится вставлять его в обработчик каждой страницы что и неудобно и не правильно...

пытался засунуть его в отдельный модуль с объявлением прцедуры как Public но тогда он говорит что request, response и session являются "необьявленными"...

хорошо обьявляю :

Код

Dim session As System.Web.SessionState.HttpSessionState        Dim response As System.Web.HttpResponse        Dim request As System.Web.HttpRequest

компилятор это "съедает" но .NET Framework выдаёт:
В экземпляре объекта не задана ссылка на объект.

Что делать то?
И как правильно?

Помогите чайнику -я давно не програмил а тут уселяся сразу за vb.NET...

приводю мой код:

Код

Sub avatar_cookieng()        Dim Cookieing As HttpCookie        Dim p, ins, k, v As String        Cookieing = request.Cookies.Item("UserInfo")        Try            ins = Cookieing.Values("Registered")        Catch S As System.NullReferenceException            session("Return2") = CStr(request.Url.AbsoluteUri)            response.Redirect("Detect.aspx")        End Try        session("UID") = Cookieing.Values("UserID")        session("UMail") = Cookieing.Values("UserMail")        session("IsRegd") = Cookieing.Values("Registered")        If Cookieing.Values("FloatHead") = "True" Then ' Определяет плавает ли заголовок            session("FloatHead") = "True"            session("BodyStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _                                 + " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; page: inherit; " _                                 + "scrollbar-darkshadow-color: Black; font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 12px; overflow: hidden;"            session("MainStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _                                 + " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; ime-mode: active; bottom: auto; page: inherit;" _                                 + "scrollbar-darkshadow-color: Black; position: relative; top: 2px; left: 0px; width: 100%; height: inherit; overflow: auto; text-align: center; quotes: inherit;"        Else            session("FloatHead") = "False"            session("BodyStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _                                 + " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; " _                                 + "scrollbar-darkshadow-color: Black; font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 12px; overflow: auto;"            session("MainStyle") = "scrollbar-face-color : #990099;  scrollbar-arrow-color : Black; text-align: center;"        End If        If Cookieing.Values("TextWidth") <> Cookieing.Values("null") Then ' Определяет плавает ли заголовок            session("TextWidth") = Cookieing.Values("TextWidth")        Else            session("Return2") = CStr(request.Url.AbsoluteUri)            response.Redirect("Detect.aspx")        End If        Select Case Val(Cookieing.Values("ResX"))            Case Is < 1600                session("BodyStyleFile") = "Texts_0.css"            Case Is >= 1600                session("BodyStyleFile") = "Texts_2.css"        End Select    End Sub

Это сообщение отредактировал(а) JaguarSmith - 17.1.2005, 02:52

Попробуй использовать #include.
В отдельном файле напиши код и включай его в остальные страницы:

Код

<!--#include file="mycode.inc" -->

Лучше не включать файлы inc, хоть они и созданы для этого. Всё равно лучше писать - <!--#include file="mycode_inc.asp" -->

Так как inc файлы можно без пролем открыть и почитать