Tengo este Codigo... y lo Ejecuto desde un paguina (Menu)
<a href="http://operador1/cantu/html/Prueba_pedidos.asp")
el problema que tengo, es el Insert... ya que Utilizo un FORM para Sacar datos hacia un Combo y ahi me perdi por completo
y Ahora como Inserto (Fecha, Nombre etc..etc..)
Pueden Ayudarme Va el Codigo Completo...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=12)">
<title> AutoTransporte </title>
</head>
<body bgcolor="#FFFFFF" text="#000000" vlink="#0000FF" alink="#FF0000"><div align="center">
<table width="740" bgcolor="#FFC891" border="2" cellspacing="0" cellpadding="0">
<tr><td><Center>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="300" HEIGHT="50" id="principal" >
<PARAM NAME=movie VALUE="http://operador1/Cantu/Html/move2.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFC891> <EMBED src="http://operador1/Cantu/Html/move2.swf" quality=high bgcolor=#FE9E01 WIDTH="770" HEIGHT="740" NAME="principal"
TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT>
</Center></td></tr>
<tr>
<td>
<div align="right">
<script language=JavaScript>
<!--
;today = new Date(); weekday = today.getDay();if (weekday == 6)
document.write('Sábado');if (weekday == 0) document.write('Domingo');
if (weekday == 1) document.write('Lunes');if (weekday == 2) document.write('Martes');
if (weekday == 3) document.write('Miércoles');if (weekday == 4) document.write('Jueves');
if (weekday == 5) document.write('Viernes');document.write(', '); month = today.getMonth();
if (month == 0) document.write('Enero');if (month == 1) document.write('Febrero');
if (month == 2) document.write('Marzo');if (month == 3) document.write('Abril');
if (month == 4) document.write('Mayo');if (month == 5) document.write('Junio');
if (month == 6) document.write('Julio');if (month == 7) document.write('Agosto');
if (month == 8) document.write('Septiembre');if (month == 9) document.write('Octubre');
if (month == 10) document.write('Noviembre');if (month == 11) document.write('Diciembre');
date = today.getDate(); year=today.getYear();document.write (' ', date, ', ',year);// -->
</script>
</div></td>
</tr>
</table>
<table width="740" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="116" bgcolor="#FFCC99" valign="top" align="center">
<font face="antique olive, Helvetica, sans-serif" size="3"><br><b> CLIENTES </b><br></font>
<font face="antique olive, Helvetica, sans-serif" size="2"><a href="http://operador1/cantu/html/NCliente.html">Nuevo<br></font></a>
<font face="antique olive, Helvetica, sans-serif" size="2"><a href="http://operador1/cantu/html/PEC.html">Modificacion<br></font></a>
<br><br>
<font face="antique olive, Helvetica, sans-serif" size="3"><b> PEDIDOS </b><br></font>
<font face="antique olive, Helvetica, sans-serif" size="2"><a href="http://operador1/cantu/html/Prueba_pedidos.asp">Diario<br></font></a>
<br><br>
<font face="antique olive, Helvetica, sans-serif" size="3"><b> REPORTES </b><br></font>
<font face="antique olive, Helvetica, sans-serif" size="2"><a href="http://operador1/cantu/html/PEC.html">Modificacion<br></font></a>
<br><br>
</td>
<td width="624" valign="top" align="Center">
<p><center><font face="mouser outline" size="8"><u> Pedidos </u></center></font></p>
<!-- Inicia Cuadro de Datos-->
<br>
<table border="0">
<tr>
<td>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" valign="top" align="Center">
<!-- Combox del Nombre... -->
<form name=formulario method=post action="prueba_pedidos.asp">
<font face="antique olive, Helvetica, sans-serif" size="3"><b>NOMBRE DEL CLIENTE :</b></font>
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("/Cantu/Bd/Trans_Cantu.mdb")
sql = "SELECT nombre FROM Clientes"
Set rs = conn.Execute(sql)
While Not rs.EOF
%>
<option value="<%=rs("Nombre")%>"><%=rs("Nombre")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>
</form>
</td>
<td width="300" valign="top" align="Center">
<font face="antique olive, Helvetica, sans-serif" size="3"><b> FECHA DE ENTREGA: </b></font><INPUT TYPE="text" NAME="Entrega" size=23>
</td>
</tr>
</table>
<br><br>
<!-- Inicia segundo Cuadro de Datos-->
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150" align="Center">
&n bsp; 
<INPUT TYPE="text" NAME="Cajas" size=5> <font face="antique olive, Helvetica, sans-serif" size="3">CAJAS: </font>
</td>
<td width="350" align="right">
<font face="antique olive, Helvetica, sans-serif" size="3"> TRANSPORTO: </font><INPUT TYPE="text" NAME="Transp" size=23>
</td>
</tr>
</table>
<br><br>
<!-- Inicia Tercer Cuadro de Datos-->
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="250" align="left">
&n bsp; 
<SELECT NAME="Destino">
<OPTION Monterrey >Monterrey
<OPTION Guadalajara >Guadalajara
<OPTION Distrito Federa >Distrito Federal
</SELECT>
<font face="antique olive, Helvetica, sans-serif" size="3"> DESTINO: </font>
</td>
<td width="250" align="Center">
&n bsp; 
<font face="antique olive, Helvetica, sans-serif" size="3"> ESTATUS: </font>
<SELECT NAME="status">
<OPTION Entregado >Entregado
<OPTION Pendiente >Pendiente
</SELECT>
</td>
</tr>
</table>
<form name="form1" method="post" action="Graba_Pedido.asp">
<br><br>
<%dim fecha
Fecha = FormatDateTime(Date,0)
%>
<center>
<input type="submit" name="Submit" value="Grabar"> <INPUT TYPE="reset" VALUE="Limpiar">
</Center>
</table>
</table>
</body>
</html>
Saludos
Luis.R.Acosta
