anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 zet dan ff de gehele code hier neer want ik kan niet ruiken wat er in regel 28 staat :evil: :evil: en geef aan waar je mdb staat OP DE MANIER DIE IK NU AL EEN AANTAL KEER HEB AANGEGEVEN. Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 hey, hij doet het nu op mijn pc, de fout zat hem dus in de connection het was [code:1:0034a9ca85] db = "c:\inetpub\wwwroot\kiona.mdb" Set conn = Server.CreateObject( "ADODB.Connection" ) conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";" [/code:1:0034a9ca85] en het moest zijn [code:1:0034a9ca85] db = "c:\inetpub\wwwroot\kiona.mdb" Set con = Server.CreateObject( "ADODB.Connection" ) con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";" [/code:1:0034a9ca85] Nu alleen nog werkend krijgen op de server, dan ben ik echt heel happy!! Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 daar heb ik geen ervaring mee. mij lijkt dan dat je ook nog eens eerst moet inloggen op die server en daarnaast weet je niet precies waar je mdb daar staat dus ik heb weinig hoop. misschien kan Annie je daarmee helpen. Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 Kerel ik ben je eeuwig dankbaar!! Ik had opeens een helder moment, ik heb mijn connectie ff aangepast naar de diegene die had van de server, en nou doet ie het daar ook!!!! Ik ben voor school bezig met een project, en daarin was dit niet verplicht, maar het zou wel mooi zijn, je kent het wel. Ik ben zo blij dat het het nu doet, ik zal de code nog een keer geven, maar dan voor de server bij Brinkster.com misschien dat iemand er nog een keer iets aan heeft!!! BEDANKT ALLEMAAL!!! :D :D :D [code:1:51f5e575f2] <% Set Con = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\remco292\db\kiona.mdb") & ";" & _ "Persist Security Info=False" Con.Open(sConnection) 'Get the Current page pg = TRIM(Request( "pg" )) IF pg = "" then pg = 1 Set RS = Server.CreateObject( "ADODB.RecordSet" ) RS.CursorType = adOpenStatic RS.ActiveConnection = Con RS.PageSize = 2 RS.Open = "SELECT * FROM gastenboek ORDER BY Datum DESC" RS.AbsolutePage = pg %> [/code:1:51f5e575f2] Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 tot je dienst. En nogmaals....eerst gewoon doen, dan kijken, daarna afvragen waarom en hoe, en dan.......begrijpen. Mooi toch? Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 ja precies, meestal moet ik dat soort dingen effe zien werken, anders snap ik er geen bal van. Nu ik de code beter bekijkt snap ik wel hoe ie in elkaar zit..alleen dat inc. bestand niet..maar goed, hij werkt en daar ben ik echt superrrr blij om!! nogmaals bedankt!! Annie ook!! Quote Link naar reactie
anoniem Geplaatst: 25 mei 2002 Auteur Delen Geplaatst: 25 mei 2002 Dat inc bestand heb ik je ook al eens uitgelegd. Daar staan codes in voor je recordset. Die dien je gewoon overal in te plakken. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen