It is in vb, my code is in a module like for instance.
txtHTML = txtHTML & " </style>"
txtHTML = txtHTML & "<html>" & vbCrLf
txtHTML = txtHTML & " <head>" & vbCrLf
txtHTML = txtHTML & " </head>" & vbCrLf
txtHTML = txtHTML & " <body background = ""file:///C:/VB/Movieguide/backpanel.gif"">" & vbCrLf
txtHTML = txtHTML & " <div align=""center"">" & vbCrLf
txtHTML = txtHTML & " <table width=""98%"" cellspacing=""0"" cellpadding=""2"" border=""0"">" & vbCrLf
txtHTML = txtHTML & " <tr>" & vbCrLf
txtHTML = txtHTML & " <td width=""140"" valign=""top"" align=""center"">"
txtHTML = txtHTML & " <a href="http://reference.itags.org/reference/link/?url="/fullposter""><img src=" & .Fields("HTMLFrontCover") & " width=""140"" border=""0""></a><br>" & vbCrLf
txtHTML = txtHTML & " <small><small>(<a href="http://reference.itags.org/reference/link/?url="/backposter""><small><small>Back Cover</a>)</small></small><br>"
txtHTML = txtHTML & " <small><small>(<a href="http://reference.itags.org/reference/link/?url="/trailer""><small><small>View Trailer</a>)</small></small>"
txtHTML = txtHTML & " <td valign=""top""><div align=""left""><!-- TITLE --> <table width=""100%"" cellspacing=""0"" cellpadding=""1"" border=""0"">" & vbCrLf
txtHTML = txtHTML & " <tr>" & vbCrLf
txtHTML = txtHTML & " <th width=""100%"">" & vbCrLf & .Fields("Title") & "" & " (" & vbCrLf & .Fields("MovieDate") & ")" & "</th>" & vbCrLf
txtHTML = txtHTML & " </tr>"
jlt7
| Mon, 03 Dec 2007 17:36:00 GMT |