Udtræk fra denne database

ID = Request(\"husnr\") ´henter husnr fra URL

Set Conn=Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;\" & \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & \"DBQ=\" & server.mappath(\"sommerhuse\")

SQL=\"SELECT TOP 5 * FROM sommerhus where husid = \" & ID &\"\"
Set Rs=Conn.Execute(SQL)

Du trækker data ud med <% =RS(\"tabelnavn\") %>


Link til siden med ?husnr=X

Ares

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"sommerhuse.mdb\")

SQLstmt = \"SELECT * FROM sommerhuse WHERE nr = \" & Request(\"nr\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>

<%
 
    nr = rs(\"nr\")
    navn = rs(\"navn\")
   
%>
HUSNR: <%=nr%>
Navn: <%=navn%>
<%
 
RS.Close

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Sådan.. BTW. skal du skrive: www.123ferie.dk/sommerhuser.asp?nr=2

ups det skulle  selvfølgelig være

SQL=\"SELECT * FROM sommerhus where husid = \" & ID &\"\"

Sorry, lidt for ivrig....

Ares

Det er hvad jeg kalder et/to hurtige svar... skal lige prøve om jeg kan finde ud af det :)

Ja, du er velkommen til, at skrive ingen...

<!-- METADATA TYPE=\"typelib\"
                            UUID=\"00000205-0000-0010-8000-00AA006D2EA4\"
                            NAME=\"ADODB Type Library\" -->
<%
    dim cn, rs, sql, cnstr
    set cn = server.createobject(\"adodb.connection\")
    set rs = server.createobject(\"adodb.recordset\")
   
    cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
    cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"DATABASENAVN.mdb\")
    cn.connectionstring = cnstr
    cn.open

        rs.activeconnection = cn
        rs.cursortype = adopenforwardonly
        rs.locktype = adlockreadonly
            sql = \"SELECT KOLONNE,KOLONNE  FROM TABELNAVN WHERE ID=\"
            sql = sql & request(\"ID\") & \" ORDER BY TABELNAVN\"
            rs.open sql
do until rs.eof
        rs.movenext
    loop
        response.write \"HER INDSÆTTER DU HTML f.eks. <html><head><title></title></head><body>\"

denne sætning laver du lige så mange af som der er tabelfelter der skal vises response.write \"html kode\" & rs(\"TABELNAVN\")
    rs.close
    set rs = nothing
    cn.close
    set cn = nothing
%>

KOLONNE er den kolonne du vil have hentet fra rækken ID
du kalder så siden via sidenavn.asp?ID=TAL hvor TAL er husets Nr i tabellen. :-)

lol da jeg kiggede var der ikek noget svar, da jeg havde svaret var de andre kommet først!!!

I/du kan følge med på www.123ferie.dk/x/forsog.asp

ares>>> Kan det passe at den ikke gider at godtage:
Set Rs=Conn.Execute(SQL)
Skal lige siges at jeg først skal til at lære dette om en ½ måned så jeg kender ikke meget til det.

Husker du <% bla. bla.. %> ???

hvilken fejl kode får du ??
Og har du som Indy skriver husket <% ??

Ares

Og ikke noget med <BR> indenfor <% %>

I denne linie:

Set Rs=Conn.Execute(SQL) <BR>

Skal du slette <BR>

Nu er jeg jo ny... burde faktisk vente, men jeg kan ikke lade være.
lige nu har jeg afprøvet ghostdreamer\'s, er indtil videre ikke kommet længere i den ind:

<!-- METADATA TYPE=\"typelib\"
                            UUID=\"00000205-0000-0010-8000-00AA006D2EA4\"
                            NAME=\"ADODB Type Library\" -->
<%
    dim cn, rs, sql, cnstr
    set cn = server.createobject(\"adodb.connection\")
    set rs = server.createobject(\"adodb.recordset\")
   
    cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
    cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"sommerhuse.mdb\")
    cn.connectionstring = cnstr
    cn.open

        rs.activeconnection = cn
        rs.cursortype = adopenforwardonly
        rs.locktype = adlockreadonly
            sql = \"SELECT KOLONNE,hus1  FROM TABELNAVN WHERE ID=sommerhus\"
            sql = sql & request(\"ID\") & \" ORDER BY TABELNAVN\"
            rs.open sql
do until rs.eof
        rs.movenext
    loop
        response.write \"<html><head><title></title></head><body></body></html>\"

denne sætning laver du lige så mange af som der er tabelfelter der skal vises response.write \"html kode\" & rs(\"TABELNAVN\")
    rs.close
    set rs = nothing
    cn.close
    set cn = nothing
%>

Nogen der gad lave en side med bare ét udtræk så jeg havde noget at gå ud fra i mine eksperimenter?

Ja, send bare databasen til mig: indy@indy.dk

Kan du ikke hente den fra:
www.123ferie.dk/x/sommerhuse.mdb
Som nævnt øverst? Virker fint hos mig..

Jo, men hvis du lige smider din e-mail, sender jeg asp-filen til dig

>> indy

Du kan selv hente den på:
www.123ferie.dk/x/sommerhuse.mdb

tommyf@ofir.dk

Eller ICQ 100590373

Jeg kan varmt anbefale http://www.activeserverpages.dk eller http://www.netcoders.dk/

Eller bare nogle af spørgsmålende herpå Eksperten.dk

Det er vigtig ikke at få det serveret på et sølvfad så kommer du aldrig igang - og hvis du gerne vil lære der er der kun den hårde måde - trust me : )

Ares

jeg laver gerne alle siderne for din for 1.500,- kr. - med oversigt og infoside over det enkelte hus.

: )

Ares

ares>>> Er tilmeldt, og deltager i et kursus, men vi er kun ved VB og Access database. Det vare cirka 1 måned før vi kommer til det sjove = ASP.
Jeg har også læst nogle af de eksempler og artikler som er på activeserverpages.dk men bare rolig, på fredag fortsætter jeg kampen :)

hvor tager du kursus ??

Ares

ares>>> Udgifter til webhotel, domænenavn og en smule andet plus ingen indtægter har efterhånden sikret mig et god årlig underskud. Men hvis det begynder at kaste lidt af sig skal jeg da huske dit tilbud :)

ares>>> På VUC, VoksenUddannelsesCenter  (Er dog kun 16 men fik da lov til at deltage... endnu en udgift på ca. 1000kr)

Hvis du står og skal bruge lidt ekstra fradrag i år kan jeg varmt anbefale - http://www.wrox.com/ eller http://www.wrox.co.uk/ - kig efter titler som ASP 3.0 eller ASP + VB Script også videre.

De laver en samlet pakke til omkring 800-900 kr. online - med ASP 3.0 - ASP techniques for Webmaster - MTS MSMQ With VB and ASP.

Jeg har lært stortset alt det ASP jeg kan derfra...

Ares

Hmmmmmm, jeg tror jeg vil starte med at tygge mig igennem et af hæfterne fra IDG, \"og derefter finde en bog hvor forfatteren ikke er blevet betalt pr. side.\"
Den sidste sætning var et råd fra en af de andre eksperter.

Det ser godt nok godt ud. Mange tak for den hurtige og utrolig gode hjælp. Nu ved jeg hvad jeg skal bakse med i weekenden :-)

Jeg har lagt 50point oven i så der også er lidt til de andre.

Mvh
Tommy Frøkjær

din side siger:
Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/x/forsog.asp, line 10

Set Rs=Conn.Execute(SQL) <BR>
-----------------------------^
du må ikke lade html tags (<BR>) stå i samme rutine som ex sql sætninger...

Den nye testadresse er:
http://www.123ferie.dk/x/sommerhus.asp?husid=1
Her kan der følges lidt med i hvordan det går.

:-)
nedentstående ex er skrevet såd\'n lidt hurtigt beklager hvis der er ting der skal rettes - brug det hvis du kan...

<!-- METADATA TYPE=\"typelib\"
                            UUID=\"00000205-0000-0010-8000-00AA006D2EA4\"
                            NAME=\"ADODB Type Library\" -->
<%
    dim cn, rs, sql, cnstr
    set cn = server.createobject(\"adodb.connection\")
    set rs = server.createobject(\"adodb.recordset\")
   
    cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
    cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"sommerhuse.mdb\")
    cn.connectionstring = cnstr
    cn.open

        rs.activeconnection = cn
        rs.cursortype = adopenforwardonly
        rs.locktype = adlockreadonly
            sql = \"SELECT Adresse, city, Billede, Beskrivelse FROM Sommerhus WHERE husid=\"
            sql = sql & request(\"husid\") & \" ORDER BY husid\"
            rs.open sql
response.write \"<html><head><title>123Sommerhuse</title></head><body>\"
        response.write \"<h1>Oversigt over\"
response.write & rs(\"Adresse\") & \"</h1>\"
        response.write \"<table border=0>\"
        response.write \"<tr><td>\" & rs(\"Billede\") & \"</td></tr>\"
   
            response.write \"<tr><td>Beliggende:</td><td>By:</td>/tr>\"
            response.write \"<tr><td>\" & rs(\"Adresse\") & \"</td>\"
            response.write \"<td>\" & rs(\"city\") & \"</td></tr></table>\"
            response.write \"<table><tr><td>\" & rs(\"Beskrivelse\") & \"</td></tr></table>
   
   
    response.write \"</body></html>\"

    rs.close
    set rs = nothing
    cn.close
    set cn = nothing
%>

du kalder så det enkelte hus via dinaspside.asp?husid=1 eller 2 eller 3 afhænig af hvilket hus du vil vise

Hvad betyder det?:
        rs.cursortype = adopenforwardonly
        rs.locktype = adlockreadonly
Er det noget med sikkerheden?

Nej det fortæller databasen at man kun vil kigge en gang igennem posterne og det fremadrettet, det er der for at gøre scriptet hurtigere, ca en 25 -30% i forhold til andre cursor-typer

Gider du gentage den her:
http://www.eksperten.dk/spm/38696
Den er da 15point værd.

Bare lige en forklaring på tricket.

tommyf >> jeg skriver lige til dig her vedrørende spm.38696, da der er fejl på siden.

I din database laver du en forespørgsel, hvor du medtager tabellen hvor du udtrækker data fra din side. Dernæst tilføjer du postnrtabellen. Gem din forespørgsel.

I asp-koden ændre du i sql-sætningen \"FROM tabelnavn\" til din forespørgsel \"FROM forespørgsel\". Så burde du får by med.

Hvis du har set databasen (zip-filen fylder kun 53kb) har jeg lavet en forespørgsel der hedder FS=ALLE hvor jeg har taget samtlige tabeller med. Vil det side at hvis jeg skriver:

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"sommerhuse.mdb\")

SQLstmt = \"SELECT * FROM FS=ALLE WHERE husid = \" & Request(\"husid\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
 
    adresse = rs(\"adresse\")
    by = rs(\"by\")
    billede = rs(\"Billede\")
    beskrivelse = rs(\"Beskrivelse\")
    Postnummer = rs(\"Postnummer\")   
%>

Så skulle relationerne i databasen virke, så at en by vil blive efterfulgt af et postnummer?

Jeg er igang med at læse bogen \"Active Server Pages -Dynamiske websider\" men det er vist et projekt til juleferien og denne nat. Den er utrolig omfattende.

Ghostdreamer>>> Sådan her f.eks:
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"sommerhuse.mdb\")

SQLstmt = \"SELECT * FROM Q_Sommerhus WHERE husid = \" & Request(\"husid\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
rs.activeconnection = cn      
rs.cursortype = adopenforwardonly   
rs.locktype = adlockreadonly

    adresse = rs(\"adresse\")
    Postnr = rs(\"Postnr\")
    by = rs(\"by\")
    billede = rs(\"Billede\")
    beskrivelse = rs(\"Beskrivelse\")
       
%>

Det burde virke, men jeg er nybegynder som dig selv så bare spørgsmålet og vidste svaret på dit første spørgsmål :-)))))) held og lykke

Tak, der er stadig chance for lidt point:
http://www.eksperten.dk/spm/38696