si quieres reflejar todos en forma de lista tienes que hacer un ciclo, si no tienes que especificar en tu consulta el id que quieres mostrar, un ejemplo de cada uno:
Ciclo:
Código:
<%
Do While Not rs.Eof
%>
<form id="form<% = rs("id") %>" name="form<% = rs("id") %>" method="post" action="">
<label>ID
<input type="text" name="txtid<% = rs("id") %>" value='<% =rs("id") %>'/>
</label>
NOMBRE
<input type="text" name="txtnombre<% = rs("id") %>" value='<% =rs("nombre") %>'/>
PUESTO
<input type="text" name="txtpuesto<% = rs("id") %>" value='<% =rs("puesto") %>'/>
AREA
<input type="text" name="txtarea<% = rs("id") %>" value='<% =rs("area") %>'/>
<p>TELEFONO
<input type="text" name="txttelefono<% = rs("id") %>" value='<% =rs("telefono") %>'/></p>
SUELDO
<input type="text" name="txtsueldo<% = rs("id") %>" value='<% =rs("sueldo") %>'/>
FECHA
<input type="text" name="txtfecha<% = rs("id") %>" value='<% =rs("fecha_ingreso") %>'/>
TURNO
<input type="text" name="txtturno<% = rs("id") %>" value='<% =rs("turno") %>'/>
</form>
<%
rs.MoveNext
Loop
%>
id fija:
Código:
<%
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Set conn = Server.CreateObject("ADODB.Connection")
set cmd = Server.CreateObject("ADODB.Command")
set rs = Server.CreateObject("ADODB.Recordset")
conn.ConnectionString = "driver=SQL Server;server=DESARROLLO;uid=;pwd=;database=EXTERN A"
conn.CursorLocation = adUseClient
conn.Open
rs.Open "select * from prueba where id = "2"", conn, adOpenDynamic, adLockOptimistic
%>
Espero haber sido claro... saludos y suerte