%
Dim strConexao
strConexao = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ikeda.mdb")
Set Conexao = Server.CreateObject ("ADODB.Connection")
Conexao.Open strConexao
%>
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conexao
%>
|
<%
strSQL = "SELECT * FROM perfis WHERE sexo LIKE 'feminino' ORDER BY cod asc"
RS.Open strSQL
if RS.EOF then
response.write("Busca efetivada:")
%>
Infelizmente esta modelo não se encontra em nosso banco de dados.
<%
end if %>
<%
Do While Not RS.EOF %>
<%
RS.MoveNext
Loop
%><% RS.close
set RS = nothing
%>
|
|
|