%@ LANGUAGE="VBSCRIPT" %> <% Set datab = Server.CreateObject("ADODB.Connection") datab.Open "DBQ=D:\www\abcrs\abcrs.MDB;DefaultDir=C:\dbase;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" %>
|
|
||
|
|
||
<% if request.form("Submit") = "Submit" Then if request.form("City") = "%" then sqlc = "Select * from [Diplomates] where lastName like '" & request.form("name") & "%' and Country like '" & request.form("Country") & "' and State like '" & request.form("State") & "' order by LastName, FirstName" else sqla = "Select * from [Diplomates] where lastName like '" & request.form("name") & "%' and Country like '" & request.form("Country") & "' and State like '" & request.form("State") & "' and City like '" & request.form("City") & "' order by LastName, FirstName" sqlc = sqla & " union Select * from [Diplomates] where lastName like '" & request.form("name") & "%' and Country like '" & request.form("Country") & "' and State like '" & request.form("State") & "' and City like '" & request.form("City") & "' order by LastName, FirstName" end if Set RSc = datab.Execute(SQLc) if RSc.eof then %> There are no matches to your request please try again. <%else%> <% RSc.movefirst %> <%while not RSc.eof %> <%=RSc("LastName")%> <% if trim(RSc("Suffix") & "") = "" then response.write " "%> <%else%> <%=RSc("Suffix")%>, <%end if%> <%=RSc("MDorDO")%>, <%=RSc("FirstName")%> <% if trim(RSc("ActiveOrRetired")) = "R" then response.write " (Retired)"%> <%else response.write "" end if%> <% if trim(RSc("City") & "") = "" then response.write " "%> <%else%> City: <%=RSc("City")%> <%end if%> <% if trim(RSc("State") & "") = "" then response.write " "%> <%else%> State: <%=RSc("State")%> <%end if%> <% if trim(RSc("Country") & "") = "" then response.write " "%> <%else%> Country: <%=RSc("Country")%> <%end if%> <% RSc.movenext Wend%> <%if not isempty(RSc) then response.write " " end if end if%> <%End if %> The listings are
not meant to be used for official verification purposes. Visit the Official Verification Information page for
information on obtaining a verification of certification. |
||
|
|
||
|
|