<% OPTION EXPLICIT %>
<!-- #include file="conn.asp" -->
<html>
<head>
<title>Phuzzphase tagwall</title>
</head>
<body background="bg.jpg">
<table width="100%"><TR><TD>
<% dim strAction
strAction=request("action")
select case strAction
case "write"
'vis formular til indlæsning
ShowOptions
ShowList request("fromId")
case "insert"
'indsæt resultat af formular
WriteForm
ShowOptions
ShowList 0
case else
'vis valgmuligheder
ShowOptions
end select
'------------------------------------------
' Funktioner/Procedurer
'------------------------------------------
sub ShowForm
'viser en formular, hvor den besøgende indtaster i
%>
<form action="tagwall.asp?action=insert" method="post">
<table width=300 align="center" cellpadding=0 cellspacing=7>
<TR><TD><div align="center">Name:
<input type="text" name="guestName">
</div></TD></TR>
<TR><TD><div align="center">Email:
<input type="text" name="guestEmail">
</div></TD></TR>
<TR><TD><div align="center">
<textarea name="guestMessage" cols="50" rows="10"></textarea>
</div></TD></TR>
<TR><TD><div align="right">
<input type="submit" value="Add">
</div></TD></TR>
<TR align="center"><TD align="center">
<div align="left">
<% end sub
sub ShowList (intFromId)
'viser 10 indlæg ad gangen
dim strSQL, objRS, strWhere
dim strRows, i
IF intFromId > 0 THEN
strWhere = " WHERE guestId <= " & intFromId & " "
ELSE
strWhere = ""
END IF
strSQL = "SELECT guestId, guestName, guestEmail, guestMessage FROM Tagwall " & strWhere & "ORDER BY datesubmitted DESC"
set objRS = server.CreateObject("ADODB.Recordset")
with objRS
.open strSQL, strConnect, 0, 1, 1
IF NOT .EOF THEN
arrRows = .GetRows(10)
END IF
.close
end with
set objRS = Nothing
IF isArray(arrRows) THEN
intFromId = arrRows(0, ubound(arrRows, 2))
for i= 0 to ubound(arrRows, 2)
response.write arrRows(0,i) & ". " &_
arrRows(1,i) &_
"<br>" & arrRows(2,i) &_
"<br>" & arrRows(3,i) & "<hr>"
next
response.write _
"<a href='tagwall.asp?action=show&fromid=" & intFromId+10 & "'>Prev</a> " &_
"<a href='tagwall.asp?action=show&fromId=" & intFormId -1 & "'>Next</a> "
ELSE
response.write "<p>No more</p>"
END IF
end sub
sub WriteForm
'Indlægget skrives til db
dim strSQL, objCMD
strSQL = "INSERT INTO Tagwall (guestName, guestEmail, guestMessage, datesubmitted) " &_
"VALUES (" &_
"'" & request("questName") & "', " &_
"'" & request("guestEmail") & "', " &_
"'" & request("guestMessage") & "', " &_
"getdate() )"
set objCMD = server.CreateObject("ADODB.Command")
with objCMD
.ActiveConnection = strConnect
.CommandType = adCmdText
.CommandText = strSQL
.Execute
end with
set objCMD = Nothing
end sub
sub ShowOptions
'viser hvilke muligheder der er
%>
</div> <h1 align="left">Tagwall</h1>
<p align="left">
Leave a message for fuzzphase
<br>
<a href="tagwall.asp?action=write">Write a message</a><br>
<a href="tagwall.asp?action=show">Read</a>
</p>
<div align="left">
<% end sub
%>
</div></TD></TR>
</table>
</form>
</TD></TR></table>
</body>
</html
