Felmeddelandet genereras under utskrift av reccordsetobjekt som hämtas från en MySQL databas. Jag har precis konverterat en sida från Sun ASP till MS ASP. Jag fick ändra på en del grejer men inte så fasligt mycket. Raden som genererar felet enligt meddelande är "Response.Write objRS.Fields("tblkontaktinfo_fldnamn").value" Problemet är löst. Deklarationen av arrUpdateList saknades högre upp i koden, så felet genererades vid initieringen arrUpdateList, men borde väl rimligen ha genererats redan vid körning av ReDim?Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch
Identisk kod fungerar hur bra som helst på andra sidor.
Har någon stött på liknande problem med asptolkar?Sv: Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch
Hur ser kodsnutten ut som blir fel?Sv:Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch
Kod:
sqlTemp=" tblreginfo.fldregid AS tblreginfo_fldregid,tblreginfo.fldupdatedatum,tblkontaktinfo.fldnamn as tblkontaktinfo_fldnamn,tbluser.fldepost AS tbluser_fldepost,tbluser.fldpostort AS tbluser_fldpostort"
strSQL = "Select"&sqlTemp&" FROM ((tblreginfo INNER JOIN tblkontaktinfo ON tblreginfo.fldregid=tblkontaktinfo.fldregid)inner join tbluser on tblreginfo.fldorgownerid=tbluser.fldregid) WHERE tbluser.flduserid="&Cint(1)&" and "&strRegId&" AND tblreginfo.fldupdatedatum <= '"&Request.QueryString("prmDate")&"';"' AND '"&dateToday&"';"
'**************Kopplingen till databasen skapas och öppnas
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open CONN_STRING , CONN_USER, CONN_PASS
'**************Skapar recordset och sidstorleken initieras
Set objRS = Server.CreateObject("ADODB.Recordset")
'**************Öppna objRS
objRS.Open strSQL, dbConn
If objRS.EOF Then
Response.Write "<p><table align=center width='100%' ><tr><td class='searchheader' id='lightblue' align=center>Inga poster matchade din sökning...</td></tr></table>"
Else
'**************Skriver ut tabell med funna poster
Response.Write "<table align=center width='100%' ><tr><td class='searchheader' id='lightblue' align=center>Antalet träffar i din sökning:"&intHits&"</td></tr></table>"
Response.Write "<p><table class='my'>" & vbCrLf
' Skriver fältens namn på översta raden
Response.Write vbTab & "<tr >" & vbCrLf
Response.Write vbTab & vbTab & "<td class='searchheader' id='red' >"
Response.Write " "
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='searchheader' id='red' >"
Response.Write "Namn"
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='searchheader' id='red' >"
Response.Write "Epost"
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='searchheader' id='red' >"
Response.Write "Postort"
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='searchheader' id='red' >"
Response.Write "Uppdaterades"
Response.Write "</td>" & vbCrLf
Response.Write vbTab & "</tr>" & vbCrLf
' Snurra igenom alla poster och visa en per rad.
Dim blnColor,intUpdateI
blnColor= true
Redim arrUpdateList(3,2)
intUpdateI =0
Do While Not objRS.EOF
Response.Write vbTab & "<tr>" & vbCrLf
if intUpdateI >= 2 then
Redim preserve arrUpdateList(3,intUpdateI+1)
end if
if blnColor=true then
Response.Write vbTab & vbTab & "<td class='myrow' >"
Response.Write objRS.Fields("tblreginfo_fldregid").value
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='myrow' >"
Response.Write objRS.Fields("tblkontaktinfo_fldnamn").value
arrUpdateList(1,intUpdateI)=objRS.Fields("tblkontaktinfo_fldnamn").value
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='myrow' >"
Response.Write objRS.Fields("tbluser_fldepost").value
arrUpdateList(3,intUpdateI)=objRS.Fields("tbluser_fldepost").value
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='myrow' >"
Response.Write objRS.Fields("tbluser_fldpostort").value
Response.Write "</td>" & vbCrLf
Response.Write vbTab & vbTab & "<td class='myrow' >"
Response.Write objRS.Fields("fldupdatedatum").value
arrUpdateList(2,intUpdateI)=objRS.Fields("fldupdatedatum").value
Response.Write "</td>" & vbCrLf
blnColor=False
elseif blnColor=False thenSv: Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch
Sun ONE ASP verkar ha lite problem med tydligheten i sina felmeddelanden, något att ta med sig.