<% Dim oRet Dim strDSN Dim sqlstr Dim escreve strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/topsite2.mdb") Set oRet = Server.CreateObject ("ADODB.Connection") oRet.Open strDSN set RS = server.createobject("adodb.recordset") formulario = request.form("sitename") sqlstr = "select id from site where sitename ='& formulario'" RS.open sqlstr,oret,3,3 set RS = oret.execute(sqlstr) %> <%=RS("id")%>