Guías y Manuales

<%

'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%>