Multidesk.be » Forums » ASP » VBScript (0x800A000D) (gesloten)

Helpinformatie
Dit onderwerp bevindt zich in het archief.
Het is bijgevolg niet mogelijk er nog op te reageren.
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door Red Star op vrijdag 9 maart 2007 om 12:05:36.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
hoi allen

ik moet voor m'n werk een (acces) database connecteren met flash, via asp dus. nu werkt het bijna alleen krijg ik volgende error

Runtimefout Microsoft VBScript (0x800A000D)
Typen komen niet met elkaar overeen: 'URLEncode'
/dbwerk/eersteState.asp, line 47

heb intussen wel gelezen dat het een type probleem is. maar het probleem zit hem in het fijt dat het veld een link is naar een andere tabel en deze link is soms leeg. wanneer de link niet leeg is werkt het wel, dus alleen als de link leeg is krijg ik deze error.

dit is m'n code dat ik heb

ASP
  1. <%
  2.  Set objConn = Server.CreateObject("ADODB.Connection")
  3.  objConn.mode = 3
  4.  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("eindtermen.mdb")
  5.  Set objRS = Server.CreateObject("ADODB.Recordset")
  6.  strQuery = "SELECT ICPC.ICD10Titel, link.Extra, EindtermBeschrijving.Beschrijving, link.Blok1, link.Blok2, link.Blok3" &_
  7.    " FROM (ClinicalPresentationsCanada INNER JOIN (EindtermBeschrijving INNER JOIN (ICPC INNER JOIN link ON ICPC.EigenCode = link.EigenCode) ON EindtermBeschrijving.ETCode = link.ETCode) ON ClinicalPresentationsCanada.Id = link.ClinicalPresentation1) INNER JOIN WebsiteCanada ON ClinicalPresentationsCanada.Code = WebsiteCanada.Code;"
  8.  
  9.  response.write strQuery
  10.  objRS.Open strQuery, objConn
  11.  'objRS.Move CLng(Request("Record"))
  12.  response.write "<br><br><br>" ' alleen bedoeld om alles wat netjes te tonen in de browser
  13.  recordNR = 0 ' record teller op nul zetten
  14.   While Not objRS.EOF ' indien er een record is
  15.    if request("record") = CStr(recordNR) then ' hier wordt gekeken welk record ik moet hebben en afgebeeld
  16.     Response.write "verwaarloosde data" & "&" 'omdat ie anders het eerste niet weergaf in flash
  17.  
  18.      Response.write "titel=" & Server.URLEncode(objRS("ICD10Titel")) & "&"
  19.      Response.write "extra=" & Server.URLEncode(objRS("Extra")) & "&"
  20.      Response.write "beschrijving=" & Server.URLEncode(objRS("Beschrijving")) & "&"
  21.     Response.write "blok1=" & Server.URLEncode(objRS("Blok1")) & "&"
  22.      Response.write "blok2=" & Server.URLEncode(objRS("Blok2")) & "&"
  23.     Response.write "blok3=" & Server.URLEncode(objRS("Blok3"))
  24.     recordNR = recordNR + 1 ' teller verhogen
  25.    objRS.MoveNext 'naar volgen record gaan in de recordset
  26.   wend
  27.   Response.write "&" &"totalRecords=" & recordNR
  28.      objRS.Close
  29.      objConn.Close
  30.  
  31. %>


mvgr (hopend dat iemand me kan helpen)

karen

Opmerking van de crew

Even de code tags toegepast.
SMG
^ Reactie #1 geschreven door thekid op vrijdag 9 maart 2007 om 12:12:52.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
Je kunt natuurlijk steeds testen als

CODE
  1.  
  2. if not isNull(objRS("Blok1")) and not isEmpty(objRS("Blok1")) then
  3.    Response.Write("Blok1 = " & Server.UrlEncode(objRS("Blok1")))
  4. else
  5.    ' geen data in blok1
  6. end if
  7.  


normaal zou dit wel al iets moeten opvangen

je kunt natuurlijk ook een kleine functie ervoor schrijven
CODE
  1.  
  2. public function ConvertDBValue(val)
  3.    if isNull(val) or isEmpty(val) then
  4.        ConvertDBValue = ""
  5.    else
  6.        ConvertDBValue = Server.URLEncode(val)
  7.    end if
  8. end function
  9.  


en dan in je code gebruiken
CODE
  1.  
  2. Response.Write("Blok1=" & ConvertDBValue(objRS("blok1")))
  3.  
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #2 geschreven door Red Star op vrijdag 9 maart 2007 om 12:30:19.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
heeeel erg bedankt, dit lijkt het op het eerste moment te doen

ik heb me er eigenlijk al ver zot op gezocht (alle dan niet alleen dit stukje, maar ook om dat wat ik al had bij elkaar te krijgen), maar ok nu m'n volgende prob binnen deze aplicatie op proberen te lossen :-)
^ Reactie #3 geschreven door thekid op vrijdag 9 maart 2007 om 12:33:31.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
hiervoor is multidesk, hé :D

