'Field' to 'String' is not valid.

Försöker göra om en asp sida till aspx och får detta mess..hur ska jag göra? tpfh

Cast from type 'Field' to type 'String' is not valid. 
Description: An unhandled exception occurred during the execution of the current web request. 
Please review the stack trace for more information about the error and where it originated in the code. 

Exception Details: System.InvalidCastException: Cast from type 'Field' to type 'String' is not valid.

Source Error: 

Line 62: 	StrTStr = replace(StrRs("destination"),"&","&")

edit:
Är en funktion som byter ut &-tecknen mot &

Kan tänka mig att detta kan fungera: StrTStr = replace(StrRs("destination").ToString(),"&","&")

Jo det funkade, men ett annat problem dök upp. Det jag vill åstadkomma är rader med
Datum - länk. Där länken har en beskrivande text.

Och det som skrivs ut nu är
System.__ComObject System.__ComObject
System.__ComObject System.__ComObject
System.__ComObject System.__ComObject
System.__ComObject System.__ComObject osv.

Istället för
030402 Länken
030202 Länken
030103 Länken osv.

i headern har jag:
<%@ Page aspcompat=true Debug="true"%> 
Response.Buffer = true

och koden:
Dim ObjCn, StrRs
Dim StrTStr
ObjCn = Server.CreateObject("ADODB.Connection")
	ObjCn.Open ("-acesskoppling-")
StrRs = ObjCn.execute("SELECT * FROM links ORDER BY datum desc")
	Do until StrRs.EOF
	StrTStr = replace(StrRs("destination").ToString(),"&","&amp;")
	.write ("<tr>")
	.write ("<td>")
	.write (StrRs("datum"))
	.write ("</td>")
	.write ("<td>")
	.write ("<a href=""")
	.write (StrTStr)
	.write (""" title=""" )
	.write (StrTStr)
	.write (""">")
	StrTStr = replace(StrRs("description").ToString(),"&","&amp;")
	StrTStr = replace(StrTStr, "å","&aring;")
	StrTStr = replace(StrTStr, "ä","&auml;")
	StrTStr = replace(StrTStr, "ö","&ouml;")
	StrTStr = replace(StrTStr, "Å","&Aring;")
	StrTStr = replace(StrTStr, "Ä","&Auml;")
	StrTStr = replace(StrTStr, "Ö","&Ouml;")
	.write (StrTStr)
	.write ("</a></td>")
	.write ("</tr>")
	StrRs.Movenext
	Loop
	StrRs.close
StrRs = nothing
	ObjCn.close
ObjCn = nothing

måste köra ToString()-metoden

Du gör:

write (StrRs("datum"))

vilket skriver ut objekttypen.

Prova

write (StrRs("datum").ToString())

alternativt

write (Convert.ToString(StrRs("datum")))

om inte första alternativet fungerar.

Testade alla tre varianterna men får samma resultat

Utskrift:
System.__ComObject System.__ComObject System.__ComObject System.__ComObject
System.__ComObject System.__ComObject System.__ComObject System.__ComObject
System.__ComObject System.__ComObject System.__ComObject System.__ComObject
System.__ComObject System.__ComObject System.__ComObject System.__ComObject osv.

Kod:

StrRs = ObjCn.execute("SELECT * FROM links ORDER BY datum desc")
	Do until StrRs.EOF
	StrTStr = replace(StrRs("destination").ToString(),"&","&")
	.write ("<tr>")
	.write ("<td>")
	.write(Convert.ToString(StrRs("datum")))
	.write (StrRs("datum").ToString())
	.write (StrRs("datum"))
	.write ("</td>")
	.write ("<td>")
	.write ("<a href=""")
	.write (StrTStr)
	.write (""" title=""" )
	.write (StrTStr)
	.write (""">")
	StrTStr = replace(StrRs("description").ToString(),"&","&amp;")
	StrTStr = replace(StrTStr, "å","&aring;")
	StrTStr = replace(StrTStr, "ä","&auml;")
	StrTStr = replace(StrTStr, "ö","&ouml;")
	StrTStr = replace(StrTStr, "Å","&Aring;")
	StrTStr = replace(StrTStr, "Ä","&Auml;")
	StrTStr = replace(StrTStr, "Ö","&Ouml;")
	.write (StrTStr)
	.write ("</a></td>")
	.write ("</tr>")
	StrRs.Movenext
	Loop
	StrRs.close
StrRs = nothing
	ObjCn.close
ObjCn = nothing

va?
eh prova då

write(Convert.ToString(StrRs("datum").ToString()))

Samma sak..

utskrift:
System.__ComObjectSystem.__ComObjectSystem.__ComObjectSystem.__ComObjectSystem.__ComObject
System.__ComObjectSystem.__ComObjectSystem.__ComObjectSystem.__ComObjectSystem.__ComObjectosv.

skickar hela koden.

<%@ Page Language="VB" aspcompat=true Debug="true"%>
<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(Convert.ToString(StrRs("datum").ToString()))
	.write(Convert.ToString(StrRs("datum")))
	.write (StrRs("datum").ToString())
	.write (StrRs("datum"))
	.write ("</td>")
	.write ("<td>")
	.write ("<a href=""")
	.write (StrTStr)
	.write (""" title=""" )
	.write (StrTStr)
	.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)
	.write ("</a></td>")
	.write ("</tr>")
	StrRs.Movenext
	Loop
	StrRs.close
StrRs = nothing
	ObjCn.close
ObjCn = nothing
end with
%>
</table>