<%@LANGUAGE="VBSCRIPT"%><% ' *** Update Record: construct a sql update statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_tableName = "smo.smo" MM_tableCol = "clave" MM_recordId = "'" + Request.Form("MM_recordId") + "'" MM_fields = "Npizarra,pizarra,',none,'',Visibilidad,visualizacion,none,'Y','N'" MM_redirectPage = "modificar_actualizados.asp" ' create the sql update statement MM_updateStr = "update " & MM_tableName & " set " MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fieldsArray)) Then MM_updateStr = MM_updateStr & "," End If MM_updateStr = MM_updateStr & MM_fieldsArray(i+1) & " = " & FormVal Next MM_updateStr = MM_updateStr & " where " & MM_tableCol & " = " & MM_recordId ' finish the sql and execute it Set MM_updateCmd = Server.CreateObject("ADODB.Command") MM_updateCmd.ActiveConnection = "dsn=smo;" MM_updateCmd.CommandText = MM_updateStr MM_updateCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %> <% Dim Actualizados__MMColParam Actualizados__MMColParam = "0" if(Request.Form("cel") <> "") then Actualizados__MMColParam = Request.Form("cel") Dim Actualizados__MMColParam2 Actualizados__MMColParam2 = "0" if(Request.Form("cla") <> "") then Actualizados__MMColParam2 = Request.Form("cla") %> <% set Actualizados = Server.CreateObject("ADODB.Recordset") Actualizados.ActiveConnection = "dsn=smo;" Actualizados.Source = "SELECT * FROM smo.smo WHERE celular = '" + Replace(Actualizados__MMColParam, "'", "''") + "' and clave = '" + Replace(Actualizados__MMColParam2, "'", "''") + "'" Actualizados.CursorType = 0 Actualizados.CursorLocation = 2 Actualizados.LockType = 3 Actualizados.Open Actualizados_numRows = 0 %>







<% If Actualizados.EOF And Actualizados.BOF Then %>

Los datos ingresados ¡no estan correctos!
por favor vuelva a intentar
<% End If ' end Actualizados.EOF And Actualizados %> <% If Not Actualizados.EOF Or Not Actualizados.BOF Then %>

Modifica aquí los datos de tu pizarra
Modifica aquí tus datos, y manten actualizada tu pizarra donde te das a conocer para que te contacten.

Tu Alias: <%=(Actualizados.Fields.Item("alias").Value)%>
Tu Celular: <%=(Actualizados.Fields.Item("celular").Value)%>
Actualmente tu Pizarra presenta:
<%=(Actualizados.Fields.Item("pizarra").Value)%>

Si deseas modificar estos datos escribe a continuación el nuevo mensaje de tu pizarra:


Si, deseo estar visible a los visitantes de Mensajitos Club

">


<% End If ' end Not Actualizados.EOF Or NOT Actualizados.BOF %>
 © 1997-2003 Telefónica Celular, Celtel.
  Reservados todos los derechos.		 Diseñado por: Luis Rolando Redondo Guifarro. e-mail: lredondo@hotmail.com