I am reading a record from an Oracle database. The Russian names are showing up as "???"
<%
Response.Conten tType = "text/html"
Response.AddHea der "Content-Type", "text/html;charset=UT F-8"
Response.CodePa ge = 65001
Response.CharSe t = "UTF-8"
Dim objConn
Dim rs
Set objConn = Server.CreateOb ject("ADODB.Con nection")
objConn.Open "dsn=orclds n; uid=admin; pwd=password"
Set rs = Server.CreateOb ject("ADODB.Rec ordset")
sqlstr="SELECT e.username, e.fname, e.lname, e.email eemail, m.username, m.email memail FROM tableName e INNER JOIN tableName m ON e.manager_id=m. id WHERE e.username='K57 00MAV';"
Set rs = objConn.Execute (sqlstr)
if rs.eof then
response.write "Username does not exist. Please access this link from a course."
response.end
else
rs.MoveFirst
While Not rs.EOF
e_name = Server.URLencod e(rs.fields("fn ame") & " " & rs.fields("lnam e"))
e_email = rs.fields("eema il")
response.write e_name
rs.MoveNext
Wend
end if
objConn.Close
Set objConn = Nothing
%>
<%
Response.Conten tType = "text/html"
Response.AddHea der "Content-Type", "text/html;charset=UT F-8"
Response.CodePa ge = 65001
Response.CharSe t = "UTF-8"
Dim objConn
Dim rs
Set objConn = Server.CreateOb ject("ADODB.Con nection")
objConn.Open "dsn=orclds n; uid=admin; pwd=password"
Set rs = Server.CreateOb ject("ADODB.Rec ordset")
sqlstr="SELECT e.username, e.fname, e.lname, e.email eemail, m.username, m.email memail FROM tableName e INNER JOIN tableName m ON e.manager_id=m. id WHERE e.username='K57 00MAV';"
Set rs = objConn.Execute (sqlstr)
if rs.eof then
response.write "Username does not exist. Please access this link from a course."
response.end
else
rs.MoveFirst
While Not rs.EOF
e_name = Server.URLencod e(rs.fields("fn ame") & " " & rs.fields("lnam e"))
e_email = rs.fields("eema il")
response.write e_name
rs.MoveNext
Wend
end if
objConn.Close
Set objConn = Nothing
%>
Comment