Response from the Server
Customer Address
Last Name |
First Name |
Address |
Phone Number |
<%
' Dim myopt as String
' Dim mystr as String
Set Con = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Con.Open "testasp"
myopt = Request.Form("address")
if myopt = "opt_lname" then
mylname = Request.Form("txt_lname")
mystr = "select * from signup where LastName='"& mylname &"'"
elseif myopt = "opt_all" then
mystr = "select * from signup"
end if
Rs.Open mystr,Con,adOpenDynamic
while not rs.EOF
%>
<%=RS("LastName")%> |
<%=RS("FirstName")%> |
<%=RS("Address")%> |
<%=RS("PhoneNumber")%> |
<%
RS.MoveNext
wend
RS.Close
set RS= nothing
set Con=nothing
%>