Dim linkpage As String = "http://xxxx.eu/ivano/xxxx.php"
Dim variables As String = "?command=freeQuery&q="
Dim s As String
If Mod_Global.register = False Then
s = "INSERT INTO user (name, lastname, phone, email, city, password, nik, idphone) VALUES ('" & tx1.Text & "', '" & tx2.Text & "', '" & tx3.Text & "', '" & tx4.Text & "', '" & tx5.Text & "', '" & tx6.Text & "', '" & tx7.Text & "', '" & Mod_Global.GetDeviceId & "')"
Else
s = "UPDATE user SET name='" & tx1.Text & "', " & _
"lastname='" & tx2.Text & "', " & _
"phone='" & tx3.Text & "', " & _
"email='" & tx4.Text & "', " & _
"city='" & tx5.Text & "', " & _
"password='" & tx6.Text & "', " & _
"nik='" & tx7.Text & "' " & _
"WHERE idphone='" & Mod_Global.GetDeviceId & "'"
End If
Dim job1cli As HttpClient
Dim job1req As HttpRequest
Log(linkpage & variables & s)
job1req.InitializeGet(linkpage & variables & s)
job1cli.Initialize("job1cli")
job1cli.Execute(job1req,1)