VBscript - Loop fejl
Hejsa...Hvad er der galt med mit script? Den melder fejl omkring min løkke, det er nok noget der, der er galt.
strBody er en variabel, som skal lægges ned i testfile.htm (tilsidst i scriptet)
Hvad er der galt?
Dim fso
Dim txtFile
Dim objMail
Dim strSubject
Dim strBody
strSubject = "This is a test email in HTML format"
strBody = "<HTML>" & _
"<HEAD></HEAD>" & _
"<BODY>" & _
"<br>" & _
"<div align=""center"">" & _
" <table style=""BORDER-COLLAPSE: collapse"" borderColor=""#c0c0c0"" cellSpacing=""0"" cellPadding=""4"" width=""98%"" align=""center"" border=""1"">" & _
" <tbody>" & _
" <tr class=""bjaelke"">" & _
" <td colSpan=""21"">" & _
" <table cellSpacing=""4"" cellPadding=""0"" width=""100%"" align=""center"" border=""0"">" & _
" <tbody>" & _
" <tr><td width=50% colspan=21 class=""ms-nav"" >" & _
" <font face=""Verdana"" size=""1"">Reservationer for uge <%=Uge%> - Alle lokaler</font></td> " & _
" <td style=""FONT-WEIGHT: normal"" width=""100%""></td>" & _
" <td align=""right"" width=""1%""><span class=""noprint""><a href=""java script:window.print();""><font face=""Verdana"" size=""1""><img alt=""Udskriv"" src=""Print.gif"" border=""0"" width=""18"" height=""14""></font></a></span></td>" & _
" </tr>" & _
" </tbody>" & _
" </table>" & _
" </td>" & _
" </tr>" & _
" <tr>" & _
" <td align=""middle""><b><font face=""Verdana"" size=""1"">Lektion</font></b></td>"
For i = 1 to 5
" <td colspan=""4"" class=""linje1"" align=""middle"" bgcolor=""#cccccc""><font face=""Verdana"" size=""1""><br></font></td>"
next
" </tr>" & _
"</BODY>" & _
"</HTML>"
set fso = createobject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile("testfile.htm", 2, True)
txtFile.WriteLine strBody
txtFile.Close
Set txtFile = Nothing
Set fso = Nothing
