Tenia el proxyi activo y no enviaba los mensajes (sabe dios porque), lo desactive y adios problemas, el email se envia.

Gracias por el dato

Dado que no me muestra ningun error PHP de programacion, Es decir lo trabaja normalmente pero no me envia el email de con el log, aqui mi codigo.

function query_to_mysql($query){
global $sql; 
$sql=mysql_query($query) or error_log(report_error(__FILE__,__LINE__,'
Ha ocurrido un error tratando de realizar un query a la base de datos'),1,
'usuario@email.com','Subject: Error en Query \nFrom: '.$_SERVER["HTTP_HOST"].'\n'); 	
}
 

La funcion report_error no hace mas que mostrarme en la pantalla el archivo y la linea del error, Trabaja de maravillas pero al usar el "error_log", no manda el error al mail solo lo muestra en pantalla de esta forma:

Error en : \public_html\mews\config.php

Linea # : 35

Mensaje : Ha ocurrido un error tratando de realizar un query a la base de datos

Quiero saber donde esta mi error, estoy tratando de manejar errores en PHP (Obviamente juego con los datos para generar los errores a proposito haber si funcionan) .

Sugerencias?

Tenian razon, lo que pasa es que el txt tenia lineas que estaban vacias y otras que no cumplian con la estructura, he ahi el problema.

Gracias por la ayuda, ya lo solucione aunque.

Esta muy bien, pero mi problema no es separarlos sino meterlos al listview, tu metodo es muy bueno pero ocasiona un error a la hora de tratar de meterlos al listview.

De todas formas gracias por el codigo, los separa bien si lo muestras en un mensaje pero para el listview no funciona.

PathArchivo = CD1.FileName
 
    Open PathArchivo For Input As #1
 
    While Not EOF(1)
    Line Input #1, linea
 
   llave = Trim(Mid(linea, 1, InStr(1, linea, "=") - 1))
   valor = Trim(Mid(linea, InStr(1, linea, "=") + 1, InStr(1, linea, ";") - InStr(1, linea, "=") - 1))
   comentario = Trim(Mid(linea, InStr(1, linea, ";") + 1))
 
    Set item = ListView.ListItems.Add(, , llave)
        item.SubItems(1) = valor
        item.SubItems(2) = comentario
 
    Wend
    Close #1

Muy bien, pero el archivo de texto es como dije anteriormente:


Si lo pudiera separar todos con comas funcionaria, pero como digo no puedo cambiar la estructura del txt.

Dim Linea As String
 Dim item As ListItem
 Dim spt1() As String
 Dim spt2() As String
 Dim i As Integer
 
    PathArchivo = App.Path & "\datos.txt"
    Open PathArchivo For Input As #1
 
    While Not EOF(1)
    Line Input #1, Linea
 
    spt1 = Split(Linea, ";")
    spt2 = Split(spt1(0), "=")
 
    Set item = ListView.ListItems.Add(, , spt2(0))
        item.SubItems(1) = spt2(1)
     Wend
    Close
 
Exit Sub
errsub:
MsgBox Err.Description, vbCritical

Ahi esta, haber si me das una manito

esta muy bien pero me sale el tipico error que el indice esta fuera del intervalo.

Un problema mas que tengo chicos, Lo que deseo es saber si se puede realizar lo siguiente en visual basic.

por ejemplo:

en un archivo de texto tengo lineas como esta


Si se dan cuenta los comentarios se definen a partir del "punto y coma"

Lo que deseo es colocar en un listview estos datos por separados de manera ordenada

Set subs = ListView1.ListItems.Add(, , LINEA)
          subs.SubItems(1) = TAG
          subs.SubItems(2) = ATRIBUTO
          subs.SubItems(2) = COMENTARIO
 

Se como agregar los datos al listview, pero no logro separarlos y colocarlos como quiero.


 

Pues ese es el problema que tengo, no me inserta el registro en SQL server, que estoy haciendo mal.

Private Sub cmdRegister_Click()
Dim registro As String
Dim msg As String
Dim ann As String
Dim Obj As EncriptString
Set Obj = New EncriptString
Dim lNumRegAfect As Long
Dim strSQL As String
 
Set conectar = New ADODB.Connection
Set registro = New ADODB.Recordset
 
On Error Resume Next
'Path del fichero Ini
Path_Archivo_Ini = App.Path & "\config.ini"
 
 
'Lee los datos y  Les envia el valor por defecto por si no existe
account = Leer_Ini(Path_Archivo_Ini, "user", "sa")
password = Leer_Ini(Path_Archivo_Ini, "pass", "123")
 
ann = Obj.descifrar(password)
 
 
msg = MsgBox("Estas a punto de registrar una cuenta con los siguientes datos: " & vbCrLf _
             & "Nombre de usuario: " & txtNickname & vbCrLf _
             & "Password: " & txtPassword & vbCrLf _
             & "Correo Electronico: " & txtEmail & vbCrLf _
             , vbInformation + vbYesNo, "Info")
 
If msg = vbYes Then
Set conectar = New ADODB.Connection
Set registro = New ADODB.Recordset
 
    conectar.Open "PROVIDER=MSDASQL;" & _
                  "driver={SQL Server};" & _
                  "server=(local);" & _
                  "uid=" & account & ";" & _
                  "pwd=" & ann & ";" & _
                  "database=users;"
 
 
    registro = "INSERT INTO info(id,pwd,mail)" & _
                   "VALUES('" & txtNickname & "', '" & _
                                txtPassword & "', '" & _
                                txtEmail & "')"
 
    conectar.Execute registro, lNumRegAfect
 
    MsgBox "Cuenta registrada satisfactoriamente", vbInformation, "Info"
 
   MsgBox "Número de registros afectados: " & lNumRegAfect
 
    conectar.Close
 
Else
Exit Sub
conectar.Close
registro.Close
Unload Me
End If
 
End Sub

Amiga Como puedo escribirte un mensaje, he tratado pero no doy dado que cambiaste tu usuario y no me permite hacerlo. Quisiera contactar contigo en privado.