|
|
| Name |
Title |
Phone |
Email |
<%
cnString ="Provider=SQLOLEDB;"& _
"user id =lle5;" & _
"Initial Catalog=GCRC;" & _
"Password=lucky01"
%>
<%
set conn=server.CreateObject("ADODB.connection") %>
<%
conn.Open cnString
set rs =conn.execute("Select name,title,phone,email from staff ORDER BY id")
Do While Not rs.EOF %>
|
<% response.Write rs("name") %>
|
<% response.Write rs("title") %>
|
<% response.Write rs("phone") %>
|
<% Response.Write "" & _
(rs.Fields("email").value) & "" %>
|
<%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
|
|
