Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/05/2006, 11:43
Avatar de VaIvan
VaIvan
 
Fecha de Ingreso: octubre-2005
Ubicación: Mexico
Mensajes: 138
Antigüedad: 19 años, 6 meses
Puntos: 2
Mas o menos asi:

1.-construir una pagina en HTML con un formulario y que en el ACTION
se diriga a la pagina ASP
1.-CONSTRUIR UNA PAGINA VACIA EN ASP QUE SE LLAME inserta.asp
2.-ACTIVAR EL CODIGO ASP DONDE HAYA UN REQUEST FORM (coger los campos de un formulario e insertarlos en una base ejem. access)
3.-LIMPIAR FORMULARIO

aqui hay un ejemplo copia el codigo y pegalo en tu pagina vacia HTML Y LA OTRA EN LA DE ASP
nota: debes tener IIS o algun server que soporte ASP y sustituye mis campos por los tuyos. saludos =)
HTML

<body bgColor=lightslategray background=img\fondogris.jpg bgproperties=fixed>
<H3 align=left>
<FONT face=Tahoma color="midnightblue">FROMULARIO<br>EN (<EM>CASA MATRIZ</EM> )</FONT></H3><FONT size=3 face=Tahoma,Arial,verdana><B>
<p>
<FORM action=inserta.asp method=post>
<table bgcolor=lightsteelblue width="50%">
<tr>
<td width="16%"><STRONG><FONT size=2>Producto:</FONT></STRONG></td>
<td width="84%"><input name="MI CAMPO" size="55" ></td>
</tr>
<tr>
<td width="16%"><STRONG><FONT
size=2>Sucursal:</FONT></STRONG></td>
<td width="84%"><SELECT size=1 id=IDE_CEN_ALM name=IDE_CEN_ALM>
<OPTION selected>TBHMAT</OPTION>
<OPTION>...</OPTION>
</SELECT></td>
</tr>


ASP

<%Option Explicit%>

<%
Dim myvar
Dim myRst
Dim Alerta
Alerta = ""

Dim myConn 'CONEXION DE SQL SERVER
set myConn = server.CreateObject("ADODB.Connection")
myConn.Open "Driver={SQL Server};Server=(local);Database=MI TABLA;Uid=USUARIO;Pwd=PASWORD;"

Dim Agrega
Agrega = Request.QueryString("agrega")


If Agrega = "1" Then

Dim sqlText
sqlText=""
sqlText=sqlText & "INSERT INTO ingresa"
sqlText=sqlText & " (Nombre,Edad,Puesto)"
sqlText=sqlText & " VALUES ("
sqlText=sqlText & "'" & Request.Form("Nombre") & "',"
sqlText=sqlText & "'" & Request.Form("Edad") & "',"
sqlText=sqlText & "'" & Request.Form("Puesto") & "'"
sqlText=sqlText & ")"
myConn.Execute sqlText

Alerta = "onload=""alert('Registro agregado satisfactoriamente')"""
End If


%>

<HTML>
<LINK href="..\main.css" rel="stylesheet" type="text/css">
<HEAD>
<STYLE TYPE="text/css">
<!--
a:link {text-decoration: none}
a:visited {text-decoration: none}
a:active {text-decoration: none}
-->
</STYLE>
</HEAD>
<BODY background="marmol.jpg" leftmargin=0 topmargin=0 <%=Alerta%>>
<BR>
<BR>
<B><I><Font Size=4 Face="Verdana" align=center><Center>
<font size="4" face="Arial, Helvetica, sans-serif"><b><font color="firebrick" size="3">ALTA
DE USUARIOS</font><font color="firebrick"> </font></b></font></Font></B></I>
</Center><BR>
<Center>
<FORM action="alta_ivan.asp?Agrega=1" method=post id=form1 name=form1>
<br>
<Font size=2 color=Black><B><font face="Arial, Helvetica, sans-serif" color="darkblue">Registro en Sql server</font></B></Font>
<BR>
<BR>

<Table WIDTH=50% align=center id=Table border="1" bgcolor="Gainsboro">
<TR>
<TD Bgcolor=navy> <font face="Arial, Helvetica, sans-serif"><b><Font Size=2 Color=white>
Nombre: </font> </b></font></TD>
<TD bgcolor=silver>
<INPUT Align=center size=20 type="text" id=Nombre NAME=Nombre>
</TD>
</TR>
<TR>
<TD Bgcolor=navy> <font face="Arial, Helvetica, sans-serif"><b><Font Size=2 Color=white>
Edad: </font> </b></font></TD>
<TD bgcolor=silver>
<INPUT Align=center type="text" size=10 id=Edad NAME=Edad>
</TD>
</TR>
<TR>
<TD Bgcolor=navy> <font face="Arial, Helvetica, sans-serif"><b><Font Size=2 Color=white>
Puesto: </font> </b></font></TD>
<TD bgcolor=silver>
<INPUT Align=center size=20 type="text" id=Puesto name=Puesto>
<Center>
</tr>
<tr>
<td Align=center>
<INPUT type="submit" value="Guardar" id=submit name=submit>
</td>
</center>

</FORM>
<Center>
<td Align=center>
<INPUT type="button" value="Cerrar" id="button1" name="button1" align=middle onclick="JavaScript:window.close()">
</td></tr>
</center>
</BODY>
</HTML>