This is a sample ASP page to be used with the pbmCodeFormatter component.
This code will not work if executed. <%
Rem This is the second comment line
Dim rstMain
Dim intCounter
'
Set rstMain = Server.CreateObject("ADODB.RecordSet")
rstMain.Open "tblMain", "dnsMain", adOpenForwardOnly, adLockReadOnly, adCmdText
If rstMain.Eof = True Then Response.Write "No Records"
While Not rstMain.Eof ' This is the third comment line
intCounter = intCounter + 1
Response.Write rstMain("fldFirst")
Wend
rstMain.Close
Set rstMain = Nothing
'
Dim objFileSystem
Dim objFile
Dim objTextStream
'
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile("myfile.txt")
Set objTextStream = objFile.OpenAsTextStream(1, -2)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine & vbCrLf
Wend
objTextStream.Close
Set objTextStream = Nothing
Set objFile = Nothing
Set objFileSystem = Nothing
'
%>
<% ' ' This is the first comment line Option Explicit On Error Resume Next %>
This is a sample ASP page to be used with the pbmCodeFormatter component.
This code will not work if executed. <%
Rem This is the second comment line
Dim rstMain
Dim intCounter
'
Set rstMain = Server.CreateObject("ADODB.RecordSet")
rstMain.Open "tblMain", "dnsMain", adOpenForwardOnly, adLockReadOnly, adCmdText
If rstMain.Eof = True Then Response.Write "No Records"
While Not rstMain.Eof ' This is the third comment line
intCounter = intCounter + 1
Response.Write rstMain("fldFirst")
Wend
rstMain.Close
Set rstMain = Nothing
'
Dim objFileSystem
Dim objFile
Dim objTextStream
'
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile("myfile.txt")
Set objTextStream = objFile.OpenAsTextStream(1, -2)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine & vbCrLf
Wend
objTextStream.Close
Set objTextStream = Nothing
Set objFile = Nothing
Set objFileSystem = Nothing
'
%>
<% ' ' This is the first comment line Option Explicit On Error Resume Next %>
This is a sample ASP page to be used with the pbmCodeFormatter component.
This code will not work if executed. <%
Rem This is the second comment line
Dim rstMain
Dim intCounter
'
Set rstMain = Server.CreateObject("ADODB.RecordSet")
rstMain.Open "tblMain", "dnsMain", adOpenForwardOnly, adLockReadOnly, adCmdText
If rstMain.Eof = True Then Response.Write "No Records"
While Not rstMain.Eof ' This is the third comment line
intCounter = intCounter + 1
Response.Write rstMain("fldFirst")
Wend
rstMain.Close
Set rstMain = Nothing
'
Dim objFileSystem
Dim objFile
Dim objTextStream
'
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile("myfile.txt")
Set objTextStream = objFile.OpenAsTextStream(1, -2)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine & vbCrLf
Wend
objTextStream.Close
Set objTextStream = Nothing
Set objFile = Nothing
Set objFileSystem = Nothing
'
%>
<% ' ' This is the first comment line Option Explicit On Error Resume Next %>
This is a sample ASP page to be used with the pbmCodeFormatter component.
This code will not work if executed. <%
Rem This is the second comment line
Dim rstMain
Dim intCounter
'
Set rstMain = Server.CreateObject("ADODB.RecordSet")
rstMain.Open "tblMain", "dnsMain", adOpenForwardOnly, adLockReadOnly, adCmdText
If rstMain.Eof = True Then Response.Write "No Records"
While Not rstMain.Eof ' This is the third comment line
intCounter = intCounter + 1
Response.Write rstMain("fldFirst")
Wend
rstMain.Close
Set rstMain = Nothing
'
Dim objFileSystem
Dim objFile
Dim objTextStream
'
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile("myfile.txt")
Set objTextStream = objFile.OpenAsTextStream(1, -2)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine & vbCrLf
Wend
objTextStream.Close
Set objTextStream = Nothing
Set objFile = Nothing
Set objFileSystem = Nothing
'
%>