<?php
	$ArrayImg = array("img1","img2","img3","img4","img5");
	$ArrayFch = array("02/03/04","03/03/04","25/03/04","08/04/04","17/04/04");
 
	$Indice = rand(0,count($ArrayImg)-1);
 
	echo "Imagen: '".$ArrayImg[$Indice]."' - Fecha: '".$ArrayFch[$Indice]."'";
?>

<?php
	$lol = "Independientemente del valor de la variable .. de esta manera lo imprime, de la otra no o.O";
	echo '$lol';
	echo "<br><br>$lol"
?>

<?php
	$Conexion = mysql_connect("localhost","usuario","contraseña") or 
        die("Problemas al conectarse con el servidor");
 
	mysql_select_db("bd",$Conexion) or die("Problemas al seleccionar la base de datos");
 
	mysql_query("INSERT INTO Tabla(Campo1,campo2,campo3,campo4,campo5) VALUES 
	('$_REQUEST[textbox1]','$_REQUEST[textbox2]','$_REQUEST[textbox3]','$_REQUEST[textbox4]',
	'$_REQUEST[textbox5]')",$Conexion) or die("Problemas al insertar datos en la tabla ".
        mysql_error());
 
	mysql_close($Conexion);
 
	echo "Los datos han sido almacenados satisfactoriamente.";
?>

Option Explicit
Dim strArray() As String
 
Private Sub Command1_Click()
    Randomize
    Text1.Text = strArray(Int(Rnd * (UBound(strArray) + 1)))
End Sub
 
Private Sub Form_Load()
    ReDim strArray(3)
 
    strArray(0) = "carne"
    strArray(1) = "fruta"
    strArray(2) = "huevos"
    strArray(3) = "lacteos"
End Sub