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>