Create document

[JustAsking]

I have the following script to create a word document from an asp page which its data has come from an access database. When I put html tags into the code e.g to create tables, the table is not created when the document is made. Does anyone know how I might be bale to create tables and use other html tags with this syntax?

Here is the code

<%

set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database.mdb")

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * from table", db, 1, 2

dim WordApp, WordDoc

Set WordApp = CreateObject("word.application")

WordApp.Application.Visible = false

Set WordDoc = WordApp.Documents.Add()


Do while not rs.EOF

Set Mypar1 = WordDoc.Paragraphs.Add
set MyRange1 = Mypar1.range
MyRange1.InsertBefore(rs.fields.item("field3").value & vbcrlf)
MyRange1.ParagraphFormat.Alignment = 1

Set newpar = WordDoc.Paragraphs.Add
set newrange = newpar.range

with newrange
.Bold = False
.Italic = false
.Font.Name = "Arial"
.Font.size = "12"
end with

newrange.insertBefore("Telephone : " & rs.fields.item("field3").value & vbcrlf)

newrange.insertBefore("Activate : " & rs.fields.item("field3").value & vbcrlf)
newrange.insertBefore(rs.fields.item("field3").value & vbcrlf)

newrange.insertBefore(rs.fields.item("field3").value & vbcrlf)
newrange.insertBefore(rs.fields.item("field3").value & vbcrlf)
newrange.insertBefore(rs.fields.item("field3").value & vbcrlf)
newrange.insertBefore(rs.fields.item("field3").value & vbcrlf)

Set Mypar2 = WordDoc.Paragraphs.Add
set MyRange2 = Mypar2.range
MyRange2.InsertBefore("Representation : " & rs.fields.item("field3").value & " " & rs.fields.item("field3").value)
MyRange2.Font.Bold = true

set Myparag2 = WordDoc.Paragraphs.add
set Myrang2 = Myparag2.range

with Myrang2
.Bold = False
.Italic = True
.Font.Name = "Arial"
.Font.size = "10"
end With

myrang2.insertBefore("Email : "& rs.fields.item("field3").value & vbcrlf)
myrang2.insertBefore("Mobile : "& rs.fields.item("field3").value & vbcrlf)
myrang2.insertBefore("Fax : "& rs.fields.item("field3").value & vbcrlf)
myRang2.insertBefore("Telephone : "& rs.fields.item("field3").value & vbcrlf)

Set Mypar3 = WordDoc.Paragraphs.Add
set MyRange3 = Mypar3.range
MyRange3.InsertBefore("Date of contact : " & rs.fields.item("field3").value )
MyRange3.Font.Bold = False

Set Mypar4 = WordDoc.Paragraphs.Add
set MyRange4 = Mypar4.range

MyRange4.InsertBefore("Comments : " & rs.fields.item("field3").value )
MyRange4.Font.Bold = False

rs.movenext

if not rs.EOF then

Set Mypar5 = WordDoc.Paragraphs.Add
set MyRange5 = Mypar5.range
MyRange5.InsertBreak

Set Mypar5 = WordDoc.Paragraphs.Add
set MyRange5 = Mypar5.range
end if

Loop

WordDoc.SaveAs server.mapPath("temp.doc")

WordDoc.Close

WordApp.Quit

rs.close

db.close

Set WordDoc = Nothing
Set WordApp = Nothing
Set rs = Nothing
Set db = Nothing

response.redirect "./"
%>