MartyConnelly
martyconnelly at shaw.ca
Fri Jul 27 18:02:35 CDT 2007
Here is how I write out an HTML file with contained javascript (so
ignore it )
To put a basic table into HTML
http://www.w3schools.com/html/html_tables.asp
You may be able to do easier via Bind Data Island to HTML Elements.
http://www.w3schools.com/xml/tryit.asp?filename=cd_catalog_island_thead
Function createhtmlroute(strStreetAddressFrom As String,
strStreetAddressTo As String, lVersion As Long) As String
Dim strHTML As String
strHTML = ""
strHTML = strHTML & "<html><head><title>Route Microsoft To Area 51
Virtual Earth Map</title></head>"
' strHTML = strHTML & "<meta http-equiv=""Content-Type""
content=""text/html; charset=utf-8"">"
'When your page has referenced the map control, set up the call to
display a default map by completing a LoadMap ( ) method call:
'try newer Virtual Earth control 4.0 Beta
If lVersion Then
strHTML = strHTML & vbCrLf & "<script
src='http://dev.virtualearth.net/mapcontrol/v4/mapcontrol.js'></script> "
Else
strHTML = strHTML & vbCrLf & "<script
src='http://dev.virtualearth.net/mapcontrol/v3/mapcontrol.js'></script> "
End If
' strHTML = strHTML & vbCrLf & "<script type='text/javascript'
src='http://local.live.com/veapi.ashx'></script>"
strHTML = strHTML & vbCrLf & "<script language=""javascript""
type=""text/javascript"">"
strHTML = strHTML & vbCrLf & " var map;"
strHTML = strHTML & vbCrLf & " function GetMap ()"
strHTML = strHTML & vbCrLf & " {"
strHTML = strHTML & vbCrLf & " map = new VEMap (""myMap"")"
' strHTML = strHTML & vbCrLf & " map.LoadMap(new
VELatLong(48.51, -123.36), 10 ,""h"" ,false)"
strHTML = strHTML & vbCrLf & " map.LoadMap()"
strHTML = strHTML & vbCrLf & " map.GetRoute(""" &
strStreetAddressFrom & """, """ & strStreetAddressTo &
""",null,null,onGotRoute)"
strHTML = strHTML & vbCrLf & " }"
strHTML = strHTML & vbCrLf & " function onGotRoute(route)"
strHTML = strHTML & vbCrLf & " {"
strHTML = strHTML & vbCrLf & " var routeinfo=""Route info:\n\n"";"
strHTML = strHTML & vbCrLf & " routeinfo += ""Total distance: "";"
strHTML = strHTML & vbCrLf & " routeinfo += route.Itinerary.Distance+""
"";"
strHTML = strHTML & vbCrLf & " routeinfo +=
route.Itinerary.DistanceUnit+""\n"";"
strHTML = strHTML & vbCrLf & " var steps="""";"
strHTML = strHTML & vbCrLf & " var len =
route.Itinerary.Segments.length;"
strHTML = strHTML & vbCrLf & " for(var i = 0; i<len ;i++)"
strHTML = strHTML & vbCrLf & " {"
strHTML = strHTML & vbCrLf & "
steps+=route.Itinerary.Segments[i].Instruction+"" -- ("";"
strHTML = strHTML & vbCrLf & "
steps+=route.Itinerary.Segments[i].Distance+"") "";"
strHTML = strHTML & vbCrLf & "
steps+=route.Itinerary.DistanceUnit+""\n"";"
strHTML = strHTML & vbCrLf & " }"
strHTML = strHTML & vbCrLf & " routeinfo += ""Steps:\n""+steps;"
strHTML = strHTML & vbCrLf & " alert(routeinfo);"
strHTML = strHTML & vbCrLf & " }"
strHTML = strHTML & vbCrLf & "</script>"
'Last, you display the map:
strHTML = strHTML & vbCrLf & "<body onload='GetMap();'>"
strHTML = strHTML & vbCrLf & "<div id='myMap' style='position:relative;
width:600px; height:600px;'></div>"
strHTML = strHTML & vbCrLf & "<td> Delay for Route Info: mouseover way
stations </td>"
strHTML = strHTML & vbCrLf & "</body>"
strHTML = strHTML & vbCrLf & "</html>"
WriteFile CurrentDBDir & "route.html", strHTML
createhtmlroute = strHTML
End Function
Sub WriteFile(ByVal sFileName As String, ByVal sContents As String)
' Dump XML or html String to File for debugging
Dim fhFile As Integer
fhFile = FreeFile
' Debug.Print "Length of string=" & Len(sContents)
Open sFileName For Output As #fhFile
Print #fhFile, sContents;
Close #fhFile
Debug.Print "Out File" & sFileName
End Sub
Steve Schapel wrote:
>Hi. I am just about to do something I have never tried before. I need
>to create a static web page from Access data. Using OutputTo from a
>report has too many problems. Using DoCmd.TransferText acExportHTML
>doesn't give me the formatting flexibility that I need. Therefore I've
>decided to try to loop through a recordset and build the html file in
>code. Main problem being that my html skills are minimal. Has anyone
>done this type of thing? Any tips? Thanks.
>
>Regards
>Steve
>
>
--
Marty Connelly
Victoria, B.C.
Canada