asp
[Projects]--
CSS*
HTML*
JAVA SCRIPT*
PERL*
PHP*
ASP*
XML--
[Back to Home]
CIW Resources Submission Page
<%
If Request.Form("ws") = ""Then
REM When website is empty display form
%>
<%
Else
%>
<%
Dim mydata
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TriStateTrue = -1
Const TriStateFalse = 0
Const TriStateUseDefault = -2
website = Request.Form("ws")
Set filesys=Server.CreateObject("Scripting.FileSystemObject")
if website = "junk" then
REM Read File
set file=filesys.OpenTextFile(Server.MapPath("thelinks.dat"), _
ForReading, false, TriStateUseDefault)
response.write ""
while not file.AtEndOfStream
mydata = file.readLine
mydata = replace(mydata, VBTab, "")
response.write " | " & mydata & " |
"
wend
response.write "
"
else
REM Write File
theurl = Request.Form("url")
name = Request.form("name")
rating = Request.Form("rating")
Set file=filesys.OpenTextFile(Server.MapPath("thelinks.dat"), _
ForAppending, true, TriStateUseDefault)
mydata = website & VBTab & theurl & VBTab & name & VBTab & rating
response.write("You submitted the following info
" & mydata)
file.WriteLine(mydata)
end if
file.Close
Set filesys=Nothing
Set file=Nothing
%>
<%End If%>