<![CDATA[
<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
dim l, heading, listid, directions, body
l = Request.Form("listid")
heading = "<html>" & vbCrLf & _
"<head>" & vbCrLf & _
"</head>" & vbCrLf & _
"<body>" & vbCrLf
listid = "<p>ListID: " & l & "</p>" & vbCrLf
directions = "<p>Enter numbers separated by a comma.</p>" & vbCrLf
body = "<form action=""page2.asp"" method=""post"" id=""form1"" name=""form1"">" & vbCrLf & _
"<p><input type=""text"" id=""listid"" name=""listid"" size=""50"" maxlength=""1000"" /></p>" & vbCrLf & _
"<p><input name=""b1"" type=""Submit"" value=""Submit"" />" & vbCrLf & _
"<input name=""b1"" type=""Reset"" value=""Reset"" />" & vbCrLf & _
"</p>" & vbCrLf & _
"</form>" & vbCrLf & _
"</body>" & vbCrLf & _
"</html>" & vbCrLf
Response.Write(heading)
if l <> "" then
Response.Write(listid)
end if
Response.Write(directions & body)
%>
]]>