%
set fs=Server.CreateObject("Scripting.FileSystemObject")
'vbanco =server.MapPath("/dados/banco.txt")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/castingfeminino.mdb") & ";Persist Security Info=False"
'var barbara = "Medidas : Molelo - Barbara
Altura : 1,73 Cm
Olhos : Negros
Cabelos : Ruivos ou castanhos
Sapato : 36
Cintura : 65 Cm
Quadril : 92 Cm
";
SQL = " select * from modelos "
Set rs=OBJdbConnection.Execute(SQL)
%>