<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>members</title>
<!-- #include file="../adovbs.inc" -->
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("coinclub.mdb")
conn1.Open openStr,"",""
Set cmdQuery= Server.CreateObject("ADODB.Command")
Set cmdQuery.ActiveConnection = conn1
cmdQuery.CommandText = "qmemname"
cmdQuery.CommandType = adCmdStoredProc
surname = "davolio"
Set parQsname = Server.CreateObject("ADODB.Parameter")
parQsname.Name = "qsname"
parQsname.Direction = adParamInput
parQsname.Type = adVarChar
parQsname.Size = len(surname)
parQsname.Value = surname
cmdQuery.Parameters.Append parQsname
Set rsQmem = cmdQuery.Execute()
%>
</head>
<body>
<table border="1" cellspacing="0" cellpadding="3">
<caption><b>members</b></caption>
<tr>
<th>memberid</th>
<th>fname</th>
<th>sname</th>
<th>position</th>
<th>phone</th>
<th>email</th>
</tr>
<%
On Error Resume Next
rsQmem.MoveFirst
do while Not rsQmem.eof
%>
<tr valign="TOP">
<td><%=Server.HTMLEncode(rsQmem.Fields("memberid").Value)%></td>
<td><%=Server.HTMLEncode(rsQmem.Fields("fname").Value)%></td>
<td><%=Server.HTMLEncode(rsQmem.Fields("sname").Value)%></td>
<td><%=Server.HTMLEncode(rsQmem.Fields("position").Value)%></td>
<td><%=Server.HTMLEncode(rsQmem.Fields("phone").Value)%></td>
<td><%=Server.HTMLEncode(rsQmem.Fields("email").Value)%></td>
</tr>
<%
rsQmem.MoveNext
loop
rsQmem.Close
set rsQmem = Nothing
conn1.Close
set conn1 = Nothing
%>
</table>
</body>
</html>