Code: Select all
UseMySQLDatabase()
If Not InitCGI() Or Not ReadCGI()
End
EndIf
user$=CGIParameterValue("username")
sql=OpenDatabase(#PB_Any,"host=xxx port=3306 dbname=xxxx","xxx",xx",#PB_Database_MySQL)
If sql
If DatabaseQuery(sql,"select user from login_user where nom='"+user$+"';")
If NextDatabaseRow(sql)
resultat$=GetDatabaseString(sql,0)
Else
resultat$=""
EndIf
EndIf
CloseDatabase(sql)
Else
resultat$=DatabaseError()
EndIf
WriteCGIHeader("Access-Control-Allow-Origin", "*") ;<----------- Remove for Final Release !!!!!!
WriteCGIHeader(#PB_CGI_HeaderContentType,"text/html",#PB_CGI_LastHeader)
WriteCGIString(user$+"="+resultat$)
return the value of user$ but an empty value for resultat$WriteCGIString(user$+"="+resultat$)