mag ik je wel aanraden je code wat leesbaar te maken, gebruik van TAB (*edit* voor zover het niks te maken heeft met het kopiëren naar multidesk hier :D) en iets meer haakjes maken alles een stuk leesbaarder. Ik gebruik ook steeds haakjes rond functies, alhoewel het strict gezien niet nodig is in ASP, geef ik er toch de voorkeur aan.

Response.Write("Test") en Response.Write "Test" lijken op het eerste zicht niet zo'n verschil maar op lange pagina's kan het wel handig blijken te zijn :D
Deze tekst werd het laatst bewerkt voor 8.35 % door thekid op vrijdag 9 maart 2007 om 12:35:43.
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #4 geschreven door Red Star op vrijdag 9 maart 2007 om 14:30:05.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
ja het was door kopieren, maar ik zal er volgende keer zeker op letten :-). maar pruts altijg graag eerst zelf, is de voldoening nog zo groot. ben al vree content over dat ik dit al heb kunnen doen en met de hulp hier werkt het al stukken beter.

erna kom je altijd nog wel wat problemen tegen, het volgende dat ik moet doen is een zoekfunctie maken, maar als ik daarbij probs heb hoor je het wel :P
^ Reactie #5 geschreven door Red Star op dinsdag 20 maart 2007 om 15:56:21.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
hoi,

ja het lukt gelijk toch niet gans, maar ik denk dat het dit keer wel nietmeer in asp zit, maar wel in flash. ik weet niet of iemand hiermee kan helpen, maar hier is de rar van de file's

((fout) http://www.coo-ge.ugent.be/Kopie van dbwerk.rar)

((goed) http://www.coo-ge.ugent.be/Kopie%20van%20dbwerk.rar)


Wat is nu het prob? wel het werkt als je gewoon scrolt tussen de records, alleen als je gaat gaan zoeken komen de problemen. nadat je op het vergrootglas drukte vul je bv (bij eerste tab) klier in en klik je option titel aan dan ok. nu scrolt ie nietmeer tussen de resultaten, terwijl dit nog wel dezelfde code is van ervoren (waar het wel werkte)


met dank op voorhand en hopend dat iemand het vind
karen

Opmerking van de crew

Even je link goed gezet ;)

Wheeldigger
Deze tekst werd het laatst bewerkt voor 5.38 % door Wheeldigger op dinsdag 20 maart 2007 om 20:56:53.
^ Reactie #6 geschreven door Wheeldigger op dinsdag 20 maart 2007 om 18:10:55.
Wheeldigger's avatar
Multiviteit: 10173
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
De link werkt niet, wel de link naar http://www.coo-ge.ugent.be/ , maar niet naar /Kopie.
Kijk dat even na ;)

@thekid; spaties bijtypen? Waar dan?
Ik laat het nog even hier staan voor het overzicht voordat ik naar flash verwijs.
^ Reactie #7 geschreven door thekid op dinsdag 20 maart 2007 om 20:11:22.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
in de link

als deze spatie gaat niet in url als deze niet speciaal wordt neergeschreven wordt, kan je nl wel aan het bestand ;

mja, als het flash is kunnen we inderdaad nog uitzoeken :D
Deze tekst werd het laatst bewerkt voor 16.2 % door thekid op dinsdag 20 maart 2007 om 20:12:08.
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #8 geschreven door Wheeldigger op dinsdag 20 maart 2007 om 20:54:54.
Wheeldigger's avatar
Multiviteit: 10173
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
http://www.coo-ge.ugent.be/Kopie%20van%20dbwerk.rar

Dit dus.... nu werkt het wel :)
Hierboven in de post ook even aangepast, kunnen we weer terug ontopic :D
Deze tekst werd het laatst bewerkt voor 30.08 % door Wheeldigger op dinsdag 20 maart 2007 om 20:57:49.
^ Reactie #9 geschreven door Red Star op woensdag 21 maart 2007 om 09:18:56.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
wist ik niet, weer wat bijgeleerd, intussen heb ik die van het 2de tab wel aan't werk gekregen, maar gek genoeg lukt het bij de eerste tab nog steeds niet - hoewel het wel dezelfde code is (naast nr veranderingen en veldinvulling dan)


in het bestand dat ik posten is er alleen echt aan het eerste geprutst, zal hem anders ff updaten

heeft nog steeds dezelfde naam > dbupdate
Deze tekst werd het laatst bewerkt voor 14.14 % door Red Star op woensdag 21 maart 2007 om 09:21:39.
^ Reactie #10 geschreven door Red Star op woensdag 28 maart 2007 om 12:32:28.
Red Star's avatar
Multiviteit: 11
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
intussen een oplossing voor m'n probleem gevonden
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten