#!C:/rebol/rebol.exe -csi
REBOL[]
print "Content-Type: text/html^/"
captured: make object! decode-cgi system/options/cgi/query-string
presentdate: now/date
author: "Author: "
append author captured/author
append author ", "
text: captured/text
title: captured/title
newblock: make block! 0
top: {<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/transitional.dtd">
<html
xmlns="http://www.w3.org/TR/xhtml1">
<head>
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT"></meta>
<title>Intranet Home</title>
<style
type="text/css">
h2.c2 { font-family: Verdana; font-size: 16pt}
h3.c1 {font-family: Verdana}
h4 {font-family: Verdana}
p {font-family: Verdana; font-size: 10pt}
td {font-family: Verdana; font-size: 10pt}
body {background-color: #FFFFCC}
</style>
</head>
<body>
<h2 class="c2">}
;Test Content title
bit: {</h2>
<h3>}
;Author: Sharriff Aina, 15th of Nov 2000
top2: {</h3><h4>}
;text
bottom: {</h4><p>
</p><p>
intranet article writer ( test ),Copyright� med-iq AG, 2000
</p>
</body>
</html>}
repend newblock top
repend newblock title
repend newblock bit
repend newblock author
append newblock presentdate
repend newblock top2
repend newblock text
repend newblock bottom
write %../medintouch/intranet/intcontent.html newblock
print { <?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/transitional.dtd">
<html
xmlns="http://www.w3.org/TR/xhtml1">
<head>
<title>Add new Intranet page</title>
<style
type="text/css">
p.c1 {font-family: Verdana,Tahoma,Arial,Helvetica; font-size: 80%}
</style>
</head>
<body
bgcolor="#666666">
<form
action=""
enctype="text"
method="get"
name="newcontact">
<table
border="1"
cellpadding="1"
cellspacing="0"
id="Table1"
width="75">
<tbody>
<tr>
<td
bgcolor="gray"> </td>
</tr>
<tr>
<td
bgcolor="#666666"> <input
type="submit"
name="submitButtonName"
value="Preview?" /></td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
}
_____________________________________
Heres the script. All its supposed to do is to capture an article (text)
from a user and display it in a frame. But the text alwys displays with
wrapping off!!??
Sorry to bother you guys with this, I know its something trivial I�ve
overlooked.
Sharriff Aina
med.iq information & quality in healthcare AG
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
