Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch

Postades av 2006-02-08 09:15:35 - Anders Beinhoff, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 562 personer

Felmeddelandet genereras under utskrift av reccordsetobjekt som hämtas från en MySQL databas.
Identisk kod fungerar hur bra som helst på andra sidor.
Har någon stött på liknande problem med asptolkar?


Svara

Sv: Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch

Postades av 2006-02-08 11:11:20 - Rickard Lindgren

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.
Hur ser kodsnutten ut som blir fel?


Svara

Sv:Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch

Postades av 2006-02-08 12:10:22 - Anders Beinhoff

Raden som genererar felet enligt meddelande är "Response.Write objRS.Fields("tblkontaktinfo_fldnamn").value"

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 then


Svara

Sv: Sun ONE ASP VBScript runtime(0x800A000D) Type mismatch

Postades av 2006-02-09 09:36:57 - Anders Beinhoff

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 verkar ha lite problem med tydligheten i sina felmeddelanden, något att ta med sig.


Svara

Nyligen

  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 889
27 965
271 778
575
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies