Frågar väl här också. StrRs är väl ett recordset? Kolla på det objectet på msdn. Tror att man om man är riktigt ordentlig skall använda StrRs.item("datum").value eller vad det är. Kan vara det som är feletto string
Har en aspsida jag försöker göra till aspx. Och har testat lite olika:
.write(Convert.ToString(StrRs("datum").ToString())) 'ger utskrift: System.__ComObject
.write(Convert.ToString(StrRs("datum"))) 'ger utskrift: System.__ComObject
.write (StrRs("datum").ToString()) 'ger utskrift: System.__ComObject
.write (StrRs("datum")) 'ger utskrift: System.__ComObject
men jag vill ju att datumet ska skrivas ut istället. Likadant är det med:
.write (StrTStr) 'ger också utskrift: System.__ComObject
Hela koden:
<%@ Page Language="VB" aspcompat=true Debug="true"%>
<html><table>
<%
Response.Buffer = true
Dim ObjCn, StrRs
Dim StrTStr
with response
ObjCn = Server.CreateObject("ADODB.Connection")
ObjCn.Open ("driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db/db.mdb")&";pwd=1")
StrRs = ObjCn.execute("SELECT * FROM links ORDER BY datum desc")
Do until StrRs.EOF
StrTStr = replace(StrRs("destination").ToString(),"&","&")
.write ("<tr>")
.write ("<td>")
.write (StrRs("datum")) 'ger utskrift: System.__ComObject
.write ("</td>")
.write ("<td>")
.write (" .write (StrTStr) 'ger också utskrift: System.__ComObject
.write (""">")
StrTStr = replace(StrRs("description").ToString(),"&","&")
StrTStr = replace(StrTStr, "å","å")
StrTStr = replace(StrTStr, "ä","ä")
StrTStr = replace(StrTStr, "ö","ö")
StrTStr = replace(StrTStr, "Å","Å")
StrTStr = replace(StrTStr, "Ä","Ä")
StrTStr = replace(StrTStr, "Ö","Ö")
.write (StrTStr) 'ger också utskrift: System.__ComObject
.write ("</td>")
.write ("</tr>")
StrRs.Movenext
Loop
StrRs.close
StrRs = nothing
ObjCn.close
ObjCn = nothing
end with
%>
</table></html>Sv: to string