Este es el insert.
If (strError="") Then
'Creamos usuario nuevo
sql="INSERT INTO MMX_Usuarios (Login, clave, Nombre, Apellido, Email, Telefono_1, Telefono_2, Direccion_Usuario, Ciudad, ID_Estado, Otro_Estado, ID_Pais, Otro_pais, ID_Tipo_Usu, Otro_Tipo_Usu, ID_Sector, Otro_Sector, newsletters) values ("
If v_Login="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Login&"',"
End If
v_clave=encriptar(v_Password)
If v_Clave="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Clave&"',"
End If
If v_Nombre="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Nombre&"',"
End If
If v_Apellido="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Apellido&"',"
End If
If v_Email="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Email&"',"
End If
If v_AreaCode="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_AreaCode&"',"
End If
If v_Telefono="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Telefono&"',"
End If
If v_Direccion="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Direccion&"',"
End If
If v_Ciudad="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Ciudad&"',"
End If
If v_ID_Estado="" Then
sql=sql&" 0,"
Else
sql=sql&""&v_ID_Estado&","
End If
If v_Otro_Estado="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Otro_Estado&"',"
End If
If v_ID_Pais="" Then
sql=sql&" 0,"
Else
sql=sql&""&v_ID_Pais&","
End If
If v_Otro_pais="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Otro_pais&"',"
End If
If v_ID_Tipo_Usuario="" Then
sql=sql&" 0,"
Else
sql=sql&""&v_ID_Tipo_Usuario&","
End If
If v_Otro_Tipo_Usuario="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Otro_Tipo_Usuario&"',"
End If
If v_ID_Sector="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_ID_Sector&"',"
End If
If v_Otro_Sector="" Then
sql=sql&" NULL,"
Else
sql=sql&"'"&v_Otro_Sector&"',"
End If
If v_newsletters="" Then
sql=sql&"NULL)"
Else
sql=sql&"'"&v_newsletters&"')"
End If
'Response.Write(sql)
Set Tmp_RS= dbconn.Execute (sql)
If Err.number Then
strError="INSERT USUARIO:"&Err.description
Err.Clear
Else
sql="Select * from MMX_Usuarios where Nombre='"&trim(v_Nombre)&"' and Apellido='"&trim(v_Apellido)&"' and Email='"&v_Email&"' order by ID DESC"
'Response.Write(sql)
Set Us_RS= dbconn.Execute (sql)
If Not Us_RS.eof Then
v_ID_Usuario=Us_RS("ID") |