|
| Narrative spreads or fills lissomely as the past processes in recursion. |
|
<%If bSaved Then%>
A cookie, a file stored in your system directory that contains information that
I choose about you in it, has been saved on your computer.
This allows me to know when or if you return. <%end if%> |
| Your name<%response.write(Namefirst)%> and email address, <%response.write(Email)%> along with other information, has been entered into my database. |
| She stares at fingernails. She notices uneven cuticles, calcium deposits, poorly sanded drywall and well developed research papers. She does not recognize a sentient psyche. She whispers loudly, "<% response.write(Word)%>—"? |
| <% response.write(MoreWords)%> |
|
| <%
Dim objRecUser, objRecWord
Set objRecWord=Server.CreateObject("ADODB.Recordset")
objRecWord.Open"Word","DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DriverId=25;DBQ=F:\inetpub555\wwwroot\kkaedin\fpdb\hand.mdb",1,3
do while not objRecWord.EOF
Response.Write (" IDENTITY ")
Response.Write objRecWord("userId")
Response.Write (" INFORMATION ")
Response.Write objRecWord("word")
Response.Write (" VOICE ")
Response.Write objRecWord("worduser")
Response.Write (" WATCHING ")
Response.Write objRecWord("morewords1")
Response.Write (" VOICE ")
Response.Write objRecWord("morewords2")
Response.Write (" VOYEUR ")
Response.Write objRecWord("morewords3")
Response.Write (" TRACK ")
Response.Write objRecWord("morewords4")
Response.Write (" PEERING ")
objRecWord.movenext
loop
objRecWord.Close
Set objRecWord = Nothing
Set objRecUser=Server.CreateObject("ADODB.Recordset")
objRecUser.Open"User","DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DriverId=25;DBQ=F:\inetpub555\wwwroot\kkaedin\fpdb\hand.mdb",1,3
do while not objRecUser.EOF
Response.Write (" ACUTE ")
Response.Write (" IDENTITY ")
Response.Write objRecUser("userId")
Response.Write (" INFORMATION ")
Response.Write (" EYE ")
Response.Write objRecUser("firstname")
Response.Write (" NULL ")
Response.Write (" VOICE ")
Response.Write objRecUser("lastname")
Response.Write (" FOCUSED ")
Response.Write (" VOYEUR ")
Response.Write objRecUser("email")
Response.Write (" TRACK ")
Response.Write (" PEERING ")
objRecUser.movenext
loop
objRecUser.AddNew
objRecUser("lastname")=Request.Form("a_namelast")
objRecUser("firstname")=Request.Form("a_namefirst")
objRecUser("email")=Request.Form("a_email")
objRecUser.Update
objRecUser.Close
Set objRecUser = Nothing
Response.Write (" ") Response.Write (" YOU HAVE BEEN ADDED TO THE DATA ") Response.Write (" ") %> |
|
|