stephen
Mon Feb 09 12:29:05 CST 2004
Thank you, I will try this.
Robnson
"Viatcheslav V. Vassiliev" <msnewsgroup@www-sharp.com> wrote in message news:<#HjTCvV7DHA.360@TK2MSFTNGP12.phx.gbl>...
> Yes.
>
> >Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _
> >"user id=sa;password=XXXXX;" & _
> >"initial catalog=Eventlogs"
>
> Conn.Open is method, not property. Remove '='.
>
> Conn.Open "Provider=SQLOLEDB;Data Source=SCK-EAV-01;User
> ID=sa;Password=XXXXX;Initial Catalog=Eventlogs;"
>
> >if objConn.state = 0 then
> >Conn.Open Conn
> >end if
>
> Remove if - connection is closed, it is just created. "Conn.Open Conn" is
> not valid - connection is open yet and you can not specify connection object
> as parameter to Open. Remove all those lines.
>
> >strSQL = "SELECT ComputerName, EventCode,
> >Message,SourceName,TimeWritten,Type FROM
> >EventTable WHERE Type=('error') ORDER BY TimeWritten"
>
> Do not forget & _ with multi-line statements. Column name Type should be
> enclosed in [] - Type is very probable a keywork. You may ecnlose in [] all
> column/table names
>
> strSQL = "SELECT [ComputerName], [EventCode], [Message] " & _
> "[SourceName], [TimeWritten], [Type] FROM [EventTable] " & _
> "WHERE [Type]='error' ORDER BY [TimeWritten]"
>
> >objRS.Open strSQL, objConn, adOpenStatic, adLockOptimistic,
> adOpenForwardOnly (0)
>
> objRS.Open strSQL, Conn, 0, 1 'adOpenForwardOnly, adLockReadOnly
>
> >While Not objRS.EOF
> >Response.Write strSQL
> >objRS.MoveNext
>
> "Response.Write strSQL" now becomes "WScript.Echo strSQL" but I think you
> may output something more usefull such as
>
> WScript.Echo objRS("ComputerName") & " - " & objRS("EventCode") & " - " &
> objRS("Message")
>
> '======================================
> dim Conn, objRS, objConn
> Set Conn = CreateObject("ADODB.Connection")
> Set objRS = CreateObject("ADODB.Recordset")
> Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _
> "user id=sa;password=XXXXX;" & _
> "initial catalog=Eventlogs"
>
> dim strSQL, objRS
>
> strSQL = "SELECT [ComputerName], [EventCode], [Message] " & _
> "[SourceName], [TimeWritten], [Type] FROM [EventTable] " & _
> "WHERE [Type]='error' ORDER BY [TimeWritten]"
>
> objRS.Open strSQL, Conn, 0, 1 'adOpenForwardOnly, adLockReadOnly
>
> objRS.MoveFirst
> While Not objRS.EOF
> WScript.Echo objRS("ComputerName") & " - " & objRS("EventCode") & " - " &
> objRS("Message")
> objRS.MoveNext
> Wend
> '====================================
>
> //------------------------------------
> Regards,
> Vassiliev V. V.
>
http://www-sharp.com - best scripting/compiled HTA IDE
>
> "robnson" <stephen@ncsquare.com> ???????/???????? ? ???????? ?????????:
> news:3af55c40.0402070013.15a5b00b@posting.google.com...
> > I guesss I am not getting it, I made the suggested changes, and still
> > no go. Is there a way just to run the vbs to see if I can get some
> > output. Like a wscript.Echo or something like that. Thanks a million
> > for all the help.
> >
> > Robnson
> >
> > <%@ Language = VBScript %>
> > <%Option Explicit%>
> >
> >
> > <HTML>
> > <HEAD>
> > <h1>
> > Eventlogs For January 29, 2004
> > </h1>
> > <META NAME="Eventlogs" Content="Microsoft Visual Studio 6.0">
> > <TITLE></TITLE>
> >
> > <%
> >
> > dim Conn, objRS, objConn
> > Set Conn = CreateObject("ADODB.Connection")
> > Set objRS = CreateObject("ADODB.Recordset")
> > Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _
> > "user id=sa;password=XXXXX;" & _
> > "initial catalog=Eventlogs"
> > Conn.ConnectionTimeout = 15
> > Conn.CommandTimeout = 10
> > Conn.Mode = 3 'adModeReadWrite
> > if objConn.state = 0 then
> > Conn.Open Conn
> > end if
> >
> > dim strSQL, objRS
> > strSQL = "SELECT ComputerName, EventCode,
> > Message,SourceName,TimeWritten,Type FROM
> > EventTable WHERE Type=('error') ORDER BY TimeWritten"
> > objRS.Open strSQL, objConn, adOpenStatic, adLockOptimistic,
> > adOpenForwardOnly (0)
> >
> > objRS.MoveFirst
> > While Not objRS.EOF
> >
> > Response.Write strSQL
> >
> > objRS.MoveNext
> > Wend
> >
> >
> > %>
> >
> > </HEAD>
> > <BODY>
> >
> > <P><% Response.Write strSQL %></P>
> >
> > </BODY>
> > </HTML>
> >
> > "Viatcheslav V. Vassiliev" <msnewsgroup@www-sharp.com> wrote in message
> news:<uITSNnO7DHA.2924@tk2msftngp13.phx.gbl>...
> > > > objConn.Open "DSN=EventLogs;"
> > >
> > > Use native OLEDB provider if possible. For example, SQLOLEDB for MS SQL
> > > Server, Microsoft.Jet.OLEDB.4.0 for MS Jet (MS Access).
> > >
> > > > strSQL = "SELECT *, ComputerName, EventCode,
> > > > Message,SourceName,TimeWritten, Type FROM EventTable WHERE (Type =
> > > > ''Information'') ORDER BY 'TimeWritten'"
> > >
> > > Use either
> > >
> > > SELECT * FROM EventTable WHERE ...
> > >
> > > or
> > >
> > > SELECT ComputerName, EventCode, Message,SourceName,TimeWritten, Type
> FROM
> > > EventTable WHERE ...
> > >
> > > Using SELECT *, ... you will get columns twice.
> > >
> > > > ORDER BY 'TimeWritten'
> > > Quotes should not be used here - it is column name, not value.
> > >
> > > > objRS.Open strSQL,objConnection,3,3
> > >
> > > = objRS.Open strSQL, objConnection, adOpenStatic, adLockOptimistic
> > >
> > > Use adOpenForwardOnly (0) if you do not need bookmarks - it is faster.
> > >
> > > > Response.Write("<Table Border=0 cellpadding=2 cellspacing=2>")
> > > > Response.Write("<tr bgcolor=#DFD9E6><td width=30
> > > > bgcolor=white> </td><td>" & objRS("ComputerName") & "</td><td>" &
> > > > objRS("Type") & "</td></tr>" & objRS("EventCode") & "</td></tr>" &
> > > > objRS("SourceName") & "</td></tr>" & objRS("Message") & "</td></tr>" &
> > > > objRS("TimeWriiten") & "</td></tr>")
> > > > objRS.MoveNext
> > > > next
> > >
> > > objRS.MoveFirst is missed. Next presents without For. Use While .. Wend
> > > instead of For .. Next
> > >
> > > objRS.MoveFirst
> > > While Not objRS.EOF
> > > ...
> > > objRS.MoveNext
> > > Wend
> > >
> > > //------------------------------------
> > > Regards,
> > > Vassiliev V. V.
> > >
http://www-sharp.com - best scripting/compiled HTA IDE
> > >
> > > "robnson" <stephen@ncsquare.com> ???????/???????? ? ???????? ?????????:
> > > news:3af55c40.0402060935.16d3df2a@posting.google.com...
> > > > I could use someones help if possible. I am a new person to the whole
> > > > scripting thing, and know very basic information about HTML/ASP. What
> > > > I am trying to do is query a SQL Database and send the results to a
> > > > webpage in a table format. Below is a sample of my code, and any help
>
> > > > will be greatfully appreciated. If you could recommend a book, or
> > > > provide sample code, that would be wonderful
> > > >
> > > > Thanks,
> > > >
> > > > Robnson
> > > >
> > > > <%@ Language = VBScript %>
> > > > <%Option Explicit%>
> > > >
> > > >
> > > > <HTML>
> > > > <HEAD>
> > > > <h1>
> > > > Eventlogs For January 29, 2004
> > > > </h1>
> > > > <META NAME="Eventlogs" Content="Microsoft Visual Studio 6.0">
> > > > <TITLE></TITLE>
> > > >
> > > > <%
> > > >
> > > > dim Conn, objRS, objConn
> > > > Set Conn = CreateObject("ADODB.Connection")
> > > > Set objRS = CreateObject("ADODB.Recordset")
> > > > objConn.Open "DSN=EventLogs;"
> > > >
> > > > Conn.ConnectionTimeout = 15
> > > > Conn.CommandTimeout = 10
> > > > Conn.Mode = 3 'adModeReadWrite
> > > > if objConn.state = 0 then
> > > > objConnection.Open strConnectString
> > > > end if
> > > >
> > > > dim strSQL, objRS
> > > > strSQL = "SELECT *, ComputerName, EventCode,
> > > > Message,SourceName,TimeWritten, Type FROM EventTable WHERE (Type =
> > > > ''Information'') ORDER BY 'TimeWritten'"
> > > > objRS.Open s