Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Passing VBS variable to HTML Table 1

Status
Not open for further replies.
bnichban

bnichban

MIS
Aug 11, 2010
2
US
Hey guys. I've got a minor bit of code that is currently working, but I would really like to improve it if possible. I'm not a programmer so bear with me. I've got the code below nested in a Do loop that basically is simulating a status bar. It is really just resizing cells in a table based on the outcome of the If statements and some basic calculations earlier on. As you can see it updates at 4 intervals, which is fine, but is a bit clunky. What I would rather do is to pass a variable to the width field. That way I can just constantly recalculate the variable in the Do loop and have it more accurately update through every iteration.
Any ideas? Is this even a possibility?
Thanks for your help!




Set objTextRange = objDocument.body.CreateTextRange()
objTextRange.Text = ""

objDocument.Writeln "<html><head><title>Service Status</title></head>"
objDocument.Writeln "<body bgcolor='white'>"
objDocument.Writeln "<table border='0' bordercolor='#000000' style='background-color:#FFFFFF' width='300' height='60' cellpadding='0' cellspacing='0'>"
objDocument.Writeln "<tr><th>Fields found...</th></tr>"
objDocument.Writeln "<table border='1' bordercolor='#000000' style='background-color:#FFFFFF' width='300' height='30' cellpadding='0' cellspacing='0'>"
objDocument.Writeln "<tr>"
If intRow < intRow25 Then
objDocument.Writeln "<td style='background-color:#0C07AF' width='40%'></td>"
objDocument.Writeln "<td style='background-color:#FFFFFF' width='60%'></td>"
ElseIf intRow > intRow25 AND intRow < intRow50 Then
objDocument.Writeln "<td style='background-color:#0C07AF' width='60%'></td>"
objDocument.Writeln "<td style='background-color:#FFFFFF' width='40%'></td>"
ElseIf intRow > intRow50 AND intRow < intRow75 Then
objDocument.Writeln "<td style='background-color:#0C07AF' width='80%'></td>"
objDocument.Writeln "<td style='background-color:#FFFFFF' width='20%'></td>"
ElseIf intRow > intRow75 AND intRow < intRow100 Then
objDocument.Writeln "<td style='background-color:#0C07AF' width='100%'></td>"
objDocument.Writeln "<td style='background-color:#FFFFFF' width='0%'></td>"
End If
objDocument.Writeln "</tr>"
objDocument.Writeln "</table></table>"
objDocument.Writeln "</body></html>
 
Sort by date Sort by votes
intRow is the current row, intRowTotal is the total number of rows.

Code: 
intWidth = intRow / intRowTotal * 100
objDocument.Writeln "<td style='background-color:#0C07AF' width='" & intWidth & "%'></td>"
objDocument.Writeln "<td style='background-color:#FFFFFF' width='" & 100 - intWidth & "%'></td>"
 
Upvote 0 Downvote
Wow, I can't believe I totally missed that. Talk about hitting the easy button!
Thanks so much! It works beautifully!
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

lunter
  • Locked
  • Question
How to create vbArray+vbByte (8209) in *.vbs stript
Replies
0
Views
231
lunter
lunter
bdwilcox
  • Locked
  • Question
Script seeing input variable value as blank but sees hard-coded value 4
Replies
6
Views
689
bdwilcox
bdwilcox
Alexvb6
  • Locked
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
382
Alexvb6
Alexvb6
bdwilcox
  • Locked
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
1K
SoftwareRT
SoftwareRT
Michastro
  • Locked
  • Question
Send an order to an IP power in VBS
Replies
0
Views
204
Michastro
Michastro

Part and Inventory Search

Sponsor

Back
Top