Membership Directory
<%
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
dim strlname
dim strsql
dim strmemberID
dim strname
strmemberID=request.querystring("memberID")
strDBPath = Server.MapPath("/db/wsdaweb.mdb")
' Create an ADO Connection to connect to the database.
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
%>
<%
strsql="Select * from tblWebdetailWSDA where memberID=" & strmemberID
Set rstSimple = cnnSimple.Execute(strsql)
%>
| <%= rstSimple.Fields("physname2").value %> |
<%
Do While Not rstSimple.EOF
%>
<% If not rstSimple.Fields("Company")="" and not rstSimple.Fields("Company")=Blank Then %>
| <%= rstSimple.Fields("Company").Value %> |
<% End if %>
| <%= rstSimple.Fields("Addr1").Value %> |
| <%= rstSimple.Fields("CityStateZip").Value %> |
| <%= rstSimple.Fields("Phone").Value %> |
| <%= rstSimple.Fields("Email").Value %> |
| <%= rstSimple.Fields("Email").Value %> |
<%
rstSimple.MoveNext
Loop
%>
<%
strsql="Select * from tblWebSubSpecialtiesWSDA where memberID=" & strmemberID & " order by subspecialty"
Set rstSimple = cnnSimple.Execute(strsql)
%>
<%
Do While Not rstSimple.EOF
%>
| <%= rstSimple.Fields("Subspecialty").Value %> |
|
<%
rstSimple.MoveNext
Loop
%>
<%
' Close our recordset and connection and dispose of the objects
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>
Search Again |
