Dim sql As String
        sql = "INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) values ('" & TextBox1.Text & "', '" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & Date.Today & "','1')"
        Dim cnn As OleDbConnection
        cnn = New OleDbConnection(Cadena)
        '  ' crear comando
        Dim Comando As New OleDbCommand(sql, cnn)
        '  ' crear DataReader
        Dim DataReader As OleDbDataReader
        cnn.Open()
        DataReader = Comando.ExecuteReader() ' obtener DataReader

Dim cmdselect As New OleDb.OleDbCommand("Select *  From Rol where Activo=yes", conn)
            Dim datareader As OleDb.OleDbDataReader = cmdselect.ExecuteReader()
 
            While datareader.Read()
                '=======Agregar elementos al ListView ========
                Dim subelemento As ListViewItem
                'Dim codigo As String = datareader("idRol")
                Dim codigo As String = datareader("idRol")
 
                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                'como seria esta linea para agregar Descripcion
                'como seria esta linea para agregar Activo
                ListView1.Items.Add(subelemento)
 
            End While
 
            datareader.Close()
            conn.Close()

Dim arreglo(100) As Integer
Dim l As Integer
Dim n As Integer
Dim valor As Integer
        For l = 0 To List1.ListCount - 1
            valor = List1.Text
                For n = 1 To List1.ListCount - 1
                    arreglo(n) = valor
                Next
        Next
'Por ultimo coloque unos textbox para confirmar que se guardaron los valores
Text1.Text = arreglo(1)                 'me sale 0 y en realidad es un 2
Text2.Text = arreglo(2)                 'me sale 0 y en realidad es un 4
Text3.Text = arreglo(3)                  'me sale 0 y en realidad es un 1
 

SQL1 = "SELECT * FROM tablainformaciondelaunidad WHERE TURNO='" & Label7 & "' AND TECNICO='" & txtid & "'AND FECHA= '" & Label3 & "' AND HORA BETWEEN #" & Format("19:00", "Short Time") & "# AND #" & Format("23:59", "Short Time") & "#"

AND FECHA= #" & Label3+1 & "#AND HORA BETWEEN #" & Format("00:00", "Short TIME") & "# AND #" & Format("05:59", "Short TIME") & "# "

<?php
 
if(!$_POST) exit;
 
$email = $_POST['email'];
 
 
//$error[] = preg_match('/\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b/i', $_POST['email']) ? '' : 'INVALID EMAIL ADDRESS';
if(!eregi("^[a-z0-9]+([_\\.-][a-z0-9]+)*" ."@"."([a-z0-9]+([\.-][a-z0-9]+)*)+"."\\.[a-z]{2,}"."$",$email )){
	$error.="Invalid email address entered";
	$errors=1;
}
if($errors==1) echo $error;
else{
	$values = array ('name','email','message');
	$required = array('name','email','message');
 
	$your_email = "james@example.com";
	$email_subject = "New Message: ".$_POST['subject'];
	$email_content = "new message:\n";
 
	foreach($values as $key => $value){
	  if(in_array($value,$required)){
		if ($key != 'subject' && $key != 'company') {
		  if( empty($_POST[$value]) ) { echo 'PLEASE FILL IN REQUIRED FIELDS'; exit; }
		}
		$email_content .= $value.': '.$_POST[$value]."\n";
	  }
	}
 
	if(@mail($your_email,$email_subject,$email_content)) {
		echo 'Mensaje Enviado!'; 
	} else {
		echo 'ERROR!';
	}
}
?>

/** The prototype for the application's main() function */
extern C_LINKAGE int SDL_main(int argc, char *argv[]);

// Creación de un degradado parcial, estableciendo un área de clipping
#include <stdio.h>
#include <SDL.h>
 
 
int main()               //<------- Aqui es donde me marca el error
{
SDL_Surface *pantalla, *color_base;
SDL_Rect posicion, clipping;
SDL_Event evento;
int i;
// Iniciamos el subsistema de video SDL
	if( SDL_Init(SDL_INIT_VIDEO) < 0) {
		fprintf(stderr, "No se pudo iniciar SDL: %s\n",SDL_GetError());
		exit(1);
}
// Establecemos el modo de video
pantalla = SDL_SetVideoMode(640, 500, 24,SDL_HWSURFACE|SDL_DOUBLEBUF);
	if(pantalla == NULL) {
		fprintf(stderr, "No se pudo establecer el modo de video:%s\n",SDL_GetError());
		exit(1);
}
atexit(SDL_Quit);
// Cargamos la imagen del personaje principal
color_base = SDL_LoadBMP("ima.bmp");
	if(color_base == NULL) {
		fprintf(stderr, "No se pudo cargar la imagen: %s\n",SDL_GetError());
		exit(1);
}
// Establecemos el área de clipping
clipping.x = 0;
clipping.y = 0;
clipping.h = 500;
clipping.w = 100;
SDL_SetClipRect(pantalla, &clipping);
// Vamos a dibujar 10 tiras
	for(i = 1; i <= 50; i++) {
// Ajustamos las propiedades del canal alpha para las transparecnias
SDL_SetAlpha(color_base, SDL_SRCALPHA|SDL_RLEACCEL, i * 5.1);
// Establecemos donde vamos a dibujar las tiras
posicion.x = 0;
posicion.y = 10 * (i - 1);
posicion.w = color_base->w;
posicion.h = color_base->h;
// Copiamos la imagen en la superficie principal
SDL_BlitSurface(color_base, NULL, pantalla, &posicion);
}
// Mostramos la pantalla "oculta" del búffer
SDL_Flip(pantalla);
// Liberamos los recursos que no necesitamos
SDL_FreeSurface(color_base);
// Ahora mantenemos el resultado en pantalla
// hasta cerrar la ventana
for(;;) {
while(SDL_PollEvent(&evento)) {
if(evento.type == SDL_QUIT) // Si es de salida
return 0;
}
}
}