Search results matching tag 'vbscript'

Problems with ExecuteGlobal in VBScript on IIS 5.1 but not 6.0

djplong — Fri, 30 Oct 2009 17:37:33 GMT

What setting might be missing or misapplied that would cause the same code that works on an IIS 6.0 server to fail on an IIS 5.1 server?

I've inherited this large Classic ASP application. It "caches" a series of files with funcitons in them using the ExecuteGlobal command. On both server, the command executes without error. However, when the application later tries to reference the functions that were 'cached', IIS 6.0 seems to work just fine while IIS 5.1 acts as though those functions never existed and I get errors to that effect.

The 5.1 system is for testing purposes on an XP Pro box. The 6.0 is our production system on Windows 2003.

It's taken a long time to isolate the problem (identical code failing in test but working in production) to this code. Setting up another server isn't an option unfortunately (budget restraints - no money to pay the support people or to rent space where all servers must be physically located - military installation).

What directions have I missed looking into?

IIS 5.1 on XP SP3, classic ASP, VBScript

p13rr3 — Tue, 06 Oct 2009 11:29:52 GMT

I have an old web site running on the quoted configuration that I have to maintain but I'm not fluant with this old VBScript. where can I find an (on-line) reference manual ?

TIA, Pierre.

Is there a maximum number of variables that can be used in a VBScript / ASP page?

Hobbes23 — Sun, 11 Jan 2009 08:52:14 GMT

I have an error that recently came up as I was adding more code to a large application written in VBScript in the classic asp.
After some testing it seems to me that it has an issue with the number of variables used in my script. Since all pages are linked by using includes, and all processing and displaying is done through the same root asp page, it is thousands of lines long and could have this many variables I guess.
Here is the error message I get:
Microsoft VBScript runtime error '800a0006'

Overflow: '[number: 32771]'

/default.asp, line 519

the line 519 is actually after the server has processed thousands of lines in other files. Line 519 is actually blank, and I'm not sure why it even says that line. Made it really difficult to narrow down the actual issue's source.

but when I remove a small displaying of a variable, even that triggers the error. And removing a variable from my code seems to decrement the number displayed in the error after number.

Any ideas? Is there somewhere or somehow for this max limit to be increased?
-Peter

My .vbs is Unable to connect to Access

Gary Dahl — Thu, 08 Jan 2009 01:11:42 GMT

Hello,

I am attempting to have a .vbs file on the server connect to an Access database on that same server. I use the same connection script in my classic .asp pages and it works fine. But when I click on the .vbs file (on the server), I get this:

Script:
C:\website\myvbsfile.vbs
Line: 42
[Microsoft][ODBC Driver Manager]Data Source Name not found and no default driver specified
Code: 80004005 Source: Microsoft OLE DB Provider for ODBC Drivers

'here is the connection vbscript in the .vbs file:Dim objConn

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=c:/databases/mydb.mdb"

objConn.Open 'line 42

My Settings:
Enable 32-bit Applications is set to True. I would like to attempt to connect with a system DSN, but the System DSN tab of the ODBC Data Source Administrator shows no system data sources. If I click the Add button, the Create New Data Source dialog only shows a SQL Server driver. The Drivers tab shows only the SQL Server Driver. However, the USER DSN tab DOES show the Microsoft Access Driver.

Any Ideas?

unable to insert

rajar32 — Mon, 05 Jan 2009 10:37:22 GMT

am trying to insert id to the statustable but i cannot able to add

getting stuck with this error./.

Type mismatch: 'sd'

<%
id = session("userid")
sSql = "SELECT name   FROM nametable WHERE userID = "&id&""
if request.form("submit")="Hide" then
i=0
elseif request.form("submit")="Show" then
i=1
end if
sd= "select id from nametable where userid="&userid&""
'oConn.Execute("UPDATE statustable SET status='"&i&"','"&sd(0)&"' WHERE userID = "&id&"")
set msg=oConn.Execute("insert tbl1 (real,resid,userid) values ('"&i&"','"&sd(0)&"',"&userid&"")
    oRs.Open sSql, oConn
     While not oRs.EOF
          Response.write("<table cellspacing='1' cellpadding='4' class='rep_tbl'><tr><form method='post' ><td width='10%' align='right'>Name : </td><td width='30%'>"&ors(1)&"</td></tr><td align='right'><input name='submit' type='submit' value='Hide' > <input name='submit' type='submit' value='Show' ></td></form></tr></table>")
          oRs.MoveNext()
      Wend
end if
%>

how to maintain a status...asp ...

mathews7 — Sat, 03 Jan 2009 11:19:26 GMT

I have two table in db,namely 1.nametable name_id name id 2.statustable aut_id status name_id i loaded a page with name records for single user(which is id from nametable), now i want to maintain a status for the particular name , for that i created a table which is statustable to attain status i created a two buttons ..namely hide,show button... Clear clarity..... on clicking hide... status should be stored as zero in staustable along with that name_id(of nametable) to be stored.. on clicking show...status should be stored as zero in staustable along with that name_id(of nametable) to be stored Do i need two function to attain dis..?plz suggest how can i proceed....! . .

Name :	"&ors(1)&"

") oRs.MoveNext() Wend end if %>

Re: Logon/Logoff week information

Hitchheik — Tue, 23 Dec 2008 03:15:25 GMT

This is how to see logon/logoff on your computer. Save as LogonLogoff.vbs

'*******************************

Set objLogParser = CreateObject("MSUtil.LogQuery")
Set objInputFormat = CreateObject("MSUtil.LogQuery.EventLogInputFormat")
Set objOutputFormat = CreateObject("MSUtil.LogQuery.DatagridOutputFormat")

