Iz flash-a saljem podatke (preko asp-a) koje je korisnik uneo pri registraciji.
Kad neko u polje unese cirilicu (nasaSlova) u Access('97) bazi se pojave kvacice i raznorazni znaci umesto cirilice.
Kada probam da ubacim preko obicne (html) forme sve je u redu. U Access bazi se cita normalno i cirilica i latinica.
U flashu su polja definirana kao "InputText".
Sto je najcudnije kada u flashu procitam podatke iz baze on sve prikaze normalno...
i cirilicu i latinicu
Code:
flash
-----
loadVariables("register.asp?"+int(Math.random()*1000000), this, "POST");
asp
---
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.JET.OLEDB.4.0"
conn.Open Server.MapPath("/database/game.mdb")
Set rekSet = Server.CreateObject("ADODB.Recordset")
rekSet.ActiveConnection = conn
rekSet.Source = "SELECT * FROM 60_sekunde"
rekSet.CursorType = 3
rekSet.LockType = 3
rekSet.Open
korisnik = Request.Form("korisnik")
Result = ""
Do Until rekSet.EOF
If rekSet.Fields("korisnik") = korisnik Then
Result = "USEREXISTS"
Response.Write("Result=USEREXISTS")
Exit Do
Else
rekSet.MoveNext
End If
Loop
If rekSet.EOF Then
rekSet.AddNew
rekSet.Fields("korisnik") = korisnik
rekSet.Fields("lozinka") = Request.Form("lozinka")
rekSet.Fields("ime") = Request.Form("ime")
rekSet.Fields("prezime") = Request.Form("prezime")
rekSet.Fields("adresa") = Request.Form("adresa")
rekSet.Fields("grad") = Request.Form("grad")
rekSet.Fields("telefon") = Request.Form("tel")
rekSet.Fields("email") = Request.Form("email")
rekSet.Update
Result = "OK"
Response.Write("Result=OK")
End If
rekSet.Close
conn.Close
Set rekSet = Nothing
Set conn = Nothing
%>
flash
-----
loadVariables("register.asp?"+int(Math.random()*1000000), this, "POST");
asp
---
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.JET.OLEDB.4.0"
conn.Open Server.MapPath("/database/game.mdb")
Set rekSet = Server.CreateObject("ADODB.Recordset")
rekSet.ActiveConnection = conn
rekSet.Source = "SELECT * FROM 60_sekunde"
rekSet.CursorType = 3
rekSet.LockType = 3
rekSet.Open
korisnik = Request.Form("korisnik")
Result = ""
Do Until rekSet.EOF
If rekSet.Fields("korisnik") = korisnik Then
Result = "USEREXISTS"
Response.Write("Result=USEREXISTS")
Exit Do
Else
rekSet.MoveNext
End If
Loop
If rekSet.EOF Then
rekSet.AddNew
rekSet.Fields("korisnik") = korisnik
rekSet.Fields("lozinka") = Request.Form("lozinka")
rekSet.Fields("ime") = Request.Form("ime")
rekSet.Fields("prezime") = Request.Form("prezime")
rekSet.Fields("adresa") = Request.Form("adresa")
rekSet.Fields("grad") = Request.Form("grad")
rekSet.Fields("telefon") = Request.Form("tel")
rekSet.Fields("email") = Request.Form("email")
rekSet.Update
Result = "OK"
Response.Write("Result=OK")
End If
rekSet.Close
conn.Close
Set rekSet = Nothing
Set conn = Nothing
%>
Ono sto te ne ubije, to te ojaca.