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 %>
Name of Website
URL of website
Your Name
Rating
Scale of 1 to 5
<% 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, "" wend response.write "
") response.write "
" & mydata & "
" 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%>