Script - Table create for webpage

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Script - Table create for webpage

Logged in as: Guest

arrSession:exec spGetSession 2,7,28032

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [General Forum] >> Other Programming/Scripting Languages >> Script - Table create for webpage
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Script - Table create for webpage - 11/15/2005 8:50:01 AM

Country73

Posts: 710
Score: 8
Joined: 8/25/2004
From: USA
Status: offline

(NOT ASP)
I know this would probably fit better out at an HTML Forum, but I figure someone here has ran across this before. (And I haven't received any responses back from one of the HTML Forums I posted this question on)

I currently have a script that connects to an Access Database and uses the information to create a basic html which only displays a Table. The problem is how the actual page is displayed. I don't believe it's an actual VBScript problem, since I get the same problem if I create the page manually(using the information pulled from the database), but I'm curious if anyone has come across the same problem before.

All of the information is pulled out correctly, but I'm trying to correct the actual layout of the page.
If there are 15 lines in the table, then the table doesn't start until about the 16th line of the page. (20 lines in table, 21st line is where it starts on the page)
When I create the page manually, with bogus information, it displays correctly. When I manually create the page with the information pulled from the Access Database, I get the same display as when the script creates it.

Has anyone come across this before or run into the same issue?
Here's the source for the actual page. I can post the script I wrote to do this, but the problem should be in the html coding and not the script itself.

<TABLE BORDER=3 CELLSPACING=1 CELLPADDING=1 TBODY BGCOLOR=#9acd32>
<CAPTION>Query by Subnet - 15 
You may need to "REFRESH" this page if correct for most current information. 
Total Number of Machines Imaged on 15 subnet:&nbsp;&nbsp;&nbsp;&nbsp;21</CAPTION>
<TR><TD ALIGN = CENTER>ImageStartTime</TD><TD ALIGN = CENTER>ImageRunTime</TD><TD ALIGN = CENTER>ImageDate</TD><TD ALIGN = CENTER>NumberMachines</TD><TD ALIGN = CENTER>TechName</TD><TD ALIGN = CENTER>Subnet</TD><TD ALIGN = CENTER>Asset Tag</TD><TD ALIGN = CENTER>MAC Address</TD><TD ALIGN = CENTER>Manufacturer</TD><TD ALIGN = CENTER>Model</TD><TD ALIGN = CENTER>Serial</TD><TD ALIGN = CENTER>Image Reason</TD></TR>
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
<tr><TD ALIGN = center>12:58:00 PM</td><TD ALIGN = center>8:42</td><TD ALIGN = center>1/14/2005</td><TD ALIGN = center>1</td><TD ALIGN = center>Tech</td><TD ALIGN = center>15</td><TD ALIGN = center>0123456</TD><TD ALIGN = center>MAC</TD><TD ALIGN = center>IBM</TD><TD ALIGN = center>Model</TD><TD ALIGN = center>Serial</TD><TD ALIGN = center>test</TD></TR> 
</TABLE>

< Message edited by Country73 -- 11/15/2005 8:52:23 AM >

Post #: 1

RE: Script - Table create for webpage - 11/15/2005 10:02:11 PM

ehvbs

Posts: 2012
Score: 48
Joined: 6/22/2005
From: Germany
Status: offline

Hi Country73,

the code you posted looks okay to IE and Mozilla. But running your code thru HtmlTidy
gives an error concerning the "TBODY" in the table tag. If removing this doesn't solve
your problem, you should show us your vbs code.

(in reply to Country73)

Post #: 2

RE: Script - Table create for webpage - 11/18/2005 2:02:00 AM

Country73

Posts: 710
Score: 8
Joined: 8/25/2004
From: USA
Status: offline

Well, I removed the TBODY from the webpage, but it's still displaying in the same manner.
Here's the script:

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
SN = InputBox("Which subnet are you looking for?","Subnet Query","")
D1 = InputBox("Starting Date:" & vbcrlf & "Example: 10/1/2005","")
D2 = InputBox("Ending Date:" & vbcrlf & "Example: 10/31/2005","")
mapPath = "\\Server\c$\"
mpPath = "\\Server\MyDatabaseImages.mdb"
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mpPath & ";"
Set rs = conn.Execute("exec subnetQuery '"&SN&"','"&D1&"','"&D2&"'")
DO UNTIL rs.EOF = TRUE
idVal = rs("Subnet")
val = val + rs("NumberMachines")
 strInfo = strInfo & "<tr><TD ALIGN = center>"
 strInfo = strInfo & rs("ImageCompleteTime")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("ImageRunTime")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("ImageDate")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("NumberMachines")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("TechName")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("Subnet")
 strInfo = strInfo & "</td><TD ALIGN = center>"
 strInfo = strInfo & rs("Asset")
 strInfo = strInfo & "</TD><TD ALIGN = center>"
 strInfo = strInfo & rs("MachineID")
 strInfo = strInfo & "</TD><TD ALIGN = center>"
 strInfo = strInfo & rs("Manufacturer")
 strInfo = strInfo & "</TD><TD ALIGN = center>"
 strInfo = strInfo & rs("Model")
 strInfo = strInfo & "</TD><TD ALIGN = center>"
 strInfo = strInfo & rs("Serial")
 strInfo = strInfo & "</TD><TD ALIGN = center>"
 strInfo = strInfo & rs("ImageReason")
 strInfo = strInfo & "</TD></TR> " & vbcrlf
 strTotal = strTotal + rs("NumberMachines")
rs.moveNext
LOOP
'-----------------------------
'Generate name for html
'-----------------------------
da = DAY(DATE)
mo = MONTH(DATE)
yr = YEAR(DATE)
sFname = "QueryBySubnet_" & SN & "_" & da & "_" & mo & "_" & yr & ".html"
'--------------------------------------
'Remove earlier instance of html
'--------------------------------------
Set g = oFS.GetFolder(mapPath)
Set f = g.Files
For Each f1 in f
 SRC = Split(f1,mapPath)
 If Left(SRC(1),14)="QueryBySubnet_" Then
  oFS.DeleteFile f1
 End If
Next
'-------------------------------------------------
'If no entry is made, use 0 as place holder
'-------------------------------------------------
If strTotal = "" Then
strTotal = "0"
End If

'----------------------------------------------
'Import Database information into html
'----------------------------------------------
Set cf = oFS.OpenTextFile(mapPath & sFname,8,True)
cf.WriteLine "<TABLE BORDER=3 CELLSPACING=1 CELLPADDING=1 BGCOLOR=#9acd32>"
cf.WriteLine "<CAPTION>Query by Subnet - " & SN & " "
cf.WriteLine "You may need to " & chr(34) & "REFRESH" & chr(34) & " this page for most current information. "
cf.WriteLine "Total Number of Machines Imaged on " & SN & " subnet: " & strTotal & "</CAPTION>"
cf.WriteLine "<TR><TD ALIGN = CENTER>Start Time</TD><TD ALIGN = CENTER>Run Time</TD><TD ALIGN = CENTER>Date</TD><TD ALIGN = CENTER># Machines</TD><TD ALIGN = CENTER>Tech Name</TD><TD ALIGN = CENTER>Subnet</TD><TD ALIGN = CENTER>Asset Tag</TD><TD ALIGN = CENTER>MAC Address</TD><TD ALIGN = CENTER>Manufact</TD><TD ALIGN = CENTER>Model</TD><TD ALIGN = CENTER>Serial</TD><TD ALIGN = CENTER>Image Reason</TD></TR>"
cf.WriteLine strInfo
cf.WriteLine "</TABLE>"
cf.Close
wscript.echo "Done"
WScript.Quit

(in reply to ehvbs)

Post #: 3

RE: Script - Table create for webpage - 11/19/2005 3:50:28 AM

TNO

Posts: 1036
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

The answer is so simple you overlooked it.

you don't need the tags. You already have <TR> tags defining the Table Rows.

Good Luck

< Message edited by TNO -- 11/19/2005 11:47:51 PM >

_____________________________

Consolidated Script Component: The Acid Test

A universe of complexity...

(in reply to Country73)

Post #: 4

RE: Script - Table create for webpage - 11/21/2005 12:27:34 AM

Country73

Posts: 710
Score: 8
Joined: 8/25/2004
From: USA
Status: offline

DOH!

Why oh why did I put that in there?!?
Thanks for pointing out my simple mistake TNO, that did the trick.

(in reply to TNO)

Post #: 5

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [General Forum] >> Other Programming/Scripting Languages >> Script - Table create for webpage

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts