 |
| Some of your survey responses
from this Newsletter
edition: |
<%
Const adCmdTable = 2
Dim accessdb
Dim strconn
accessdb=server.mappath("/fpdb/ricksegel.mdb")
strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn=strconn & accessDB & ";"
'strconn=strconn & "USER ID=;PASSWORD=;"
Dim strSQL
Dim nParams
nParams = 0
strSQL = "Select * FROM Survey20080701"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, strconn
DIM RecordCount
RecordCount = 0
DIM vote(9)
Do While Not objRS.EOF %>
"<%=objRS("Comments")%>"
- <%=objRS("Name1")%> - <%=objRS("Location")%>
|
<%
RecordCount = RecordCount + 1
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
%>
|
|
|
