El codigo del textarea es este
Código:
este es el input de envio el cual llama a una funcion<textarea name="temario" cols="40" rows="4" wrap="OFF"><%=trim(adrecord.fields("reqcur").value)%></textarea>
Código:
<input name="Submit" type="submit" class="input_verde" value="Enviar" onClick="CloseRefreshWindow()">
Código:
que lo que hace es actualizar la pagina y cerrar el popup donde hago las actualizaciones function CloseRefreshWindow() {
location="relacioncursos.asp";
window.opener.location.reload();
self.close();
}
y este es el codigo de la pagina que hace el update
Código:
<%
Response.Buffer = True
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB="+server.mappath("mi_ruta")+";SourceType=DBC;Exclusive=No;BackgroundFetch=Sí;Collate=Machine;Null=Sí;Deleted=Sí;")
strSQL = "UPDATE mibased!cursos SET nomcur = '" & Request.form("nombre") & "',nhorcur = '" & Request.form("horario") & "',finicur = '" & Request.form("inicio") & "',ffincur = '" & Request.form("fin") & "',horacur = '" & Request.form("horas") & "',reqcur = '" & Request.form("temario") & "',tipcur = '" & Request.form("tipo") & "',precur = '" & Request.form("precio") & "',numero = '" & Request.form("numero") & "',notas = '" & Request.form("notas") & "',baja = '" & Request.form("estado") & "',activ = '" & Request.form("activo") & "' WHERE numcur = '" & Request.form("id") & "'"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
Response.Redirect("relacioncursos.asp")
%>

