<%
Function myCInt(Cadena)
If Cadena = "" Then
Cadena = 0
End If
If IsNull(Cadena) Then
Cadena = 0
End If
If IsNumeric(Cadena) Then
Cadena = Cadena
Else
Cadena = 0
End If
myCInt = CInt(Cadena)
End Function
Function myCDbl(Cadena)
If Cadena = "" Then
Cadena = 0
End If
If IsNull(Cadena) Then
Cadena = 0
End If
If IsNumeric(Cadena) Then
Cadena = Cadena
Else
Cadena = 0
End If
myCDbl = CDbl(Cadena)
End Function
Function Comillas(Cadena)
Cadena = Replace(Cadena, "'", "`")
Comillas = Chr(39) & Trim(Cadena) & Chr(39)
End Function
Function uploadRegistroGenerico(table_name, table_id, myIDRUPL, theConn)
On Error Resume Next
'Test "myIDRUPL = " & myIDRUPL, 0
'If myIDRUPL = Empty Or myIDRUPL = "0" Then Exit Function
myQueryUPL = "SELECT * FROM " & Trim(table_name) & " WHERE " & Trim(table_id) & " = " & myIDRUPL
'Test myQueryUPL, 0
Set myRSUPL = theConn.Execute(myQueryUPL)
If Not myRSUPL.Eof Then
For Each Item In myRSUPL.Fields
myItemName = Item.Name
myItemValue = Trim(Item.Value)
'Test myItemName & " = " & myItemValue, 0
If Item.Type = 135 Then
myItemValue = (myItemValue)
End If
If IsNull(myItemValue) Then
myItemValue = ""
End If
myItemValue = Replace(myItemValue, Chr(13), "
")
myItemValue = Replace(myItemValue, Chr(10), "")
'Test "Antes del Execute: " & myItemName & " = " & myItemValue & "
", 0
If myItemName <> "localctrl" And myItemName <> "localizer" Then
If Err.Number <> 0 Then Test ("Error en la función: uploadRegistroGenerico - Error: " & Err.Description), 1
If err.number = 0 Then
Execute(myItemName & "=""" & Replace(myItemValue, Chr(34), Chr(34) & Chr(34)) & """")
End If
End If
'Test "Despues del Execute: " & myItemName & " = " & myItemValue & "
", 0
Next
End If
End Function
Function EnCode(str)
str = Trim(str)
Randomize
Dim a, pre
For k = 1 To 7
sep = sep & CStr(Int(Rnd(1)*100))
pre = pre & CStr(Int(Rnd(1)*100))
Next
sep = right(sep, 7)
pre = right(pre, 3)
For i = 1 To Len(str)
a = a & pre * asc(mid(str, i, 1)) & sep
Next
EnCode = pre & a & sep
End Function
Function UnEnCode(str)
str = Trim(str)
Dim a, b, c
pre = myCInt(Left(str, 3))
sep = Right(str, 7)
str = Mid(str, 4)
a = Split(str, sep)
b = UBound(a)
For i = 0 To b
c = c & chr(Int(myCDbl(a(i))/pre))
Next
UnEnCode = c
End Function
Function Test(theString, theStop)
Response.Write("
")
Response.Write("Testing...: |
" & theString & " |
")
Response.Write("
")
If Trim(theStop) = "1" Then Response.End()
End Function
Function Proper(Cadena)
Proper = Ucase(Left(Cadena,1))
For I = 1 To Len(Trim(Cadena))
If Mid(Cadena,I,1) = " " Then
Proper = Proper + " " + UCase(Mid(Cadena,I + 1,1))
Else
Proper = Proper + LCase(Mid(Cadena,I + 1,1))
End If
Next
Proper = Trim(Proper)
End Function
%>