|
Your
Feedback
<%
SELECT CASE request.querystring("action")
CASE "post"
FirstName=CleanField(request.form("First Name"))
Surname=CleanField(request.form("Surname"))
JobTitle=CleanField(request.form("Job Title"))
Organisation=CleanField(request.form("Organisation"))
Email=CleanField(request.form("Email Address"))
MessageBody=CleanField(request.form("Feedback Message"))
sSQL="INSERT INTO tbFeedback (DateStamp,MessageBody,FirstName,Surname,Organisation,JobTitle,Email,FeedbackType,Live) VALUES("
sSQL=sSQL & "'" & Now() & "',"
sSQL=sSQL & "'" & MessageBody & "',"
sSQL=sSQL & "'" & FirstName & "',"
sSQL=sSQL & "'" & Surname & "',"
sSQL=sSQL & "'" & Organisation & "',"
sSQL=sSQL & "'" & JobTitle & "',"
sSQL=sSQL & "'" & Email & "',"
sSQL=sSQL & "'SL',"
sSQL=sSQL & "'N')"
con.Execute sSQL
%>
Thankyou
for submitting your feedback.
Click
here to return to the School Librarians home page.
<%
CASE ELSE
%>
<%
'GET CURRENT LIVE FEEDBACK BY DATE
sSQL="SELECT DateStamp,MessageBody,FirstName,Surname,Organisation,JobTitle,Email FROM tbFeedback WHERE Live='Y' ORDER BY ID Desc"
'response.write sSQL & "
"
rec.Open sSQL, con, 3, 3
If NOT rec.EOF Then
%>
<%
Do While NOT rec.EOF
%>
<%=replace(rec(1),vbCrLf,"
")%>
Posted by: <%=rec(2) & " " & rec(3)%> (<%=rec(5)%>, <%=rec(4)%>)
Posted on: <%=formatdatetime(rec(0),1)%>
<%
rec.Movenext
loop
%>
<%
'BOTTOM OF TABLE
Else
%>
<%
End If
rec.Close
%>
<%
%>
Share
with other school librarians your experience of advocacy by using
the feedback form:
|
<%
END SELECT
%>
|
