VBScript runtime error 800a003e

jsallmann_at_wiscomp.com
Date: 12/09/04


Date: 9 Dec 2004 12:40:47 -0800

Hello group I am getting the following error when running an .asp
script

Microsoft VBScript runtime error '800a003e'

Input past end of file

/membership/admin/qryimport_new.asp, line 32

I have no idea what the problem is. Here is the qryimport_new.asp I
have noted line 32. Any help will be greatly apprciated.

Thank you

<html>
<head>
<title>Membership Admin - this is a test page just to run data for
tbl_Members2</title>
</head>

<body>

<!--#include file="../dbase/conn.asp"-->
<!--#include file="../dbase/commonFunctions.asp"-->
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")

' Set the image upload options

uploadPath = "c:/inetpub/wwwroot/membership/admin/" & "MembersList"

' Upload the incoming file
If upl.Form("Members").IsEmpty = "0" Then

filename = "Members.txt"
'response.write uploadPath & filename
upl.Form("Members").SaveAs uploadPath & filename

End If

Server.ScriptTimeout = 1440

' Creating a file scripting object and read the file into a variable
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fFile = fs.OpenTextFile(uploadPath & fileName, 1, True, False)
line 32 strFile = fFile.ReadAll
fFile.Close
set fFile = Nothing

' split the file into rows
aryRows = split(strFile, vbCrLf)
if ubound(aryRows)>0 Then

Conn.Execute "Delete * FROM tbl_Members2"
For each sRow in aryRows
nRecords = nRecords + 1
aryCols = split(sRow, vbTab)
if uBound(aryCols)>0 Then
sMembershipID = escQuote(aryCols(0))
sFirstName = escQuote(aryCols(1))
sLastName = escQuote(aryCols(2))
sFirmName = escQuote(aryCols(3))
sFirmName2 = escQuote(aryCols(4))
sAddress = escQuote(aryCols(5))
sAddress2 = escQuote(aryCols(6))
sCity = escQuote(aryCols(7))
sState = escQuote(aryCols(8))
sZipCode = escQuote(aryCols(9))
sCountry = escQuote(aryCols(10))
sPhoneNumber = escQuote(aryCols(11))
sPhoneExt = escQuote(aryCols(12))
sEmailAddress = escQuote(aryCols(13))
sPosition = escQuote(aryCols(14))
sGeneralPosition = escQuote(aryCols(15))
sTypeIndustry = escQuote(aryCols(16))
sCommittee = escQuote(aryCols(17))
sCPOS = escQuote(aryCols(18))
sFC = escQuote(aryCols(19))
'sFC = ""

strSQL = " insert into tbl_Members2 ([MembershipID], [FirstName],
[LastName], [FirmName], "
strSQL = strSQL & " [FirmName2], [Address], [Address2], [City],
[State], [ZipCode], "
strSQL = strSQL & " [Country], [PhoneNumber], [PhoneExt],
[EmailAddress], "
strSQL = strSQL & " [Position], [GeneralPosition], [TypeIndustry],
"
strSQL = strSQL & " [Committee], [CPOS], [FC]) "
strSQL = strSQL & " values ('" & sMembershipID & "', "
strSQL = strSQL & " '" & sFirstName & "','" & sLastName & "','" &
sFirmName & "', "
strSQL = strSQL & " '" & sFirmName2 & "','" & sAddress & "','" &
sAddress2 & "', "
strSQL = strSQL & " '" & sCity & "','" & sState & "','" & sZipCode
& "', "
strSQL = strSQL & " '" & sCountry & "','" & sPhoneNumber & "','" &
sPhoneExt & "', "
strSQL = strSQL & " '" & sEmailAddress & "','" & sPosition & "', "
strSQL = strSQL & " '" & sGeneralPosition & "', '" & sTypeIndustry
& "', "
strSQL = strSQL & " '" & sCommittee & "', '" & sCPOS & "', "
strSQL = strSQL & " '" & sFC & "') "
'response.write nRecords & ": " & strSQL & "<BR><BR>"
Conn.Execute strSQL
End If
next

end If

set fs = nothing
set upl = nothing
%>

<TABLE>
<TR><TD>&nbsp;</td></tr>
<TR><TD>
<font face="Verdana" size="2" color="#3D5FA5">
Successfully imported <font color="red"><B><%= nRecords%></B></font>
to table tbl_Members2. (* new table)
</td></tr>
<TR><TD>&nbsp;</td></tr>
<TR><TD>&nbsp;</td></tr>
<TR><TD>&nbsp;</td></tr>
<TR><TD><font face="Verdana" size="2" color="#3D5FA5"><a
href="import_new.asp">Upload Again</a></td></tr>
</table>
        
</body>
</html>



Relevant Pages

  • Re: automated upload with PHP
    ... have your script one once per day and upload any images not already ... tiffs and the php script, ... // request local file read permission ...
    (comp.lang.php)
  • [UNIX] Cobalt Raq XTR Combination Attack (Remote/Local)
    ... Due to an authentication bug in the upload Handler, ... The next problem lies in the base64 encoding of the filename, ... After the symlinks have been created (script to create base64 symlink is ...
    (Securiteam)
  • Re: automated upload with PHP
    ... have your script one once per day and upload any images not already ... providing it can have an ftp serve running on it, ... tiffs and the php script, ...
    (comp.lang.php)
  • Re: automated upload with PHP
    ... have your script one once per day and upload any images not already ... providing it can have an ftp serve running on it, ... tiffs and the php script, ...
    (comp.lang.php)
  • Re: IIS Security Question
    ... input that changes the operation of the ASP code in some ... >that folder would only be accessible via the upload ... >script can't be misused, ... >another folder, or uploading an ASP script to a folder ...
    (microsoft.public.inetserver.iis.security)