strQuery = "SELECT ComputerName, TimeGenerated AS LogonTime, STRCAT(STRCAT(EXTRACT_TOKEN(Strings, 1, '|'), '\\'), EXTRACT_TOKEN(Strings, 0, '|')) AS Username FROM Security WHERE EventID IN (552; 528) AND EventCategoryName = 'Logon/Logoff'"
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat

'********************

Jerome

Re: Simple Query Help

Hitchheik — Tue, 23 Dec 2008 02:50:55 GMT

This is a VBScript that will display an hourly count of your hits. Save top as Hourly.vbs, Save the bottom file in the same directory as your output path as hour_3.xsl. This will open in Explorer when completed'

'===================================================================================
'************************** Set Input and Output formats ******************************
Set objLogParser = CreateObject("MSUtil.LogQuery")
Set objInputFormat = CreateObject("MSUtil.LogQuery.IISW3CInputFormat")
Set objOutputFormat = CreateObject("MSUtil.LogQuery.XMLOutputFormat")
'===================================================================================
'********************************* Set String inputs **********************************
strPath = inputbox ("Where do you want to store output?","Directory Location","c:\scripts\LogParser\")
strComputer = inputbox ("Which Server log to Review","Server Log","ServerName")
strSite = inputbox ("Which Site log to Review","Site Log","1")
strWhen = inputbox("Which Date to look at? YYMMDD format","Date Entry","081217")

objOutputFormat.xslLink = strPath & "Hour_3.xsl"
outputfile = strPath & strComputer & "_WebHitPerHour.xml"
'===================================================================================
'******************************** Insert Query here **********************************
strQuery = "SELECT TO_STRING(time, 'HH') AS HOUR, TO_STRING(TO_LOCALTIME(time), 'HH') AS LOCAL, COUNT(*) AS Hits INTO " & outputfile & " FROM \\" & strComputer & "\c$\Logfiles\W3SVC" & strSite & "\ex" & strWhen & ".log GROUP BY Hour, LOCAL ORDER BY Hour ASC"
'===================================================================================
'******************************** This calls the job **********************************
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat
'===================================================================================
'Z1 ************************ Open file to read *****************************************
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run outputfile

'********************************************************************************************

'Next file

'*****************************************************************************************

<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">

<xsl:template match="/">
<xsl:for-each select="ROOT">
   <HTML>
    <HEAD><TITLE><xsl:value-of select="@CREATED_BY"/> Generated Log</TITLE></HEAD>
    <BODY>

     <CENTER><H1><xsl:value-of select="@CREATED_BY"/> Generated Log</H1></CENTER>
     <CENTER><H2>Generated on <xsl:value-of select="@DATE_CREATED"/></H2></CENTER>
     <CENTER><H2><FONT color="Blue">Hourly Hits</FONT></H2></CENTER>


     <CENTER>
      <TABLE BORDER="0" BGCOLOR="#E0E0E0" CELLPADDING="5">
    <TR bgcolor="#9acd32">
     <TH>GMT</TH>
    <TH>Local</TH>
    <TH>Count</TH>
    </TR>
       <xsl:apply-templates select="ROW"/>
      </TABLE>
     </CENTER>

    </BODY>
   </HTML>
</xsl:for-each>
</xsl:template>
<xsl:template match="ROW">
      <TR BGCOLOR="#F0F0F0">
    <xsl:for-each select="*">
    <TD>
    <xsl:value-of select="."/>
    </TD>
    </xsl:for-each>
      </TR>
</xsl:template>

</xsl:stylesheet>

'*****************************************************************

Jerome

Re: Executing log parser query in vbscript?

Hitchheik — Tue, 23 Dec 2008 02:32:48 GMT

I have an easy template system that I use. There are a number of differences that you need to learn for the input and output factors especially when doing XML or HTML formating. Here is your SQL in VBS format. remember to save as .vbs

'===================================================================================
'************************** Set Input and Output formats ******************************
Set objLogParser = CreateObject("MSUtil.LogQuery")
Set objInputFormat = CreateObject("MSUtil.LogQuery.IISW3CInputFormat")
Set objOutputFormat = CreateObject("MSUtil.LogQuery.W3COutputFormat")
'===================================================================================
'********************************* Set String inputs **********************************
strDate = Replace(Date,"/","-")
outputfile = "c:\temp\soalogs\scrub-ex" & strDate & ".log"
'===================================================================================
'******************************** Insert Query here **********************************
strQuery = "select date, time, s-sitename, s-computername, s-ip, cs-method, cs-uri-stem, cs-uri-query, s-port, cs-username, c-ip, cs(User-Agent), cs(Cookie), cs(Referer), cs-host, sc-status, sc-substatus, sc-win32-status, time-taken FROM c:\temp\logs\ex*.log WHERE cs(Referer) NOT LIKE '%weblink%' AND cs-uri-stem NOT LIKE '%/left1_%' and cs-uri-stem NOT LIKE '%pngbehavior%'"
'===================================================================================
'******************************** This calls the job **********************************
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat
'===================================================================================
'*************************** Open file to read ****************************************
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run outputfile

'**************************************************************************************

you do not need the Open file section except to make sure it works.

Jerome

No Useful Error Messages Appear

Gary Dahl — Fri, 19 Dec 2008 17:13:14 GMT

Hello,

We don't have any useful error messages appearing with classic ASP and IIS 7. We're trying to have errors with line numbers and specific codes for debugging purposes.

Errors on my local browser are all "500 - Internal Server error". The same error on the server is "HTTP 500 the website cannot display the page".

In IIS, Calculate line numbers, Enable Client-side debugging, Enable Server-side debugging and send errors to browser are all set to true. In my IE, Disable Script Debugging is unchecked. Show friendly error messages, has been tried off and on.

We've spent days on this to no avail. Any help would be greatly appreciated.

Gary