<%
if request.QueryString("ver")="si" then
Dim Conex
'Creamos el objeto de conexion ahora...
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=web-designs;database=pruebas; uid=asinox;pwd=loquesea"
Query="Select * from datos"
'ejecutamos el query
Set RS = Conex.Execute(Query)
Do while NOT RS.EOF
%>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="?eliminar=si&ID=<%=RS("ID")%>"><%=RS("ID")%> </a></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=RS("nombre")%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=RS("apellido")%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=RS("edad")%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=RS("email")%></font></td>
</tr>
<% RS.movenext
loop
end if
datosDel = request.QueryString("eliminar")
borrar = request.QueryString("ID")
if datosDel="si" then
QueryDel="Delete from datos where Id='"& borrar &"'"
RS = Conex.Execute(QueryDel)
end if
Conex.Close
%>
donde ta el show del objeto
