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 561 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

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

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 777
27 960
271 761
513
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