<%
'Establecer conección a la base de datos Mysql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySql}; Server=localhost; uid=solo10usuario; pwd=solo10pass;
database=solo10; option=3; port=3306;"
'Insertar registro sobre tabla "solo10"
Set rsmyTable2 = Conn.Execute("INSERT into solo10 values(3,'Nuevo Registro')")
'Seleccionar todos los registros de la tabla "solo10"
Set rsmyTable = Conn.Execute("SELECT * From solo10")
%>
<%
'Imprimir registros en pantalla
do while not rsmyTable.eof %>
<% for i = 0 to 1
thisvalue=rsmyTable(i)
If isnull(thisvalue) then
thisvalue=" "
end if%>
<% next %>
<%rsmyTable.movenext
loop%>
<%=thisvalue%>
IMPORTANTE REFERENCIAS:
Nombre de base de datos: solo10
Nombre de usuario: solo10usuario
Contraseña del usuario: solo10pass
Nombre de tabla: solo10
Campos que contiene la tabla: id y nombre