Really need help
Dear All,
I already create an ASP Page..
<%
'Author : Yani
'Date : 29 Dec 2005
'Purpose: To read out.txt file
dim nextAspPage
nextAspPage=resetPINOut.asp
dim nextAspPage1
nextAspPage=generateKeyPairOut.asp
dim nextAspPage2
nextAspPage=insertCertificateOut.asp
dim nextAspPage3
nextAspPage=deleteCertificateOut.asp
dim nextAspPage4
nextAspPage=insertURLOut.asp
dim nextAspPage5
nextAspPage=deleteURLOut.asp
If session("check") = true then
'Read the data(respond from server) filename : ->out.txt
Dim writefs
Dim wfile
Set writefs = Server.CreateObject("Scripting.FileSystemObject")
Set wfile = writefs.OpenTextFile("c:\out.txt")
filecontent = wfile.ReadAll
wfile.close
strLength=Len(filecontent)
'check length
If strLength=24 Then
dataOut=filecontent
session("content") = dataOut
Else
Set readfs = Server.CreateObject("Scripting.FileSystemObject")
Set a = readfs.CreateTextFile("c:\error.txt", True)
a.WriteLine (filecontent)
a.Close
End If
'to indicate which file to execute
If session("filename") = true then
response.redirect nextAspPage
Elseif session("filename1") = true then
response.redirect nextAspPage1
Elseif session ("filename2") then
response.redirect nextAspPage2
Elseif session("filename3") then
response.redirect nextAspPage3
Elseif session("filename4") then
response.redirect nextAspPage4
Else
response.redirect nextAspPage5
End If
End If
%>
but I got this error..
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'resetPINOut'
/ResetPINin/readFile.asp, line 8
anyone could hep me to fix it?
thank you
|