select email directory

<%@ LANGUAGE="VBSCRIPT" %> select email directory

cmc.gif (4416 bytes)

hemail.gif (2107 bytes)

<% Dim SqlJunk Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("emaildsn") Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset") SqlJunk = "SELECT * FROM email ORDER BY LastName" rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3 %> <% Do While Not rsGlobalWeb.EOF %> <% rsGlobalWeb.MoveNext Loop %>

First Name	Last Name	Email Address	City	State
<%=rsGlobalWeb("FirstName")%>	<%=rsGlobalWeb("LastName")%>	"><%=rsGlobalWeb("EmailAddress")%>	<%=rsGlobalWeb("City")%>	<%=rsGlobalWeb("State")%>

<% rsGlobalWeb.Close dbGlobalWeb.Close %>

Return To Forms Page

HOME