<%
DSN = "Ejemplo1"
Tablename = "Clientes"
GridInc = 10
response.write("
Registros Actuales de la BD
")
Set myrec=Server.CreateObject("ADODB.Recordset")
Cursor=0
myrec.open "SELECT * from " & Tablename,DSN,Cursor,2,1
response.write("DSN=" & DSN & "
")
response.write("Nombre de la Tabla=" & Tablename & "
")
response.write("")
response.write("")
for i=0 to myrec.fields.count-1
response.write("| " & myrec(i).name & " | ")
next
response.write("
")
myrec.move start
for i=start to (start+GridInc-1)
for j=0 to myrec.fields.count-1
t=myrec(j).type
if t=205 then
t="BLOB"
else
if t=201 then
t="MEMO"
else
t=myrec(j)
end if
end if
response.write("| " & t & " | ")
next
response.write("
")
myrec.MoveNext
if myrec.eof then exit for
next
response.write("
")
Dni = Request.Form("Dni")
Nombre = Request.Form("Nombre")
Apellido1 = Request.Form("Apellido1")
Apellido2 = Request.Form("Apellido2")
if nombre = "" then
boss = True
else
boss = False
myrec.AddNew
myrec("Dni") = Dni
myrec("Nombre") = Nombre
myrec("Apellido1") = Apellido1
myrec("Apellido2") = Apellido2
myrec.Update
End if
myrec.close
%>