Anthony1312002
Programmer
I have tow forms one called ReadingTest.asp and the other ReadFile.asp. On the form ReadingTest.asp I have a button that opens a dialog box that allows me to search for a file that I want to import. When I click the import button I call the ReadFile.asp form which processed the selected file. Everything works just fine on the local machine but when I try this using a remote PC I get the dis not ready error on the line that I have in bold in ReadFile.asp. What's wrong? Why does this work only on the local machine?
ReadingTest.asp
Dim MyDated, RecordDate
Dim MyIncomingDate
MyIncomingDate = Request.Form("field")
set x=new RegExp
x.Pattern="[0-9]{6,6}"
x.Global=true
x.IgnoreCase=true
set match=x.Execute(MyIncomingDate)
data=""
For Each m in match ' Iterate Matches collection.
data=FormatDateTime(Mid(m.value,1,2)&"/"&Mid(m.value,3,2)&"/"&Mid(m.value,5,2))
Next
Dim FileNamed
FileNamed = Request.Form("Field")
MyDated = (Data)
<b><font face="Arial"><a href="ReadFile.asp?RecordDate=<%=(FileNamed)%>">Continue</a></font></b></td>
ReadFile.asp
MyFile = Request.QueryString("RecordDate")
Set objText=objFile.OpenTextFile(MyFile)
ReadingTest.asp
Dim MyDated, RecordDate
Dim MyIncomingDate
MyIncomingDate = Request.Form("field")
set x=new RegExp
x.Pattern="[0-9]{6,6}"
x.Global=true
x.IgnoreCase=true
set match=x.Execute(MyIncomingDate)
data=""
For Each m in match ' Iterate Matches collection.
data=FormatDateTime(Mid(m.value,1,2)&"/"&Mid(m.value,3,2)&"/"&Mid(m.value,5,2))
Next
Dim FileNamed
FileNamed = Request.Form("Field")
MyDated = (Data)
<b><font face="Arial"><a href="ReadFile.asp?RecordDate=<%=(FileNamed)%>">Continue</a></font></b></td>
ReadFile.asp
MyFile = Request.QueryString("RecordDate")
Set objText=objFile.OpenTextFile(MyFile)