Единое оформление Web

07.06.2007, 11:25. **Показов** 8162. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите с направлением и если возможно с примером.
Создал я Page. Оформил его использую таблицу стилей.На странице поле ввода по событию вызываеться агент. В агенте осуществляеться поиск и вывод результата.
Как использовать туже таблицу стилей при выводе результата?
пробовал с тем же подходом что и при формировании страницы но в итоге код формируеться но, я так понимаю, сервер его не отрабатывает и возращаеться это как просто содержимое htnl

Код

Sub Initialize
Dim db As notesdatabase
Dim queue_doc As notesdocument
Dim query As String
Dim formula As String
Dim sess As New NotesSession
Dim doc As NotesDocument
Dim st_date As Variant
Set db = sess.currentdatabase
Dim x As Integer
Dim masVal As Variant
Dim numerdoc As String
dbfilepath= StrReplace(db.filepath,"\","/")
Header
........
end sub


Sub Header
Print |<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<style type="text/css"></style>
<link href="/sity/bd.nsf/style.css" rel="stylesheet" type="text/css">
|

End Sub

07.06.2007, 12:04

вопрос закрыт.
просто невнимательно был с тегами html

otyx_ktos
		1
	Единое оформление Web 07.06.2007, 11:25. Показов 8162. Ответов 1 Метки нет (Все метки) Помогите с направлением и если возможно с примером. Создал я Page. Оформил его использую таблицу стилей.На странице поле ввода по событию вызываеться агент. В агенте осуществляеться поиск и вывод результата. Как использовать туже таблицу стилей при выводе результата? пробовал с тем же подходом что и при формировании страницы но в итоге код формируеться но, я так понимаю, сервер его не отрабатывает и возращаеться это как просто содержимое htnl Код Sub Initialize Dim db As notesdatabase Dim queue_doc As notesdocument Dim query As String Dim formula As String Dim sess As New NotesSession Dim doc As NotesDocument Dim st_date As Variant Set db = sess.currentdatabase Dim x As Integer Dim masVal As Variant Dim numerdoc As String dbfilepath= StrReplace(db.filepath,"\","/") Header ........ end sub Sub Header Print \|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251"> <style type="text/css"></style> <link href="/sity/bd.nsf/style.css" rel="stylesheet" type="text/css"> \| End Sub

otyx_ktos
	07.06.2007, 12:04	2
	вопрос закрыт. просто невнимательно был с тегами html