SoloCodigo

Tenia una pagina basada en ASP.
Al ingresar a la misma te aparecia un FORM HTML en el cual introducias
tu clave y nombre, y si eran correctos, bueno ivas navegando a traves delas 4 restantes.
Accedia a una base de datos(SQL) en donde estaban las tablas,(utilizaba ADO).

El caso esque ahora ya no existe mas, por que me obligaron a cambiar y me dicen que bueno ya es hora
de que sea basado en XML para que le de un formato final de HTML y WML.

Quisiera que me saquen de dudas y pregunto.

Me servira el listado ASP que prepare (para acceder a la BD y realizar las consultas)?
Tendre que cambiar todo?
Tendre que convertir la base de datos a un documento XML?,

en fin tengo varias dudas y espero puedad ayudarme, ara seguir adelante.

Hola camaradas, bueno estoy adaptando el codigo del CCR16 corregido en
http://www.joegeluso.com/
para que corra en VB
pero tengo problemas
intro el mensaje y toda la vida me devuelve le valor de inicio de CRC=&HFFFF&
Vean el codigo.
Const poly = &H1021&
Public CRC As Long
Dim lentext As Integer
Dim sMessage As String

 Sub Form_Load()
InitFunctionsShift
Dim icrc As Long

sMessage = "A"
icrc = hacer
   Debug.Print "crc16(" & sMessage & ")=" & Hex(icrc)

End Sub


Private Function hacer() As Long
 

Dim i As Integer
Dim ch As Integer
CRC = &HFFFF&
lentext = 0
For i = 1 To Len(sMessage)
ch = Asc(Mid$(sMessage, i, 1))
crc_bueno ch
lentext = lentext + 1
Next i
CRC = restante_crc
hacer = CRC

End Function
Sub crc_bueno(ch As Integer)
Dim i As Integer
Dim v As Integer
Dim flag As Byte

v = &H80&
For i = 0 To i < 8
  If (CRC And &H8000&) Then
   flag = 1
  Else
   flag = 0
  End If
  CRC = ShiftLeft(CRC, 1)
  If (ch And v) Then
   CRC = CRC + 1
  End If
  If flag Then
   CRC = CRC Xor poly
  End If
  v = ShiftRight(v, 1)
 
  Next i
 
  End Sub
 Function restante_crc() As Long
   Dim i As Integer
   Dim flag As Byte
    For i = 0 To i < 16
     If (CRC And &H8000&) Then
      flag = 1
     Else
      flag = 0
     End If
     CRC = ShiftLeft(CRC, 1)
     If flag Then
     CRC = CRC Xor poly
     End If
    Next i
    restante_crc = CRC
  End Function


Por favor veanlo, comentenlo y corrijanlo.

Hola amigos voy al punto.
Miren estoy recibiendo datos de un pic y los estoy mostrando en varios textbox todo biuen hasta alli, pero añadi algunas cosas a mi programa en el pic y cada que alla una inetrrupcion en el, este enviara la misma cadena de datos anterior  más 3 caracteres y alli si se me trunca el programa.
Quize preguntar asi if len(cadena)=20 the......
if len(cadena)=23 then

Aqui extraer los 3 caracteres

Ojala me puedan ayudar.

Bueno el pic adquiere datos de 4 canales,
ahora el problema
como hacer para capturar estos valores en vb y almacenarlos en una base de datos, i.e. access, por favro cualquier sugerencia es bienvenida

Hola amigos, la idea es la siguiente, tengo un programa en asembler para el 16f873 de 2 entradas y 2 salidas, osea si a la entrada 1 se le da señal se enciend el led 1, etc,péro ahora la idea es controlar todo esto desde VB, si alguien podria ayudarme por favor.
Gracias